paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE save toolbutton is now updated on Idle

Browse Source 
git-svn-id: trunk@5760 -
This commit is contained in:
mattias 2004-08-09 18:28:16 +00:00
parent 0c6ffcf286
commit 36ac3ea512
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/customformeditor.pp
View File

@ -750,8 +750,10 @@ destructor TCustomFormEditor.Destroy;
begin
FormEditingHook:=nil;
DesignerMenuItemClick:=nil;
FDefineProperties.FreeAndClear;
FreeAndNil(FDefineProperties);
if FDefineProperties<>nil then begin
FDefineProperties.FreeAndClear;
FreeAndNil(FDefineProperties);
end;
FreeAndNil(JITFormList);
FreeAndNil(JITDataModuleList);
FreeAndNil(FComponentInterfaces);

8
ide/main.pp
View File

@ -9865,12 +9865,17 @@ begin
end;
procedure TMainIDE.OnApplicationIdle(Sender: TObject);
var
SrcEdit: TSourceEditor;
begin
UpdateWindowsMenu;
GetDefaultProcessList.FreeStoppedProcesses;
EnvironmentOptions.ExternalTools.FreeStoppedProcesses;
if (SplashForm<>nil) then FreeThenNil(SplashForm);
FormEditor1.PaintAllDesignerItems;
SrcEdit:=SourceNotebook.GetActiveSe;
MainIDEBar.SaveSpeedBtn.Enabled := (SrcEdit<>nil)
and SourceNotebook.GetActiveSe.Modified;
end;
procedure TMainIDE.OnScreenRemoveForm(Sender: TObject; AForm: TCustomForm);
@ -10543,6 +10548,9 @@ end.
{ =============================================================================
$Log$
Revision 1.750 2004/08/09 18:28:16 mattias
IDE save toolbutton is now updated on Idle
Revision 1.749 2004/08/09 15:46:34 mattias
implemented getting define properties for Repair broken LFM wizard