paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 12:41:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed invaldating hintwindow on changing hintstr

Browse Source 
git-svn-id: trunk@7084 -
This commit is contained in:
mattias 2005-04-18 14:40:36 +00:00
parent 3aec082914
commit 69d1fb9e09
3 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/grid_semaphor/example/project1.lpi
View File

@ -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"/>

4
lcl/include/application.inc
View File

@ -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

5
lcl/include/hintwindow.inc
View File

@ -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;