Форум: "Основная";
Текущий архив: 2002.08.05;
Скачать: [xml.tar.bz2];
Вниз
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]Вообще, ))) теперь не выводит изображение...
Стиль как надо поставил... ))
← →
Song (2002-07-23 15:24) [18]А.. там итемы есть или пустой компонент? :-)
← →
Song (2002-07-23 15:29) [19]С итемами оно работает как соловей поёт... а если Вам нужно выводить на пустой компонент.. скажем как фоновую картинку.. то :-) мы тогда вообще не о том поём последний час :-))
← →
EugenCFG (2002-07-23 15:33) [20]Да нет уж ))) О том.... и итемы я вывожу сл. образом...
Form1.CheckListBox1.Items.CommaText:="23,123,ABC";
??
← →
Song (2002-07-23 15:37) [21]Евгений, я только что проверял. Даже имея полное доверие к своему коду, набранному не в Дельфи, а в форме, я только что загрузил Дельфи, повесил этот обработчик на TCheckListBox. Взял картинку bmp 16x16 напехал итемов 7 штук от 1 до 7 и проверил!!!!!! >:-) Всё работает!
← →
EugenCFG (2002-07-23 16:19) [22]Вы счастливый человек! Вот что я вам скажу... )))
А я тормоз... Подумать совсем лень.. вообщем вы извените меня за ...
Короче всё работает... Замечательно!
Только картинки здоровые... не умещаются...
но ето ерунда....
Всё спасибо!!!
Теперь я этот форум не буду беспокоить до числа 8 августа...
← →
EugenCFG (2002-07-23 16:23) [23]Следующий ворос (на всякий случай)
Анимации в RichEdit..
)))))))))
Жалко у вас мыла не видно....
Ну это к лучшему.. )))
← →
Song (2002-07-23 16:26) [24]2EugenCFG (23.07.02 16:23)
ICQ 49946169
Если по мылу, то мы с Вами походу дела будем переписываться целую вечность... :-/
← →
EugenCFG (2002-07-23 16:30) [25])))
Ладно... Спасибо за доверие.. не буду засорять форум....
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.08.05;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.006 c
