Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.30;
Скачать: CL | DM;

Вниз

Показ картинки в Hint e   Найти похожие ветки 

 
Dmitriy   (2003-10-20 20:08) [0]

Как произвести показ картинки в сплывающей подсказке? Есть мысли по поводу использования THintWindow с целью переопределения его методов и рисования на экране, но может быть есть легче способ?


 
VMcL ©   (2003-10-20 20:10) [1]

THintWindow


 
Dmitriy   (2003-10-20 20:19) [2]

А примера случайно нема?


 
Guerrillero ©   (2003-10-20 23:36) [3]

Рисует кружок справа от текста:

type
TPictureHint = class(THintWindow)
public
function CalcHintRect(MaxWidth: Integer; const AHint: string;
AData: Pointer): TRect; override;
procedure Paint; override;
end;

{ TPictureHint }

function TPictureHint.CalcHintRect(MaxWidth: Integer; const AHint: string;
AData: Pointer): TRect;
begin
Result := inherited CalcHintRect(MaxWidth,AHint,AData);
Result.Right := Result.Right + 20;
end;

procedure TPictureHint.Paint;
var
R: TRect;
begin
inherited;
with Canvas do
begin
R := ClipRect;
Brush.Color := clRed;
Ellipse(Rect(R.Right - 15,R.Top + 3,R.Right - 5,R.Bottom - 3));
Brush.Color := Application.HintColor;
end;
end;

initialization
Application.ShowHint := False;
HintWindowClass := TPictureHint;
Application.ShowHint := True;
finalization

end.



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

Текущий архив: 2003.10.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
1-98552
Opera
2003-10-20 02:36
2003.10.30
Rx


3-98516
Брат
2003-10-09 09:11
2003.10.30
Ошибка в OnCalcFields


4-98924
Maxim Pshevlotsky
2003-08-23 04:34
2003.10.30
Как вызвать контекстное меню проводника windows?


8-98747
Andrew S
2003-06-26 18:39
2003.10.30
Палитра TBitmap


1-98685
Term
2003-10-21 12:04
2003.10.30
Как определить имя компьютера?