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

fixed double creating hints in OI

Browse Source 
git-svn-id: trunk@9820 -
This commit is contained in:
mattias 2006-09-06 08:53:48 +00:00
parent 3080a56bcc
commit cbbc16493d
2 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ideintf/idedialogs.pas
View File

@ -39,7 +39,7 @@ function LazSelectDirectory(const Title: string; const InitialDir: string = ''
): string; ): string;
var var
LazIDESelectDirectory: TIDESelectDirectory;// set by the IDE LazIDESelectDirectory: TIDESelectDirectory = nil;// set by the IDE
InitIDEFileDialog: TInitIDEFileDialog = nil; InitIDEFileDialog: TInitIDEFileDialog = nil;
StoreIDEFileDialog: TStoreIDEFileDialog = nil ; StoreIDEFileDialog: TStoreIDEFileDialog = nil ;
IDEMessageDialog: TIDEMessageDialog = nil; IDEMessageDialog: TIDEMessageDialog = nil;

21
ideintf/objectinspector.pp
View File

@ -926,18 +926,21 @@ end;
function TOICustomPropertyGrid.InitHints: boolean; function TOICustomPropertyGrid.InitHints: boolean;
begin begin
if not ShowHint then exit(false); if not ShowHint then exit(false);
Result:=true; Result:=true;
FHintTimer := TTimer.Create(nil); if FHintTimer=nil then begin
FHintTimer.Interval := 500; FHintTimer := TTimer.Create(nil);
FHintTimer.Enabled := False; FHintTimer.Interval := 500;
FHintTimer.OnTimer := @HintTimer; FHintTimer.Enabled := False;
FHintTimer.OnTimer := @HintTimer;
FHintWindow := THintWindow.Create(Self); FHintWindow := THintWindow.Create(Self);
FHIntWindow.Visible := False; FHIntWindow.Visible := False;
FHintWindow.Caption := 'This is a hint window'#13#10'Neat huh?'; FHintWindow.Caption := 'This is a hint window'#13#10'Neat huh?';
FHintWindow.HideInterval := 4000; FHintWindow.HideInterval := 4000;
FHintWindow.AutoHide := True; FHintWindow.AutoHide := True;
end;
end; end;
function TOICustomPropertyGrid.ConsistencyCheck: integer; function TOICustomPropertyGrid.ConsistencyCheck: integer;