Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "KOL";
Текущий архив: 2006.12.10;
Скачать: [xml.tar.bz2];

Вниз

Помогите начинающему в некоторых вопросах!   Найти похожие ветки 

 
Yurka R   (2006-02-17 21:35) [0]

1. Как задать ToolBar`у картинки для кнопок, чтоб на них действовало tboTransparent, а то они у меня не прозрачные!
2. Я установил событие OnMouse у Tray`я, и хочу обработать сообщение WM_LBUTTONUP, но ничего не получается

Tray.OnMouse := TOnTrayIconMouse(MakeMethod(Tray, @OnTrayIconMouse));
...
procedure OnTrayIconMouse(Sender: PObj; Message : Word);
begin
 case Message of
   WM_LBUTTONUP: begin
     msgok("Ok");
     end;
 end;
end;


 
Thaddy   (2006-02-17 22:20) [1]

1.

var
 Bitmap:Pbitmap;
 Imagelist:PImagelist;

   try
     Bitmap:=newbitmap (14*7,14);
     Bitmap.LoadFromFile("d:\program files\borland\kol\fonts.bmp");
     Imagelist:=NewImagelist(form);
     ImageList.ImgWidth:=16;
     ImageList.ImgHeight:=15;
     // here"s my trick:
     ImageList.AddMasked(Bitmap.Handle,bitmap.pixels[0,0]);
    //-----------------------------------------^^^^^^^
    finally
     Bitmap.free;
   end;
   // set the bitmap
   Toolbar.Perform(TB_SETIMAGELIST,0,Form1.ImageList.  Handle );


The trick is reading the pixel at 0,0. This is almost always the transparent color.
Maybe someone else can show the same code for MCK version ;)

2.
instead of

procedure OnTrayIconMouse(Sender: PObj; Message : Word);


It should be:

procedure OnTrayIconMouse(Dummy:Pointer;Sender: PObj; Message : Word);


Because it is a procedure of object, which has a hidden pointer to self as first parameter. (See kol.pas!)


 
Yurka R   (2006-02-17 22:38) [2]

Thank you very much Thaddy! :)



Страницы: 1 вся ветка

Форум: "KOL";
Текущий архив: 2006.12.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.038 c
2-1164034693
go2lo
2006-11-20 17:58
2006.12.10
Простое заксоривание.


2-1164290067
Elf@ck
2006-11-23 16:54
2006.12.10
работа с обьектами


2-1164214839
Галинка
2006-11-22 20:00
2006.12.10
"Резинка" в c#


15-1163765840
Petrovskyi
2006-11-17 15:17
2006.12.10
Документация по 1С в Инете


15-1163851830
Виталий___
2006-11-18 15:10
2006.12.10
Анализ свободных ответов





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский