paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-22 16:21:37 +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;
var
LazIDESelectDirectory: TIDESelectDirectory;// set by the IDE
LazIDESelectDirectory: TIDESelectDirectory = nil;// set by the IDE
InitIDEFileDialog: TInitIDEFileDialog = nil;
StoreIDEFileDialog: TStoreIDEFileDialog = nil ;
IDEMessageDialog: TIDEMessageDialog = nil;

21
ideintf/objectinspector.pp
View File

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