Графическая кнопка
Есть Рисунок Image1 и два Битмапа BitNormal и BitOver, все 16X16
Вот код:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (x>1) and (x<14) and (y>1) and (y<14) then
begin
Form1.Image1.Canvas.Draw(0,0,BitOver);
end
else
Form1.Image1.Canvas.Draw(0,0,BitNormal);
end;
Так вот, весь затык в том, что все работает отлично, если курсор
мыши двигать медленно.
А при быстрых движениях курсора не срабатывает.:confused:
Заранее спасибо.
Поясняю, кто не понял:
это подсветка граффической кнопки при наведении курсора, но проблема то что при быстром движении курсора алгоритм не выполняется! :confused: :confused: :confused:
...
при наведении курсора в область рисунка
Image1, где X>1,X<14,Y>1,Y<14
Рисуется BitMap BitOver с подсвеченным изображением,
иначе рисуется BitNormal
Вот код:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (x>1) and (x<14) and (y>1) and (y<14) then
begin
Form1.Image1.Canvas.Draw(0,0,BitOver);
end
else
Form1.Image1.Canvas.Draw(0,0,BitNormal);
end;
Так вот, весь затык в том, что все работает отлично, если курсор
мыши двигать медленно.
А при быстрых движениях курсора не срабатывает.:confused:
Заранее спасибо.
Поясняю, кто не понял:
это подсветка граффической кнопки при наведении курсора, но проблема то что при быстром движении курсора алгоритм не выполняется! :confused: :confused: :confused:
...
при наведении курсора в область рисунка
Image1, где X>1,X<14,Y>1,Y<14
Рисуется BitMap BitOver с подсвеченным изображением,
иначе рисуется BitNormal
[QUOTE=SCiPTAG]при наведении курсора в область рисунка[/QUOTE]
Выполняется SetCapture, при выходе - ReleaseCapture. Примеры смотреть в реализации TSpeedButton.
Выполняется SetCapture, при выходе - ReleaseCapture. Примеры смотреть в реализации TSpeedButton.
Не совсем то что надо.
Вот пример уже без рисунка:
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (x>1) and (x<14) and (y>1) and (y<14) then
begin
Form1.Label1.Font.Color:= clBlue;
end
else
Form1.Label1.Font.Color:= clNavy;
end;
Вот пример уже без рисунка:
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (x>1) and (x<14) and (y>1) and (y<14) then
begin
Form1.Label1.Font.Color:= clBlue;
end
else
Form1.Label1.Font.Color:= clNavy;
end;
тебе надо обрабатывать сообщения CM_MOUSEENTER и CM_MOUSELEAVE...
для TImage они не поддерживаются....
для TImage они не поддерживаются....
Нет просто когда наводишь быстро курсором на картинку она меняется на другую! Но если это делеть медленно! А если быстро зделать то код не пашет!
Эти кортинки я использую как кнопки!
При наведении происходит смена кортинок!
Но это надо делать медлено ато заедаит!
При наведении происходит смена кортинок!
Но это надо делать медлено ато заедаит!
возьми готовый компонент.....
или напиши свой на базе TCustomControl (при событии CM_MOUSEENTER ставь BitOver, а при CM_MOUSELEAVE - BitNormal)
или напиши свой на базе TCustomControl (при событии CM_MOUSEENTER ставь BitOver, а при CM_MOUSELEAVE - BitNormal)
Работай с событимаями OnMouseMove кнопки и других компонентов:
если кнопка, то зажигай, если другое, то гаси.
если кнопка, то зажигай, если другое, то гаси.