RichEdit... CheckListBox

← →
EugenCFG (2002-07-18 23:10) [0]

Как в этих компонентах можно вставить рисунок????

← →
AL2002 © (2002-07-18 23:35) [1]

По-видимому, никак, окромя символьных рисунков.

← →
EugenCFG (2002-07-23 08:43) [2]

Можно вставлять любые....
по крайней мере в CheckList это 100%

← →
Song © (2002-07-23 10:01) [3]

В TRichEdit рисовать на канвасе
В TCheckListBox тоже самое на событие onDrawItem

← →
EugenCFG (2002-07-23 13:11) [4]

А где бы пример можно глянуть?

← →
Song © (2002-07-23 13:18) [5]

BitMap:TBitMap;

TRichEdit:
With TCanvas.Create Do try Handle:=GetDC(RichEdit1.Handle); BitMap:=TBitMap.Create; BitMap.LoadFromFile("1.bmp"); Draw(10,10,BitMap); BitMap.Free; finally Free; end;

TCheckListBox:
procedure TForm1.CheckListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin With TCheckListBox(Control) Do Begin BitMap:=TBitMap.Create; BitMap.LoadFromFile("1.bmp"); Canvas.FillRect(Rect); Canvas.Draw(Rect.Left+2,Rect.Top+2,BiMap); Canvas.TextOut(Rect.Left+20,Rect.Top+2,Items[Index]); BitMap.Free; End; end;

← →
EugenCFG (2002-07-23 13:19) [6]

Спасибо большое....!!!
Пробую....

← →
Song © (2002-07-23 13:21) [7]

У TCheckListBox"а надо поставить стиль OwnerDrawVariable/Fixed

← →
EugenCFG (2002-07-23 13:22) [8]

меня RxCheck....
думаю особой разниуы нет....

← →
Song © (2002-07-23 13:24) [9]

>> у меня RxCheck....

Там по-моему ещё легче... Нет ли там своего метода вставки рисунка? Я не использовал никогда Rx поэтому не знаю.

← →
EugenCFG (2002-07-23 13:38) [10]

По-моему в RX нельзя вообще вставить рисунок этим методом...!!!
Сейчас пробую... разные варианты

← →
EugenCFG (2002-07-23 13:47) [11]

Вообще тупость полная!
У меня в программе не хочет вообще ни чё работать...

Создаю новое приложение - работает легко в RichEdit1

Но в RxCheKL.... Вообще не хочет....!!

В обычном СheckList тоже не пашет....

Не понятно...

← →
Song © (2002-07-23 14:35) [12]

Как именно не пашет? Не выводит, не запускается, ни компилится ещё как-то?
TCheckListBox.Style:=OwnerDrawFixed; поставили?

← →
EugenCFG (2002-07-23 14:51) [13]

BitMap:=TBitMap.Create;
[Error] Unit1.pas(62): "(" expected but ":=" found
BitMap.LoadFromFile("1.bmp");
[Error] Unit1.pas(63): Object or class type required
.........
[Error] Unit1.pas(65): Undeclared identifier: "BiMap"
............
[Error] Unit1.pas(67): Object or class type required

Одного рода ошибки.... не пойму в чём дело... ща пробую ещё кое чё...
Но достаточно странно то, что это не работает в моей программе...
Может этому мешает Rx компоненты....???

← →
Song © (2002-07-23 14:58) [14]

Он у Вас запрашивает скобку, это значит что хочет видеть AOwner в конструкторе Create. У класса TBitMap нет AOwner. Может Вы продекларировали BitMap как TImage?
Что касается [Error] Unit1.pas(65): Undeclared identifier: "BiMap" это моя вина, я пропустил букву "t"- могли бы догадаться.
Поставьте внутри обработчика Var BitMap:TBitMap; - посмотрите что получится.

← →
EugenCFG (2002-07-23 15:19) [15]

Спасибо разобрался..... на счёт 65 ошибки ... Я просто дальше не разбирал....
Вообще Вам ОГРОМНОЕ спасибо...!
Вы мне очень сильно помогли, но всё же в моей программе это не хочет работать... ((((
Буду разбираться.... хоть основа есть...

← →
Song © (2002-07-23 15:21) [16]

Опять же.. как оно не работает? Уже компилится или всё ещё нет. Или компилится и не работает? Если не работает то как?

← →
EugenCFG (2002-07-23 15:22) [17]

Вообще, ))) теперь не выводит изображение...
Стиль как надо поставил... ))

А.. там итемы есть или пустой компонент? :-)

С итемами оно работает как соловей поёт... а если Вам нужно выводить на пустой компонент.. скажем как фоновую картинку.. то :-) мы тогда вообще не о том поём последний час :-))

← →
EugenCFG (2002-07-23 15:33) [20]

Да нет уж ))) О том.... и итемы я вывожу сл. образом...
Form1.CheckListBox1.Items.CommaText:="23,123,ABC";

??

Евгений, я только что проверял. Даже имея полное доверие к своему коду, набранному не в Дельфи, а в форме, я только что загрузил Дельфи, повесил этот обработчик на TCheckListBox. Взял картинку bmp 16x16 напехал итемов 7 штук от 1 до 7 и проверил!!!!!! >:-) Всё работает!

← →
EugenCFG (2002-07-23 16:19) [22]

Вы счастливый человек! Вот что я вам скажу... )))

А я тормоз... Подумать совсем лень.. вообщем вы извените меня за ...

Короче всё работает... Замечательно!
Только картинки здоровые... не умещаются...
но ето ерунда....

Всё спасибо!!!

Теперь я этот форум не буду беспокоить до числа 8 августа...

← →
EugenCFG (2002-07-23 16:23) [23]

Следующий ворос (на всякий случай)
Анимации в RichEdit..
)))))))))

Жалко у вас мыла не видно....
Ну это к лучшему.. )))

2EugenCFG (23.07.02 16:23)
ICQ 49946169
Если по мылу, то мы с Вами походу дела будем переписываться целую вечность... :-/

← →
EugenCFG (2002-07-23 16:30) [25]

)))

Ладно... Спасибо за доверие.. не буду засорять форум....

RichEdit... CheckListBox Найти похожие ветки