Ignore:
Timestamp:
May 29, 2023, 8:23:09 PM (13 months ago)
Author:
chronos
Message:
  • Modified: Removed U prefix from all Common package units.
Location:
Common/Demo/JobProgressView
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • Common/Demo/JobProgressView/JobProgressViewDemo.lpi

    r513 r563  
    22<CONFIG>
    33  <ProjectOptions>
    4     <Version Value="10"/>
     4    <Version Value="12"/>
    55    <PathDelim Value="\"/>
    66    <General>
     7      <Flags>
     8        <CompatibilityMode Value="True"/>
     9      </Flags>
    710      <SessionStorage Value="InProjectDir"/>
    8       <MainUnit Value="0"/>
    911      <Title Value="JobProgressViewDemo"/>
    1012      <ResourceType Value="res"/>
    … …  
    1214      <Icon Value="0"/>
    1315    </General>
    14     <VersionInfo>
    15       <StringTable ProductVersion=""/>
    16     </VersionInfo>
    1716    <BuildModes Count="2">
    1817      <Item1 Name="Debug" Default="True"/>
    … …  
    5958    </PublishOptions>
    6059    <RunParams>
    61       <local>
    62         <FormatVersion Value="1"/>
    63       </local>
     60      <FormatVersion Value="2"/>
     61      <Modes Count="1">
     62        <Mode0 Name="default"/>
     63      </Modes>
    6464    </RunParams>
    6565    <RequiredPackages Count="2">
    … …  
    8181        <IsPartOfProject Value="True"/>
    8282        <ComponentName Value="FormMain"/>
     83        <HasResources Value="True"/>
    8384        <ResourceBaseClass Value="Form"/>
    8485      </Unit1>

  • Common/Demo/JobProgressView/UFormMain.lfm

    r513 r563  
    11object FormMain: TFormMain
    22  Left = 501
    3   Height = 480
     3  Height = 576
    44  Top = 296
    5   Width = 743
     5  Width = 892
    66  Caption = 'JobProgressView demo'
    7   ClientHeight = 480
    8   ClientWidth = 743
    9   DesignTimePPI = 120
    10   LCLVersion = '1.8.2.0'
     7  ClientHeight = 576
     8  ClientWidth = 892
     9  DesignTimePPI = 144
     10  LCLVersion = '2.2.6.0'
    1111  object ButtonTest: TButton
    12     Left = 40
    13     Height = 31
    14     Top = 192
    15     Width = 94
     12    Left = 48
     13    Height = 37
     14    Top = 230
     15    Width = 113
    1616    Caption = 'Test'
    1717    OnClick = ButtonTestClick
    … …  
    1919  end
    2020  object SpinEditJobCount: TSpinEdit
    21     Left = 122
    22     Height = 28
    23     Top = 16
    24     Width = 102
     21    Left = 146
     22    Height = 43
     23    Top = 19
     24    Width = 122
    2525    TabOrder = 1
    2626    Value = 5
    2727  end
    2828  object Label1: TLabel
    29     Left = 16
    30     Height = 20
    31     Top = 16
    32     Width = 67
     29    Left = 19
     30    Height = 26
     31    Top = 19
     32    Width = 85
    3333    Caption = 'Job count:'
    3434    ParentColor = False
    3535  end
    3636  object Label2: TLabel
    37     Left = 16
    38     Height = 20
    39     Top = 48
    40     Width = 79
     37    Left = 19
     38    Height = 26
     39    Top = 58
     40    Width = 101
    4141    Caption = 'Show delay:'
    4242    ParentColor = False
    4343  end
    4444  object SpinEditShowDelay: TSpinEdit
    45     Left = 122
    46     Height = 28
    47     Top = 48
    48     Width = 102
     45    Left = 146
     46    Height = 43
     47    Top = 58
     48    Width = 122
    4949    MaxValue = 1000000
    5050    TabOrder = 2
    … …  
    5252  end
    5353  object Label3: TLabel
    54     Left = 232
    55     Height = 20
    56     Top = 48
    57     Width = 19
     54    Left = 278
     55    Height = 26
     56    Top = 58
     57    Width = 26
    5858    Caption = 'ms'
    5959    ParentColor = False
    6060  end
    6161  object CheckBoxAutoClose: TCheckBox
    62     Left = 15
    63     Height = 24
    64     Top = 84
    65     Width = 195
     62    Left = 18
     63    Height = 30
     64    Top = 101
     65    Width = 243
    6666    Caption = 'Auto close on completion'
    6767    Checked = True
    … …  
    7070  end
    7171  object CheckBoxTextProgress: TCheckBox
    72     Left = 16
    73     Height = 24
    74     Top = 112
    75     Width = 259
     72    Left = 19
     73    Height = 30
     74    Top = 134
     75    Width = 329
    7676    Caption = 'Show individual items text progress'
    7777    TabOrder = 4
    7878  end
    7979  object CheckBoxErrors: TCheckBox
    80     Left = 15
    81     Height = 24
    82     Top = 144
    83     Width = 239
     80    Left = 18
     81    Height = 30
     82    Top = 173
     83    Width = 304
    8484    Caption = 'Simulate errors during execution'
    8585    TabOrder = 5
    … …  
    8989    ShowDelay = 0
    9090    AutoClose = False
    91     left = 480
    92     top = 120
     91    Left = 576
     92    Top = 144
    9393  end
    9494end

  • Common/Demo/JobProgressView/UFormMain.pas

    r513 r563  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   Spin, UJobProgressView;
     9  Spin, JobProgressView;
    1010
    1111type
Note: See TracChangeset for help on using the changeset viewer.