Changeset 73 for trunk/Forms


Ignore:
Timestamp:
Oct 27, 2016, 3:00:47 PM (8 years ago)
Author:
chronos
Message:
  • Added: Remember position and size of main form after close of application.
  • Modified: Updated Common package to latest version.
Location:
trunk/Forms
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormMain.lfm

    r72 r73  
    55  Width = 860
    66  Caption = 'LazFuck'
    7   ClientHeight = 558
     7  ClientHeight = 561
    88  ClientWidth = 860
    99  Menu = MainMenu1
     10  OnClose = FormClose
    1011  OnCloseQuery = FormCloseQuery
    1112  OnCreate = FormCreate
    1213  OnDestroy = FormDestroy
    1314  OnShow = FormShow
    14   LCLVersion = '1.7'
     15  LCLVersion = '1.6.0.4'
    1516  WindowState = wsMaximized
    1617  object StatusBarMain: TStatusBar
    1718    Left = 0
    18     Height = 24
    19     Top = 534
     19    Height = 28
     20    Top = 533
    2021    Width = 860
    2122    Panels = <   
     
    130131  object PageControlRight: TPageControl
    131132    Left = 467
    132     Height = 508
     133    Height = 507
    133134    Top = 26
    134135    Width = 393
     
    140141    object TabSheetDebug: TTabSheet
    141142      Caption = 'Debug'
    142       ClientHeight = 504
    143       ClientWidth = 313
     143      ClientHeight = 499
     144      ClientWidth = 359
    144145      object PanelInput: TPanel
    145146        Left = 0
    146147        Height = 64
    147148        Top = 0
    148         Width = 313
     149        Width = 359
    149150        Align = alTop
    150151        BevelOuter = bvNone
     
    156157        Height = 5
    157158        Top = 64
    158         Width = 313
     159        Width = 359
    159160        Align = alTop
    160161        ResizeAnchor = akTop
     
    164165        Height = 259
    165166        Top = 69
    166         Width = 313
     167        Width = 359
    167168        Align = alTop
    168169        BevelOuter = bvNone
     
    174175        Height = 5
    175176        Top = 328
    176         Width = 313
     177        Width = 359
    177178        Align = alTop
    178179        ResizeAnchor = akTop
     
    182183        Height = 86
    183184        Top = 333
    184         Width = 313
     185        Width = 359
    185186        Align = alTop
    186187        BevelOuter = bvNone
     
    192193        Height = 5
    193194        Top = 419
    194         Width = 313
     195        Width = 359
    195196        Align = alTop
    196197        ResizeAnchor = akTop
     
    198199      object PanelMemory: TPanel
    199200        Left = 0
    200         Height = 80
     201        Height = 75
    201202        Top = 424
    202         Width = 313
     203        Width = 359
    203204        Align = alClient
    204205        BevelOuter = bvNone
     
    209210  object Splitter1: TSplitter
    210211    Left = 462
    211     Height = 508
     212    Height = 507
    212213    Top = 26
    213214    Width = 5
     
    217218  object PanelLeft: TPanel
    218219    Left = 0
    219     Height = 508
     220    Height = 507
    220221    Top = 26
    221222    Width = 462
    222223    Align = alClient
    223224    BevelOuter = bvNone
    224     ClientHeight = 508
     225    ClientHeight = 507
    225226    ClientWidth = 462
    226227    TabOrder = 4
    227228    object PageControlMain: TPageControl
    228229      Left = 0
    229       Height = 385
     230      Height = 384
    230231      Top = 0
    231232      Width = 462
     
    245246      Left = 0
    246247      Height = 118
    247       Top = 390
     248      Top = 389
    248249      Width = 462
    249250      ActivePage = TabSheetMessages
     
    260261      Left = 0
    261262      Height = 5
    262       Top = 385
     263      Top = 384
    263264      Width = 462
    264265      Align = alBottom
  • trunk/Forms/UFormMain.pas

    r72 r73  
    135135    procedure AViewInterpretterExecute(Sender: TObject);
    136136    procedure AViewLogExecute(Sender: TObject);
     137    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    137138    procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
    138139    procedure FormCreate(Sender: TObject);
     
    200201  UpdateTargetList;
    201202  DockInit;
     203  Core.PersistentForm1.Load(Self);
    202204end;
    203205
     
    439441end;
    440442
     443procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
     444begin
     445  Core.PersistentForm1.Save(Self);
     446end;
     447
    441448procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: boolean);
    442449begin
  • trunk/Forms/UFormOptions.pas

    r72 r73  
    8686procedure TOptionsForm.Save;
    8787begin
    88   Core.ScaleDPI.DPI.X := SpinEditDPIX.Value;
    89   Core.ScaleDPI.DPI.Y := SpinEditDPIY.Value;
     88  Core.ScaleDPI.DPI := Point(SpinEditDPIX.Value, SpinEditDPIY.Value);
    9089  Core.ScaleDPI.AutoDetect := CheckBoxDPIAuto.Checked;
    9190  Core.OptimizationLevel := TCompilerOptimization(ComboBoxOptimizatipn.ItemIndex);
Note: See TracChangeset for help on using the changeset viewer.