Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c