Форум: "Основная";
Текущий архив: 2003.10.30;
Скачать: [xml.tar.bz2];
Вниз
Показ картинки в 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.018 c