Ignore:
Timestamp:
Jul 26, 2016, 11:26:11 PM (8 years ago)
Author:
chronos
Message:
  • Modified: Improved ScaleDPI component.
  • Modified: Improved storing position with TPersistentForm.
Location:
Common/Demo/PersistentForm
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • Common/Demo/PersistentForm/PersistentFormDemo.lpi

    r474 r487  
    2828      </local>
    2929    </RunParams>
    30     <RequiredPackages Count="2">
     30    <RequiredPackages Count="3">
    3131      <Item1>
    32         <PackageName Value="Common"/>
     32        <PackageName Value="FCL"/>
    3333      </Item1>
    3434      <Item2>
     35        <PackageName Value="Common"/>
     36        <DefaultFilename Value="../../Common.lpk" Prefer="True"/>
     37      </Item2>
     38      <Item3>
    3539        <PackageName Value="LCL"/>
    36       </Item2>
     40      </Item3>
    3741    </RequiredPackages>
    3842    <Units Count="2">
    … …  
    4044        <Filename Value="PersistentFormDemo.lpr"/>
    4145        <IsPartOfProject Value="True"/>
    42         <UnitName Value="PersistentFormDemo"/>
    4346      </Unit0>
    4447      <Unit1>
    … …  
    4649        <IsPartOfProject Value="True"/>
    4750        <ComponentName Value="Form1"/>
     51        <HasResources Value="True"/>
    4852        <ResourceBaseClass Value="Form"/>
    4953        <UnitName Value="Unit1"/>

  • Common/Demo/PersistentForm/Unit1.lfm

    r474 r487  
    11object Form1: TForm1
    2   Left = 779
     2  Left = 952
    33  Height = 622
    4   Top = 364
     4  Top = 489
    55  Width = 698
    66  Caption = 'PersistentForm demo'
    … …  
    4040    top = 314
    4141  end
     42  object XMLConfig1: TXMLConfig
     43    StartEmpty = False
     44    RootName = 'CONFIG'
     45    left = 240
     46    top = 217
     47  end
    4248end

  • Common/Demo/PersistentForm/Unit1.pas

    r474 r487  
    66
    77uses
    8   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Buttons,
    9   StdCtrls, ExtCtrls, ComCtrls, UPersistentForm;
     8  Classes, SysUtils, XMLConf, FileUtil, Forms, Controls, Graphics, Dialogs,
     9  Buttons, StdCtrls, ExtCtrls, ComCtrls, Menus, XMLPropStorage, UPersistentForm;
    1010
    1111type
    … …  
    1717    PersistentForm1: TPersistentForm;
    1818    Timer1: TTimer;
     19    XMLConfig1: TXMLConfig;
    1920    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    2021    procedure FormResize(Sender: TObject);
Note: See TracChangeset for help on using the changeset viewer.