mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-06 23:26:32 +02:00
fixed invaldating hintwindow on changing hintstr
git-svn-id: trunk@7084 -
This commit is contained in:
parent
3aec082914
commit
69d1fb9e09
@ -8,7 +8,7 @@
|
|||||||
<SaveOnlyProjectUnits Value="True"/>
|
<SaveOnlyProjectUnits Value="True"/>
|
||||||
</Flags>
|
</Flags>
|
||||||
<MainUnit Value="0"/>
|
<MainUnit Value="0"/>
|
||||||
<ActiveEditorIndexAtStart Value="0"/>
|
<ActiveEditorIndexAtStart Value="1"/>
|
||||||
<IconPath Value="./"/>
|
<IconPath Value="./"/>
|
||||||
<TargetFileExt Value=".exe"/>
|
<TargetFileExt Value=".exe"/>
|
||||||
<Title Value="project1"/>
|
<Title Value="project1"/>
|
||||||
@ -16,7 +16,7 @@
|
|||||||
<Units Count="2">
|
<Units Count="2">
|
||||||
<Unit0>
|
<Unit0>
|
||||||
<CursorPos X="40" Y="32"/>
|
<CursorPos X="40" Y="32"/>
|
||||||
<EditorIndex Value="1"/>
|
<EditorIndex Value="2"/>
|
||||||
<Filename Value="project1.lpr"/>
|
<Filename Value="project1.lpr"/>
|
||||||
<IsPartOfProject Value="True"/>
|
<IsPartOfProject Value="True"/>
|
||||||
<Loaded Value="True"/>
|
<Loaded Value="True"/>
|
||||||
@ -25,7 +25,7 @@
|
|||||||
<UsageCount Value="41"/>
|
<UsageCount Value="41"/>
|
||||||
</Unit0>
|
</Unit0>
|
||||||
<Unit1>
|
<Unit1>
|
||||||
<CursorPos X="20" Y="185"/>
|
<CursorPos X="11" Y="171"/>
|
||||||
<EditorIndex Value="0"/>
|
<EditorIndex Value="0"/>
|
||||||
<Filename Value="unit1.pas"/>
|
<Filename Value="unit1.pas"/>
|
||||||
<ComponentName Value="Form1"/>
|
<ComponentName Value="Form1"/>
|
||||||
|
@ -641,6 +641,7 @@ begin
|
|||||||
|
|
||||||
FHintWindow.Color := HintInfo.HintColor;
|
FHintWindow.Color := HintInfo.HintColor;
|
||||||
|
|
||||||
|
//debugln('TApplication.ShowHintWindow B HintWinRect=',dbgs(HintWinRect),' HintStr="',DbgStr(HintInfo.HintStr),'"');
|
||||||
FHintWindow.ActivateHint(HintWinRect,HintInfo.HintStr);
|
FHintWindow.ActivateHint(HintWinRect,HintInfo.HintStr);
|
||||||
// start hide timer
|
// start hide timer
|
||||||
StartHintTimer(HintHidePause,ahtHideHint);
|
StartHintTimer(HintHidePause,ahtHideHint);
|
||||||
@ -1461,6 +1462,9 @@ end;
|
|||||||
{ =============================================================================
|
{ =============================================================================
|
||||||
|
|
||||||
$Log$
|
$Log$
|
||||||
|
Revision 1.117 2005/04/18 14:40:36 mattias
|
||||||
|
fixed invaldating hintwindow on changing hintstr
|
||||||
|
|
||||||
Revision 1.116 2005/04/17 18:41:15 micha
|
Revision 1.116 2005/04/17 18:41:15 micha
|
||||||
implement active default control switching
|
implement active default control switching
|
||||||
pressing return key executes active default control action
|
pressing return key executes active default control action
|
||||||
|
@ -103,10 +103,14 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure THintWindow.ActivateHint(ARect: TRect; const AHint: String);
|
procedure THintWindow.ActivateHint(ARect: TRect; const AHint: String);
|
||||||
|
var
|
||||||
|
InvalidateNeeded: Boolean;
|
||||||
begin
|
begin
|
||||||
if FActivating then exit;
|
if FActivating then exit;
|
||||||
FActivating := True;
|
FActivating := True;
|
||||||
try
|
try
|
||||||
|
//debugln('THintWindow.ActivateHint OldHint="',DbgStr(Caption),'" NewHint="',DbgStr(AHint),'"');
|
||||||
|
InvalidateNeeded:=Visible and (Caption<>Hint);
|
||||||
Caption := AHint;
|
Caption := AHint;
|
||||||
if ARect.Bottom > Screen.Height then
|
if ARect.Bottom > Screen.Height then
|
||||||
begin
|
begin
|
||||||
@ -125,6 +129,7 @@ begin
|
|||||||
Visible := True;
|
Visible := True;
|
||||||
TCustomTimer(FAutoHideTimer).Enabled := False;
|
TCustomTimer(FAutoHideTimer).Enabled := False;
|
||||||
TCustomTimer(FAutoHideTimer).Enabled := FAutoHide;
|
TCustomTimer(FAutoHideTimer).Enabled := FAutoHide;
|
||||||
|
if InvalidateNeeded then Invalidate;
|
||||||
finally
|
finally
|
||||||
FActivating := False;
|
FActivating := False;
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user