Changeset 147 for trunk/Forms


Ignore:
Timestamp:
Jun 14, 2023, 9:56:49 PM (17 months ago)
Author:
chronos
Message:
  • Modified: Code cleanup.
Location:
trunk/Forms
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/FormCompileMultiple.lfm

    r145 r147  
    11object FormCompileMultiple: TFormCompileMultiple
    22  Left = 682
    3   Height = 531
     3  Height = 510
    44  Top = 607
    5   Width = 1014
     5  Width = 973
    66  Caption = 'Compile multiple'
    7   ClientHeight = 531
    8   ClientWidth = 1014
    9   DesignTimePPI = 150
     7  ClientHeight = 510
     8  ClientWidth = 973
     9  DesignTimePPI = 144
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
    1212  OnDestroy = FormDestroy
    1313  OnShow = FormShow
    14   LCLVersion = '2.2.0.4'
     14  LCLVersion = '2.2.6.0'
    1515  object ButtonCompile: TButton
    16     Left = 882
    17     Height = 40
    18     Top = 480
    19     Width = 118
     16    Left = 847
     17    Height = 38
     18    Top = 461
     19    Width = 113
    2020    Anchors = [akRight, akBottom]
    2121    Caption = 'Compile'
    … …  
    2626  object ListViewTargets: TListView
    2727    Left = 10
    28     Height = 456
     28    Height = 438
    2929    Top = 10
    30     Width = 990
     30    Width = 950
    3131    Anchors = [akTop, akLeft, akRight, akBottom]
    3232    Checkboxes = True
    … …  
    3434      item
    3535        Caption = 'Name'
    36         Width = 208
     36        Width = 200
    3737      end   
    3838      item
    3939        Caption = 'Result'
    40         Width = 767
     40        Width = 736
    4141      end>
    4242    ParentFont = False
    … …  
    4747  end
    4848  object ButtonCancel: TButton
    49     Left = 744
    50     Height = 40
    51     Top = 480
    52     Width = 118
     49    Left = 714
     50    Height = 38
     51    Top = 461
     52    Width = 113
    5353    Anchors = [akRight, akBottom]
    5454    Caption = 'Cancel'

  • trunk/Forms/FormCompileMultiple.pas

    r145 r147  
    55uses
    66  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls,
    7   Target, fgl;
     7  Target;
    88
    99type

  • trunk/Forms/FormInput.lfm

    r145 r147  
    88  ClientWidth = 480
    99  DesignTimePPI = 144
    10   LCLVersion = '2.0.0.4'
     10  OnCreate = FormCreate
     11  LCLVersion = '2.2.6.0'
    1112  object MemoInput: TMemo
    1213    Left = 6
    13     Height = 317
    14     Top = 37
     14    Height = 316
     15    Top = 38
    1516    Width = 468
    1617    Align = alClient
    … …  
    2526  object Label1: TLabel
    2627    Left = 6
    27     Height = 25
     28    Height = 26
    2829    Top = 6
    2930    Width = 468

  • trunk/Forms/FormInput.pas

    r145 r147  
    1313    Label1: TLabel;
    1414    MemoInput: TMemo;
     15    procedure FormCreate(Sender: TObject);
    1516    procedure MemoInputKeyPress(Sender: TObject; var Key: char);
    1617  end;
    … …  
    3132end;
    3233
     34procedure TFormInput.FormCreate(Sender: TObject);
     35begin
     36  Core.Core.Translator.TranslateComponentRecursive(Self);
     37  Core.Core.ThemeManager.UseTheme(Self);
     38end;
    3339
    3440end.

  • trunk/Forms/FormMemory.pas

    r145 r147  
    1919    procedure FormCreate(Sender: TObject);
    2020    procedure ListViewMemoryData(Sender: TObject; Item: TListItem);
    21   private
    22     { private declarations }
    2321  public
    2422    procedure Reload;

  • trunk/Forms/FormSourceCode.pas

    r145 r147  
    212212end;
    213213
    214 
    215214end.
    216215
Note: See TracChangeset for help on using the changeset viewer.