Ignore:
Timestamp:
Apr 8, 2022, 9:43:55 PM (3 years ago)
Author:
chronos
Message:
  • Modified: Use Generics.Collection instead of fgl for better Delphi compatibility.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormImage.lfm

    r103 r128  
    11object FormImage: TFormImage
    22  Left = 761
    3   Height = 546
     3  Height = 524
    44  Top = 539
    5   Width = 741
     5  Width = 711
    66  Caption = 'Photo'
    7   ClientHeight = 546
    8   ClientWidth = 741
    9   Constraints.MinHeight = 178
    10   Constraints.MinWidth = 741
    11   DesignTimePPI = 150
     7  ClientHeight = 524
     8  ClientWidth = 711
     9  Constraints.MinHeight = 171
     10  Constraints.MinWidth = 711
     11  DesignTimePPI = 144
    1212  OnClose = FormClose
    1313  OnCreate = FormCreate
    … …  
    1616  LCLVersion = '2.2.0.4'
    1717  object ImagePhoto: TImage
    18     Left = 16
    19     Height = 412
    20     Top = 16
    21     Width = 707
     18    Left = 15
     19    Height = 396
     20    Top = 15
     21    Width = 679
    2222    Anchors = [akTop, akLeft, akRight, akBottom]
    2323    Center = True
    … …  
    2626  end
    2727  object ButtonLoad: TButton
    28     Left = 16
    29     Height = 39
    30     Top = 492
    31     Width = 176
     28    Left = 15
     29    Height = 37
     30    Top = 473
     31    Width = 169
    3232    Anchors = [akLeft, akBottom]
    3333    Caption = 'Load from file'
    … …  
    3636  end
    3737  object ButtonSave: TButton
    38     Left = 200
    39     Height = 39
    40     Top = 491
    41     Width = 168
     38    Left = 192
     39    Height = 37
     40    Top = 472
     41    Width = 161
    4242    Anchors = [akLeft, akBottom]
    4343    Caption = 'Save to file'
    … …  
    4646  end
    4747  object ButtonClear: TButton
    48     Left = 376
    49     Height = 39
    50     Top = 492
    51     Width = 104
     48    Left = 361
     49    Height = 37
     50    Top = 473
     51    Width = 100
    5252    Anchors = [akLeft, akBottom]
    5353    Caption = 'Clear'
    … …  
    5656  end
    5757  object EditUrl: TEdit
    58     Left = 88
    59     Height = 43
    60     Top = 435
    61     Width = 635
     58    Left = 84
     59    Height = 42
     60    Top = 417
     61    Width = 610
    6262    Anchors = [akLeft, akRight, akBottom]
    6363    OnChange = EditUrlChange
    … …  
    6565  end
    6666  object ButtonCancel: TButton
    67     Left = 504
    68     Height = 39
    69     Top = 492
    70     Width = 104
     67    Left = 483
     68    Height = 37
     69    Top = 473
     70    Width = 100
    7171    Anchors = [akRight, akBottom]
    7272    Caption = 'Cancel'
    … …  
    7575  end
    7676  object ButtonOk: TButton
    77     Left = 619
    78     Height = 39
    79     Top = 492
    80     Width = 104
     77    Left = 594
     78    Height = 37
     79    Top = 473
     80    Width = 100
    8181    Anchors = [akRight, akBottom]
    8282    Caption = 'OK'
    … …  
    8585  end
    8686  object Label1: TLabel
    87     Left = 16
    88     Height = 27
    89     Top = 443
    90     Width = 41
     87    Left = 15
     88    Height = 26
     89    Top = 425
     90    Width = 38
    9191    Anchors = [akLeft, akBottom]
    9292    Caption = 'URL:'
    9393  end
    9494  object OpenPictureDialog1: TOpenPictureDialog
    95     Left = 132
    96     Top = 216
     95    Left = 127
     96    Top = 207
    9797  end
    9898  object SavePictureDialog1: TSavePictureDialog
    99     Left = 320
    100     Top = 216
     99    Left = 307
     100    Top = 207
    101101  end
    102102end
Note: See TracChangeset for help on using the changeset viewer.