mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-27 20:34:01 +02:00
128 lines
3.2 KiB
PHP
128 lines
3.2 KiB
PHP
{ THintWindow }
|
|
|
|
constructor THintWindow.Create(AOwner: TComponent);
|
|
begin
|
|
inherited Create(AOwner);
|
|
fCompStyle := csHintWindow;
|
|
parent := nil;
|
|
Canvas.Font := Screen.HintFont;
|
|
color := clInfoBk;
|
|
Caption := 'THintWIndow';
|
|
SetBounds(1,1,25,25);
|
|
FHideInterval := 3000;
|
|
FAutoHideTimer := TTimer.Create(self);
|
|
TTimer(FAutoHideTImer).Interval := HideInterval;
|
|
TTimer(FAutoHideTimer).Enabled := False;
|
|
TTimer(FAutoHideTimer).OnTimer := @AutoHideHint;
|
|
end;
|
|
|
|
destructor THintWIndow.Destroy;
|
|
begin
|
|
fAutoHideTimer.Free;
|
|
inherited;
|
|
end;
|
|
|
|
Procedure THintWindow.SetHideInterval(Value : Integer);
|
|
Begin
|
|
FHideInterval := Value;
|
|
TTimer(FAutoHideTimer).Interval := FHideInterval;
|
|
end;
|
|
|
|
Procedure THintWindow.SetAutoHide(Value : Boolean);
|
|
Begin
|
|
FAutoHide := Value;
|
|
if not(value) then
|
|
TTimer(FAutoHideTimer).Enabled := False;
|
|
end;
|
|
|
|
|
|
Procedure THintWindow.AutoHideHint(Sender : TObject);
|
|
Begin
|
|
TTimer(FAutoHideTimer).Enabled := False;
|
|
if Visible then Hide;
|
|
End;
|
|
|
|
|
|
procedure THintWindow.Paint;
|
|
var
|
|
Rect: TRect;
|
|
DefaultDraw: Boolean;
|
|
begin
|
|
Rect := ClientRect;
|
|
Canvas.Brush.Color := Color;
|
|
Canvas.Brush.Style := bsSolid;
|
|
Canvas.Rectangle(Rect);
|
|
Canvas.TextRect(Rect, 3, 3, Caption);
|
|
end;
|
|
|
|
procedure THintWindow.ActivateHint(Rect: TRect; const AHint: String);
|
|
begin
|
|
FActivating := True;
|
|
try
|
|
Caption := AHint;
|
|
if Rect.Bottom > Screen.Height then
|
|
begin
|
|
Rect.Top := Screen.Height - (Rect.Bottom - Rect.Top);
|
|
Rect.Bottom := Screen.Height;
|
|
end;
|
|
if Rect.Right > Screen.Width then
|
|
begin
|
|
Rect.Left := Screen.Width - (Rect.Right - Rect.Left);
|
|
Rect.Right := Screen.Width;
|
|
end;
|
|
if Rect.Left < 0 then Rect.Left := 0;
|
|
if Rect.Bottom < 0 then Rect.Bottom := 0;
|
|
SetBounds(Rect.Left, Rect.Top, Rect.Right - Rect.Left, Rect.Bottom - Rect.Top);
|
|
Visible := True;
|
|
TTimer(FAutoHideTimer).Enabled := False;
|
|
TTimer(FAutoHideTimer).Enabled := FAutoHide;
|
|
finally
|
|
FActivating := False;
|
|
end;
|
|
end;
|
|
|
|
|
|
function THintWindow.CalcHintRect(MaxWidth: Integer; const AHint: String;
|
|
AData: Pointer): TRect;
|
|
var
|
|
Temp : Integer;
|
|
Num : Integer;
|
|
tempHint : String;
|
|
LongestLine : String;
|
|
Lines : Integer;
|
|
begin
|
|
Result.Left := 0;
|
|
Result.Top := 0;
|
|
|
|
TempHint := AHint;
|
|
LongestLine := '';
|
|
num := pos(#10,TempHint);
|
|
Lines := 1;
|
|
if Num > 0 then
|
|
Begin
|
|
//set TempHint to the longest line.
|
|
//set Lines to the number of lines.
|
|
while num > 0 do
|
|
Begin
|
|
inc(Lines);
|
|
if Canvas.TextWidth(copy(TempHint,1,num-1)) > Canvas.TextWidth(LongestLine) then
|
|
LongestLine := Copy(TempHint,1,num-1);
|
|
delete(TempHint,1,num);
|
|
Num := pos(#10,TempHint);
|
|
end;
|
|
end;
|
|
if Canvas.TextWidth(copy(TempHint,1,Length(TempHint))) > Canvas.TextWidth(LongestLine) then
|
|
LongestLine := Copy(TempHint,1,Length(TempHint));
|
|
|
|
TempHint := LongestLine;
|
|
if ((MaxWidth > 0) and (Canvas.TextWidth(TempHint) > MaxWidth)) then
|
|
Result.Right := Result.Left + MaxWidth
|
|
else
|
|
Result.Right := Result.Left + Canvas.TextWidth(TempHint);
|
|
Result.Bottom := result.Top + (Lines * (Canvas.TextHeight(AHint)));
|
|
Inc(Result.Bottom, 4);
|
|
Dec(Result.Top, 2);
|
|
Inc(Result.Right, 8);
|
|
end;
|
|
|