Changeset 154


Ignore:
Timestamp:
Oct 16, 2017, 3:44:47 PM (7 years ago)
Author:
chronos
Message:
  • Fixed: Settings dialog buttons position on form resize.
Location:
trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormSettings.lfm

    r151 r154  
    11object FormSettings: TFormSettings
    22  Left = 798
    3   Height = 491
     3  Height = 371
    44  Top = 367
    5   Width = 689
     5  Width = 590
    66  Caption = 'Settings'
    7   ClientHeight = 491
    8   ClientWidth = 689
     7  ClientHeight = 371
     8  ClientWidth = 590
     9  Constraints.MinHeight = 328
     10  Constraints.MinWidth = 389
    911  OnCreate = FormCreate
    1012  OnShow = FormShow
    … …  
    1214  LCLVersion = '1.6.4.0'
    1315  object ComboBoxLanguage: TComboBox
    14     Left = 184
     16    Left = 152
    1517    Height = 28
    1618    Top = 24
    17     Width = 236
     19    Width = 208
    1820    ItemHeight = 20
    1921    Style = csDropDownList
    … …  
    2931  end
    3032  object ButtonOk: TButton
    31     Left = 584
     33    Left = 506
    3234    Height = 25
    33     Top = 448
     35    Top = 326
    3436    Width = 75
    35     Anchors = [akRight]
     37    Anchors = [akRight, akBottom]
    3638    Caption = 'Ok'
    3739    ModalResult = 1
    … …  
    4042  end
    4143  object ButtonCancel: TButton
    42     Left = 459
     44    Left = 410
    4345    Height = 25
    44     Top = 447
     46    Top = 326
    4547    Width = 75
    4648    Anchors = [akRight, akBottom]
    … …  
    7577  end
    7678  object CheckBoxAutomaticDPI: TCheckBox
    77     Left = 18
     79    Left = 16
    7880    Height = 24
    79     Top = 191
     81    Top = 192
    8082    Width = 120
    8183    Caption = 'Automatic DPI'
    … …  
    8587  end
    8688  object SpinEditDPI: TSpinEdit
    87     Left = 96
     89    Left = 94
    8890    Height = 28
    89     Top = 221
     91    Top = 222
    9092    Width = 97
    9193    MaxValue = 300
    … …  
    9698  end
    9799  object Label2: TLabel
    98     Left = 48
     100    Left = 46
    99101    Height = 20
    100     Top = 221
     102    Top = 222
    101103    Width = 26
    102104    Caption = 'DPI:'
    … …  
    105107  end
    106108  object CheckBoxReopenLastFileOnStart: TCheckBox
    107     Left = 360
     109    Left = 16
    108110    Height = 24
    109     Top = 64
     111    Top = 160
    110112    Width = 181
    111113    Caption = 'Reopen last file on start'
    112114    TabOrder = 8
    113115  end
     116  object Bevel1: TBevel
     117    Left = 8
     118    Height = 2
     119    Top = 309
     120    Width = 570
     121    Anchors = [akLeft, akRight, akBottom]
     122  end
    114123end

  • trunk/Forms/UFormSettings.pas

    r151 r154  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   Menus, Spin, ULanguages;
     9  Menus, Spin, ExtCtrls, ULanguages;
    1010
    1111type
    … …  
    1414
    1515  TFormSettings = class(TForm)
     16    Bevel1: TBevel;
    1617    ButtonOk: TButton;
    1718    ButtonCancel: TButton;

  • trunk/UAcronym.pas

    r152 r154  
    713713    NewNode := Node.OwnerDocument.CreateElement('Ref');
    714714    Node.AppendChild(NewNode);
    715     NewNode.TextContent := IntToStr(TImportSource(Items[I]).Id);
     715    NewNode.TextContent := WideString(IntToStr(TImportSource(Items[I]).Id));
    716716  end;
    717717end;
    … …  
    725725  Node2 := Node.FirstChild;
    726726  while Assigned(Node2) and (Node2.NodeName = 'Ref') do begin
    727     if TryStrToInt(Node2.TextContent, Id) then begin
     727    if TryStrToInt(string(Node2.TextContent), Id) then begin
    728728      Source := AcronymDb.ImportSources.SearchById(Id);
    729729      if Assigned(Source) then begin
    … …  
    12281228    NewNode := Node.OwnerDocument.CreateElement('Ref');
    12291229    Node.AppendChild(NewNode);
    1230     NewNode.TextContent := IntToStr(TAcronymCategory(Items[I]).Id);
     1230    NewNode.TextContent := WideString(IntToStr(TAcronymCategory(Items[I]).Id));
    12311231  end;
    12321232end;
    … …  
    12401240  Node2 := Node.FirstChild;
    12411241  while Assigned(Node2) and (Node2.NodeName = 'Ref') do begin
    1242     if TryStrToInt(Node2.TextContent, Id) then begin
     1242    if TryStrToInt(string(Node2.TextContent), Id) then begin
    12431243      Category := Db.Categories.SearchById(Id);
    12441244      if Assigned(Category) then begin

  • trunk/UCore.lfm

    r149 r154  
    34423442    EmailContact = 'robie@centrum.cz'
    34433443    AppName = 'Acronym Decoder'
    3444     ReleaseDate = 42714
     3444    ReleaseDate = 43024
    34453445    RegistryKey = '\Software\'
    34463446    RegistryRoot = rrKeyCurrentUser
Note: See TracChangeset for help on using the changeset viewer.