ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
14.08.2008, 20:26
|
|
Постоянный
Регистрация: 05.05.2006
Сообщений: 743
Провел на форуме:
2982851
Репутация:
107
|
|
Как в RichEdit загнать из символьного массива ,эти самые текстовые символы?
|
|
|
15.08.2008, 12:55
|
|
Познающий
Регистрация: 15.02.2008
Сообщений: 98
Провел на форуме:
183980
Репутация:
50
|
|
O_o? невкурил...
давай ищё раз и поподробней
PS. string это тоже символьный масив
|
|
|
|
15.08.2008, 13:56
|
|
Постоянный
Регистрация: 05.05.2006
Сообщений: 743
Провел на форуме:
2982851
Репутация:
107
|
|
вообщем надо засунуть текст с таким _http://img388.imageshack.us/my.php?image=77973013xh5.jpg форматированием
|
|
|
|
15.08.2008, 17:52
|
|
Новичок
Регистрация: 26.06.2008
Сообщений: 15
Провел на форуме:
27936
Репутация:
13
|
|
Сообщение от _nic
вообщем надо засунуть текст с таким _http://img388.imageshack.us/my.php?image=77973013xh5.jpg форматированием
Так варианта 2:
1. присваивать атрибуты для seltext
2. сразу запихать в него "исходник" RTF, типа
Код:
S := '{\rtf1\ansi\ansicpg1251\uc1 \fs16' +
'{\b \ul\qc\widctlpar \fs20 ' + {WDCaption +} ' Заголовочег \line \line }' + 'Текст \line ' + '{\par }}'#0;
|
|
|
|
15.08.2008, 21:43
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от _nic
вообщем надо засунуть текст с таким _http://img388.imageshack.us/my.php?image=77973013xh5.jpg форматированием
RichEdit.
редактируешь, затем сохраняешь файл с расширением rtf
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
15.08.2008, 23:32
|
|
Постоянный
Регистрация: 05.05.2006
Сообщений: 743
Провел на форуме:
2982851
Репутация:
107
|
|
Сообщение от W!z@rD
RichEdit.
редактируешь, затем сохраняешь файл с расширением rtf
нельзя.файл должен быть только один то есть exe
|
|
|
|
16.08.2008, 16:32
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от _nic
нельзя.файл должен быть только один то есть exe
работа с ресурсами отменена по дефтолу?!!!!!!!
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
15.08.2008, 21:47
|
|
Постоянный
Регистрация: 07.05.2006
Сообщений: 732
Провел на форуме:
7910701
Репутация:
811
|
|
тут такая жопа возникла
нужно сделать на делфи прогу
тупую формочку
где палитра 16 ричного кода цвета
ставиш мышку на нужном цвете а он показывает код цвета
хз как реализовать. Мы в инсте ещё делфи не проходили :d
типа как в фотошопе
Последний раз редактировалось alextoun; 15.08.2008 в 21:50..
|
|
|
|
16.08.2008, 16:45
|
|
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 видишь код
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
16.08.2008, 03:24
|
|
Постоянный
Регистрация: 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..
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид