Changeset 19 for trunk/Forms


Ignore:
Timestamp:
Mar 22, 2018, 10:41:00 PM (6 years ago)
Author:
chronos
Message:
  • Added: Remember main form and preferences form dimensions.
  • Added: Windows installer script.
  • Added: 32-bit mysql library binary.
  • Removed: Dependency on synapse package which can't be compiled under 64-bit CPU.
Location:
trunk
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        66*.lrj
        77heaptrclog.trc
         8MyData.exe

  • trunk/Forms/UFormAbout.lfm

    r16 r19  
    11object FormAbout: TFormAbout
    22  Left = 522
    3   Height = 387
     3  Height = 329
    44  Top = 335
    5   Width = 524
     5  Width = 584
    66  Caption = 'About'
    7   ClientHeight = 387
    8   ClientWidth = 524
    9   DesignTimePPI = 120
     7  ClientHeight = 329
     8  ClientWidth = 584
     9  DesignTimePPI = 144
    1010  OnCreate = FormCreate
    1111  OnShow = FormShow
    1212  Position = poScreenCenter
    13   LCLVersion = '1.8.0.6'
     13  LCLVersion = '1.8.2.0'
    1414  object LabelDescription: TLabel
    1515    Left = 25
    1616    Height = 40
    1717    Top = 137
    18     Width = 474
     18    Width = 534
    1919    Align = alTop
    2020    AutoSize = False
    … …  
    2424  end
    2525  object ButtonClose: TButton
    26     Left = 383
     26    Left = 443
    2727    Height = 31
    28     Top = 337
     28    Top = 278
    2929    Width = 116
    3030    Anchors = [akRight, akBottom]
    … …  
    3535  object LabelContent: TLabel
    3636    Left = 25
    37     Height = 20
     37    Height = 25
    3838    Top = 202
    39     Width = 474
     39    Width = 534
    4040    Align = alTop
    4141    BorderSpacing.Around = 25
    … …  
    4646    Left = 20
    4747    Height = 31
    48     Top = 337
     48    Top = 279
    4949    Width = 220
    5050    Anchors = [akLeft, akBottom]
    … …  
    5757    Height = 112
    5858    Top = 0
    59     Width = 524
     59    Width = 584
    6060    Align = alTop
    6161    BevelOuter = bvNone
    6262    ClientHeight = 112
    63     ClientWidth = 524
     63    ClientWidth = 584
    6464    TabOrder = 2
    6565    object LabelAppName: TLabel
    … …  
    6767      Height = 80
    6868      Top = 24
    69       Width = 394
     69      Width = 454
    7070      Align = alCustom
    7171      Anchors = [akTop, akLeft, akRight, akBottom]

  • trunk/Forms/UFormMain.lfm

    r16 r19  
    55  Width = 1250
    66  Caption = 'MyData'
    7   ClientHeight = 815
     7  ClientHeight = 819
    88  ClientWidth = 1250
     9  DesignTimePPI = 144
    910  Menu = MainMenu1
    1011  OnActivate = FormActivate
    1112  OnClose = FormClose
    1213  OnShow = FormShow
    13   LCLVersion = '1.8.0.4'
     14  LCLVersion = '1.8.2.0'
    1415  WindowState = wsMaximized
    1516  object StatusBar1: TStatusBar
    1617    Left = 0
    17     Height = 30
    18     Top = 785
     18    Height = 36
     19    Top = 783
    1920    Width = 1250
    2021    Panels = <>

  • trunk/Forms/UFormMain.pas

    r17 r19  
    5656begin
    5757  Core.Done;
     58  Core.PersistentForm1.Save(Self);
    5859end;
    5960
    6061procedure TFormMain.FormShow(Sender: TObject);
    6162begin
     63  Core.PersistentForm1.Load(Self, True);
    6264  DockInit;
    6365end;

  • trunk/Forms/UFormPreferences.lfm

    r10 r19  
    77  ClientHeight = 422
    88  ClientWidth = 577
    9   LCLVersion = '1.5'
     9  DesignTimePPI = 144
     10  OnClose = FormClose
     11  OnShow = FormShow
     12  LCLVersion = '1.8.2.0'
    1013  object CheckBoxRememberDatabase: TCheckBox
    1114    Left = 18
    12     Height = 27
     15    Height = 29
    1316    Top = 20
    14     Width = 215
     17    Width = 194
    1518    Caption = 'Remember database'
    1619    TabOrder = 0
    … …  
    3841  object ComboBoxLanguage: TComboBox
    3942    Left = 192
    40     Height = 35
     43    Height = 33
    4144    Top = 64
    4245    Width = 292
    43     ItemHeight = 0
     46    ItemHeight = 25
    4447    Style = csDropDownList
    4548    TabOrder = 3
    … …  
    4952    Height = 25
    5053    Top = 65
    51     Width = 95
     54    Width = 81
    5255    Caption = 'Language:'
    5356    ParentColor = False

  • trunk/Forms/UFormPreferences.pas

    r10 r19  
    1818    ComboBoxLanguage: TComboBox;
    1919    Label1: TLabel;
     20    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     21    procedure FormShow(Sender: TObject);
    2022  private
    2123    { private declarations }
    … …  
    3739{ TFormPreferences }
    3840
     41procedure TFormPreferences.FormShow(Sender: TObject);
     42begin
     43  Core.PersistentForm1.Load(Self);
     44end;
     45
     46procedure TFormPreferences.FormClose(Sender: TObject;
     47  var CloseAction: TCloseAction);
     48begin
     49  Core.PersistentForm1.Save(Self)
     50end;
     51
    3952procedure TFormPreferences.Load(Preferences: TPreferences);
    4053begin

  • trunk/Forms/UFormRecord.lfm

    r16 r19  
    44  Top = 223
    55  Width = 858
    6   Caption = 'FormRecord'
     6  Caption = 'Record'
    77  ClientHeight = 649
    88  ClientWidth = 858
     9  DesignTimePPI = 144
    910  OnCreate = FormCreate
    1011  OnDestroy = FormDestroy
    1112  OnShow = FormShow
    1213  Position = poMainFormCenter
    13   LCLVersion = '1.8.0.4'
     14  LCLVersion = '1.8.2.0'
    1415  object Panel1: TPanel
    1516    Left = 4
Note: See TracChangeset for help on using the changeset viewer.