- Timestamp:
- Jul 19, 2024, 8:29:45 PM (4 months ago)
- Location:
- trunk
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Core.pas
r174 r176 486 486 TFormEx.PersistentForm := PersistentForm1; 487 487 488 FormMain := TFormMain.Create(nil);488 Application.CreateForm(TFormMain, FormMain); 489 489 FormMain.Show; 490 490 end; … … 496 496 if Assigned(ProfileImage) then 497 497 FreeAndNil(ProfileImage); 498 FreeAndNil(FormMain);499 498 end; 500 499 -
trunk/Forms/FormMain.pas
r174 r176 127 127 procedure TFormMain.FormDestroy(Sender: TObject); 128 128 begin 129 Core.Core.OnDataFileChange := nil; 130 Core.Core.OnLastOpenedListChange := nil; 129 131 FreeAndNil(FormContacts); 130 132 end; -
trunk/Packages/Common/FormEx.pas
r174 r176 13 13 private 14 14 FCounter: Integer; static; 15 FFirstShow: Boolean; 15 16 protected 16 17 procedure DoShow; override; … … 45 46 begin 46 47 inherited; 47 PersistentForm.Load(Self); 48 FullScreen := PersistentForm.FormFullScreen; 48 if not FFirstShow and (not (csDesigning in ComponentState)) then begin 49 FFirstShow := True; 50 PersistentForm.Load(Self); 51 FullScreen := PersistentForm.FormFullScreen; 52 end; 49 53 end; 50 54 … … 78 82 procedure TFormEx.DoClose(var CloseAction: TCloseAction); 79 83 begin 80 PersistentForm.FormFullScreen := FullScreen; 81 PersistentForm.Save(Self); 84 if (not (csDesigning in ComponentState)) then begin 85 PersistentForm.FormFullScreen := FullScreen; 86 PersistentForm.Save(Self); 87 end; 82 88 inherited; 83 89 end; -
trunk/Packages/Common/PersistentForm.pas
r175 r176 303 303 304 304 procedure TPersistentForm.SetFullScreen(State: Boolean); 305 {$IFDEF UNIX} 305 306 var 306 307 OldHandler: TNotifyEvent; 307 308 var 308 309 I: Integer; 310 {$ENDIF} 309 311 begin 310 312 if State then begin
Note:
See TracChangeset
for help on using the changeset viewer.