УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 205 из 677

205

Опции темы

Поиск в этой теме

Опции просмотра

#2041

15.08.2008, 21:43

W!z@rD

Reservists Of Antichat - Level 6

Регистрация: 12.02.2006

Сообщений: 891

Провел на форуме:
1892597

Репутация: 836

Отправить сообщение для W!z@rD с помощью ICQ

Цитата:

Сообщение от _nic

вообщем надо засунуть текст с таким _http://img388.imageshack.us/my.php?image=77973013xh5.jpg форматированием

RichEdit.
редактируешь, затем сохраняешь файл с расширением rtf

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...

#2042

15.08.2008, 21:47

alextoun

Постоянный

Регистрация: 07.05.2006

Сообщений: 732

Провел на форуме:
7910701

Репутация: 811

Отправить сообщение для alextoun с помощью ICQ

тут такая жопа возникла

Цитата:

нужно сделать на делфи прогу
тупую формочку
где палитра 16 ричного кода цвета
ставиш мышку на нужном цвете а он показывает код цвета

хз как реализовать. Мы в инсте ещё делфи не проходили :d
типа как в фотошопе

Последний раз редактировалось alextoun; 15.08.2008 в 21:50..

#2043

15.08.2008, 23:32

_nic

Постоянный

Регистрация: 05.05.2006

Сообщений: 743

Провел на форуме:
2982851

Репутация: 107

Цитата:

Сообщение от W!z@rD

RichEdit.
редактируешь, затем сохраняешь файл с расширением rtf

нельзя.файл должен быть только один то есть exe

#2044

16.08.2008, 03:24

diznt

Постоянный

Регистрация: 31.01.2008

Сообщений: 643

Провел на форуме:
6128108

Репутация: 445

И так я хочу создать калькулятор
Задал кнопке событие чтобы оно писало в мое окошечко где все вводиться

Код:

procedure TForm1.but1Click(Sender: TObject);
begin
 txtN.Text:='1';
end;

Так он мне выводит в строчку одну единицу а я хочу чтобы было столько единиц скока я нажал на кнопку
Собственно как изменить код чтобы так и было ( как я пожелаю )

И вот я еще с чем столкнулся
Написал событие

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if rad1.Checked:=True then
  begin
   memo1.Lines.Add(txtA.Text);
   txtB.Text(txtA.Text);
   txtC.Text(txtA.Text);
  end;
end;

Так оно ругаеться

Последний раз редактировалось diznt; 16.08.2008 в 06:22..

#2045

16.08.2008, 07:51

0x0c0de

Постоянный

Регистрация: 25.05.2007

Сообщений: 448

Провел на форуме:
4226446

Репутация: 1564

Отправить сообщение для 0x0c0de с помощью ICQ

diznt, надо так

Код:

procedure TForm1.but1Click(Sender: TObject);
begin
 txtN.Text:='1' + txtN.Text;
end;

и...

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if rad1.Checked then
  begin
   memo1.Lines.Add(txtA.Text);
   txtB.Text(txtA.Text);
   txtC.Text(txtA.Text);
  end;
end;

Вы в if присваиваите, а это неверно.

Последний раз редактировалось 0x0c0de; 16.08.2008 в 07:57..

#2046

16.08.2008, 16:32

W!z@rD

Reservists Of Antichat - Level 6

Регистрация: 12.02.2006

Сообщений: 891

Провел на форуме:
1892597

Репутация: 836

Цитата:

Сообщение от _nic

нельзя.файл должен быть только один то есть exe

работа с ресурсами отменена по дефтолу?!!!!!!!

#2047

16.08.2008, 16:45

W!z@rD

Reservists Of Antichat - Level 6

Регистрация: 12.02.2006

Сообщений: 891

Провел на форуме:
1892597

Репутация: 836

Цитата:

Сообщение от alextoun

тут такая жопа возникла

хз как реализовать. Мы в инсте ещё делфи не проходили :d
типа как в фотошопе

Если я тебя правильно понял:

procedure TForm1.Button1Click(Sender: TObject);
var
rgb: Cardinal;
begin
rgb:=ColorBox1.Selected;
Edit1.Text:=Format('%2x%2x%2x', [GetRValue(rgb), GetGValue(rgb), GetBValue(rgb)]);
end;

на форме:
1. TButton
2. TColorBox
3. TEdit

выбираешь в ColorBox'e цвет
щелкаешь на батон
в Edit'e видишь код