Changeset 487 for Common/Demo/PersistentForm/Unit1.pas

Timestamp:

Jul 26, 2016, 11:26:11 PM (8 years ago)

Author:

chronos

Message:

• Modified: Improved ScaleDPI component.
• Modified: Improved storing position with TPersistentForm.

File:

• Common/Demo/PersistentForm/Unit1.pas (modified) (2 diffs)

Common/Demo/PersistentForm/Unit1.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Buttons,
-  StdCtrls, ExtCtrls, ComCtrls, UPersistentForm;
+  Classes, SysUtils, XMLConf, FileUtil, Forms, Controls, Graphics, Dialogs,
+  Buttons, StdCtrls, ExtCtrls, ComCtrls, Menus, XMLPropStorage, UPersistentForm;
 
 type
@@ -17 +17 @@
     PersistentForm1: TPersistentForm;
     Timer1: TTimer;
+    XMLConfig1: TXMLConfig;
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormResize(Sender: TObject);