Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.62 MB
Время: 0.026 c
1-13721
Lion
2002-07-24 00:12
2002.08.05
StringGrid


1-13641
Xper
2002-07-19 23:40
2002.08.05
Удалить одинаковые строки из listbox


14-13797
Семен Семеныч
2002-07-09 11:38
2002.08.05
Народ, а из Одессы кто есть????


3-13550
studentik
2002-07-09 20:18
2002.08.05
Как перенести прогу, работающую с БД InterBase на


8-13733
Avgurin
2002-03-26 02:30
2002.08.05
Как сделать ScreenMate?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский