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

LCL Carbon - fixed #0011947: IDE's find dialog crashes

Browse Source 
git-svn-id: trunk@16203 -
This commit is contained in:
tombo 2008-08-24 08:37:23 +00:00
parent 2545d4e005
commit 48d129c846
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/carbon/carbonedits.pp
View File

@ -643,7 +643,7 @@ begin
end;
FreeAndNil(FTimer);
FTimer := TTimer.Create(LCLObject);
FTimer := TTimer.Create(nil);
FTimer.Interval := 200;
FTimer.OnTimer := @DropDownTimer;
end;
@ -662,6 +662,8 @@ end;
procedure TCarbonComboBox.DestroyWidget;
begin
if FReadOnly then DisposeMenu(FPopupMenu);
if FTimer.Enabled then DropDownTimer(nil);
FTimer.Free;
inherited DestroyWidget;
end;

2
lcl/interfaces/carbon/carbonprivate.pp
View File

@ -1233,7 +1233,7 @@ begin
begin
if I >= FPanels.Count then // create new panel
begin
Panel := TPanel.Create(LCLObject);
Panel := TPanel.Create(nil);
Panel.Visible := False;
Panel.Height := LCLObject.Height;