Главная страница
    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.043 c
15-1164298836
Mr. D
2006-11-23 19:20
2006.12.10
Посоветуйте простенький DHCP-сервер


15-1163861579
vasIzmax
2006-11-18 17:52
2006.12.10
Алгоритм, Футбол, Тотализатор


2-1162976091
first_may
2006-11-08 11:54
2006.12.10
Директива $IFDEF


2-1164115226
Mishenka
2006-11-21 16:20
2006.12.10
Как в Image загрузить PCX файл?


15-1164019936
Cyrax
2006-11-20 13:52
2006.12.10
Имеет ли C преимущества перед C++ в системном программировании





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