Changeset 563 for Common/Demo


Ignore:
Timestamp:
May 29, 2023, 8:23:09 PM (18 months ago)
Author:
chronos
Message:
  • Modified: Removed U prefix from all Common package units.
Location:
Common/Demo
Files:
12 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

  • Common/Demo/PersistentForm/PersistentFormDemo.lpi

    r487 r563  
    22<CONFIG>
    33  <ProjectOptions>
    4     <Version Value="9"/>
     4    <Version Value="12"/>
    55    <General>
     6      <Flags>
     7        <CompatibilityMode Value="True"/>
     8      </Flags>
    69      <SessionStorage Value="InProjectDir"/>
    7       <MainUnit Value="0"/>
    810      <Title Value="PersistentFormDemo"/>
    911      <ResourceType Value="res"/>
    … …  
    1416      <EnableI18N LFM="False"/>
    1517    </i18n>
    16     <VersionInfo>
    17       <StringTable ProductVersion=""/>
    18     </VersionInfo>
    1918    <BuildModes Count="1">
    2019      <Item1 Name="Default" Default="True"/>
    … …  
    2423    </PublishOptions>
    2524    <RunParams>
    26       <local>
    27         <FormatVersion Value="1"/>
    28       </local>
     25      <FormatVersion Value="2"/>
     26      <Modes Count="1">
     27        <Mode0 Name="default"/>
     28      </Modes>
    2929    </RunParams>
    3030    <RequiredPackages Count="3">
    … …  
    5151        <HasResources Value="True"/>
    5252        <ResourceBaseClass Value="Form"/>
    53         <UnitName Value="Unit1"/>
    5453      </Unit1>
    5554    </Units>

  • Common/Demo/PersistentForm/Unit1.lfm

    r487 r563  
    11object Form1: TForm1
    22  Left = 952
    3   Height = 622
    4   Top = 489
    5   Width = 698
     3  Height = 933
     4  Top = 449
     5  Width = 1047
    66  Caption = 'PersistentForm demo'
    7   ClientHeight = 622
    8   ClientWidth = 698
     7  ClientHeight = 933
     8  ClientWidth = 1047
     9  DesignTimePPI = 144
    910  OnClose = FormClose
    1011  OnResize = FormResize
    1112  OnShow = FormShow
    12   LCLVersion = '1.5'
     13  LCLVersion = '2.2.6.0'
    1314  object ListView1: TListView
    1415    Left = 0
    15     Height = 622
     16    Height = 933
    1617    Top = 0
    17     Width = 698
     18    Width = 1047
    1819    Align = alClient
    1920    Columns = <   
    2021      item
    2122        Caption = 'Property'
    22         Width = 300
     23        Width = 450
    2324      end   
    2425      item
    2526        Caption = 'Value'
    26         Width = 381
     27        Width = 582
    2728      end>
    2829    TabOrder = 0
    … …  
    3233    MinVisiblePart = 50
    3334    EntireVisible = False
    34     left = 112
    35     top = 72
     35    Left = 168
     36    Top = 108
    3637  end
    3738  object Timer1: TTimer
    3839    OnTimer = Timer1Timer
    39     left = 391
    40     top = 314
     40    Left = 587
     41    Top = 471
    4142  end
    4243  object XMLConfig1: TXMLConfig
    4344    StartEmpty = False
    4445    RootName = 'CONFIG'
    45     left = 240
    46     top = 217
     46    ReadOnly = False
     47    Left = 360
     48    Top = 326
    4749  end
    4850end

  • Common/Demo/PersistentForm/Unit1.pas

    r487 r563  
    77uses
    88  Classes, SysUtils, XMLConf, FileUtil, Forms, Controls, Graphics, Dialogs,
    9   Buttons, StdCtrls, ExtCtrls, ComCtrls, Menus, XMLPropStorage, UPersistentForm;
     9  Buttons, StdCtrls, ExtCtrls, ComCtrls, Menus, XMLPropStorage, PersistentForm;
    1010
    1111type

  • Common/Demo/ScaleDPI/ScaleDPI.lpi

    r469 r563  
    22<CONFIG>
    33  <ProjectOptions>
    4     <Version Value="9"/>
     4    <Version Value="12"/>
    55    <General>
     6      <Flags>
     7        <CompatibilityMode Value="True"/>
     8      </Flags>
    69      <SessionStorage Value="InProjectDir"/>
    7       <MainUnit Value="0"/>
    810      <Title Value="ScaleDPI"/>
    911      <ResourceType Value="res"/>
    … …  
    1416      <EnableI18N LFM="False"/>
    1517    </i18n>
    16     <VersionInfo>
    17       <StringTable ProductVersion=""/>
    18     </VersionInfo>
    1918    <BuildModes Count="1">
    2019      <Item1 Name="Default" Default="True"/>
    … …  
    2423    </PublishOptions>
    2524    <RunParams>
    26       <local>
    27         <FormatVersion Value="1"/>
    28       </local>
     25      <FormatVersion Value="2"/>
     26      <Modes Count="1">
     27        <Mode0 Name="default"/>
     28      </Modes>
    2929    </RunParams>
    3030    <RequiredPackages Count="2">
    … …  
    4141        <Filename Value="ScaleDPI.lpr"/>
    4242        <IsPartOfProject Value="True"/>
    43         <UnitName Value="ScaleDPI"/>
    4443      </Unit0>
    4544      <Unit1>
    … …  
    4746        <IsPartOfProject Value="True"/>
    4847        <ComponentName Value="Form1"/>
     48        <HasResources Value="True"/>
    4949        <ResourceBaseClass Value="Form"/>
    50         <UnitName Value="UFormMain"/>
    5150      </Unit1>
    5251      <Unit2>
    … …  
    5453        <IsPartOfProject Value="True"/>
    5554        <ComponentName Value="Form2"/>
     55        <HasResources Value="True"/>
    5656        <ResourceBaseClass Value="Form"/>
    57         <UnitName Value="UFormTest"/>
    5857      </Unit2>
    5958    </Units>
    … …  
    6968    </SearchPaths>
    7069    <Linking>
     70      <Debugging>
     71        <DebugInfoType Value="dsDwarf2Set"/>
     72      </Debugging>
    7173      <Options>
    7274        <Win32>

  • Common/Demo/ScaleDPI/ScaleDPI.lps

    r469 r563  
    22<CONFIG>
    33  <ProjectSession>
    4     <Version Value="9"/>
     4    <Version Value="12"/>
    55    <BuildModes Active="Default"/>
    6     <Units Count="8">
     6    <Units Count="9">
    77      <Unit0>
    88        <Filename Value="ScaleDPI.lpr"/>
    99        <IsPartOfProject Value="True"/>
    10         <UnitName Value="ScaleDPI"/>
    11         <EditorIndex Value="7"/>
     10        <EditorIndex Value="3"/>
    1211        <CursorPos X="25" Y="18"/>
    1312        <UsageCount Value="20"/>
    … …  
    1817        <IsPartOfProject Value="True"/>
    1918        <ComponentName Value="Form1"/>
     19        <HasResources Value="True"/>
    2020        <ResourceBaseClass Value="Form"/>
    21         <UnitName Value="UFormMain"/>
    22         <TopLine Value="24"/>
    23         <CursorPos X="38" Y="44"/>
     21        <TopLine Value="19"/>
     22        <CursorPos Y="50"/>
    2423        <UsageCount Value="20"/>
    2524        <Loaded Value="True"/>
    … …  
    3029        <IsPartOfProject Value="True"/>
    3130        <ComponentName Value="Form2"/>
     31        <HasResources Value="True"/>
    3232        <ResourceBaseClass Value="Form"/>
    33         <UnitName Value="UFormTest"/>
    34         <EditorIndex Value="5"/>
     33        <EditorIndex Value="2"/>
    3534        <TopLine Value="41"/>
    3635        <CursorPos X="35" Y="75"/>
    … …  
    4140      <Unit3>
    4241        <Filename Value="../../UScaleDPI.pas"/>
    43         <UnitName Value="UScaleDPI"/>
    44         <IsVisibleTab Value="True"/>
    45         <EditorIndex Value="1"/>
     42        <EditorIndex Value="-1"/>
    4643        <TopLine Value="165"/>
    4744        <CursorPos X="58" Y="184"/>
    4845        <UsageCount Value="10"/>
    49         <Loaded Value="True"/>
    5046      </Unit3>
    5147      <Unit4>
    5248        <Filename Value="../../../../../../Others/lazarus/lcl/calendar.pp"/>
    5349        <UnitName Value="Calendar"/>
    54         <EditorIndex Value="6"/>
     50        <EditorIndex Value="-1"/>
    5551        <TopLine Value="61"/>
    5652        <CursorPos X="25" Y="88"/>
    5753        <UsageCount Value="10"/>
    58         <Loaded Value="True"/>
    5954      </Unit4>
    6055      <Unit5>
    6156        <Filename Value="../../../../../../Others/lazarus/lcl/controls.pp"/>
    6257        <UnitName Value="Controls"/>
    63         <EditorIndex Value="3"/>
     58        <EditorIndex Value="-1"/>
    6459        <TopLine Value="309"/>
    6560        <CursorPos X="3" Y="329"/>
    6661        <UsageCount Value="10"/>
    67         <Loaded Value="True"/>
    6862      </Unit5>
    6963      <Unit6>
    7064        <Filename Value="../../../../../../Others/lazarus/lcl/imglist.pp"/>
    7165        <UnitName Value="ImgList"/>
    72         <EditorIndex Value="4"/>
     66        <EditorIndex Value="-1"/>
    7367        <TopLine Value="82"/>
    7468        <CursorPos X="18" Y="100"/>
    7569        <UsageCount Value="10"/>
    76         <Loaded Value="True"/>
    7770      </Unit6>
    7871      <Unit7>
    7972        <Filename Value="../../../../../../Others/lazarus/lcl/comctrls.pp"/>
    8073        <UnitName Value="ComCtrls"/>
    81         <EditorIndex Value="2"/>
     74        <EditorIndex Value="-1"/>
    8275        <TopLine Value="2146"/>
    8376        <CursorPos X="14" Y="2165"/>
    8477        <UsageCount Value="10"/>
     78      </Unit7>
     79      <Unit8>
     80        <Filename Value="../../ScaleDPI.pas"/>
     81        <IsVisibleTab Value="True"/>
     82        <EditorIndex Value="1"/>
     83        <CursorPos X="32" Y="19"/>
     84        <UsageCount Value="10"/>
    8585        <Loaded Value="True"/>
    86       </Unit7>
     86        <DefaultSyntaxHighlighter Value="Delphi"/>
     87      </Unit8>
    8788    </Units>
    88     <JumpHistory Count="30" HistoryIndex="29">
     89    <JumpHistory Count="19" HistoryIndex="18">
    8990      <Position1>
    9091        <Filename Value="UFormTest.pas"/>
    … …  
    124125      </Position9>
    125126      <Position10>
    126         <Filename Value="../../UScaleDPI.pas"/>
    127         <Caret Line="141" Column="18" TopLine="110"/>
     127        <Filename Value="UFormTest.pas"/>
     128        <Caret Line="14" Column="95" TopLine="6"/>
    128129      </Position10>
    129130      <Position11>
    130131        <Filename Value="UFormTest.pas"/>
    131         <Caret Line="14" Column="95" TopLine="6"/>
     132        <Caret Line="25" Column="27" TopLine="6"/>
    132133      </Position11>
    133134      <Position12>
    134135        <Filename Value="UFormTest.pas"/>
    135         <Caret Line="25" Column="27" TopLine="6"/>
     136        <Caret Line="26" Column="27" TopLine="6"/>
    136137      </Position12>
    137138      <Position13>
    138139        <Filename Value="UFormTest.pas"/>
    139         <Caret Line="26" Column="27" TopLine="6"/>
     140        <Caret Line="12" Column="101" TopLine="6"/>
    140141      </Position13>
    141142      <Position14>
    142143        <Filename Value="UFormTest.pas"/>
    143         <Caret Line="12" Column="101" TopLine="6"/>
     144        <Caret Line="15" Column="94" TopLine="6"/>
    144145      </Position14>
    145146      <Position15>
    146147        <Filename Value="UFormTest.pas"/>
    147         <Caret Line="15" Column="94" TopLine="6"/>
     148        <Caret Line="24" Column="53" TopLine="12"/>
    148149      </Position15>
    149150      <Position16>
    150151        <Filename Value="UFormTest.pas"/>
    151         <Caret Line="24" Column="53" TopLine="12"/>
     152        <Caret Line="23" Column="96" TopLine="12"/>
    152153      </Position16>
    153154      <Position17>
    154         <Filename Value="../../../../../../Others/lazarus/lcl/calendar.pp"/>
    155         <Caret Line="105" Column="3" TopLine="85"/>
     155        <Filename Value="UFormMain.pas"/>
     156        <Caret Line="9" Column="3"/>
    156157      </Position17>
    157158      <Position18>
    158         <Filename Value="../../../../../../Others/lazarus/lcl/calendar.pp"/>
    159         <Caret Line="93" Column="15" TopLine="82"/>
     159        <Filename Value="UFormMain.pas"/>
     160        <Caret Line="47" Column="31" TopLine="19"/>
    160161      </Position18>
    161162      <Position19>
    162         <Filename Value="../../UScaleDPI.pas"/>
    163         <Caret Line="244" Column="33" TopLine="156"/>
     163        <Filename Value="UFormMain.pas"/>
     164        <Caret Line="31" Column="26" TopLine="19"/>
    164165      </Position19>
    165       <Position20>
    166         <Filename Value="../../../../../../Others/lazarus/lcl/controls.pp"/>
    167         <Caret Line="2250" Column="3" TopLine="2230"/>
    168       </Position20>
    169       <Position21>
    170         <Filename Value="../../../../../../Others/lazarus/lcl/controls.pp"/>
    171         <Caret Line="329" Column="3" TopLine="309"/>
    172       </Position21>
    173       <Position22>
    174         <Filename Value="../../UScaleDPI.pas"/>
    175         <Caret Line="155" Column="24" TopLine="126"/>
    176       </Position22>
    177       <Position23>
    178         <Filename Value="../../UScaleDPI.pas"/>
    179         <Caret Line="154" Column="3" TopLine="146"/>
    180       </Position23>
    181       <Position24>
    182         <Filename Value="../../UScaleDPI.pas"/>
    183         <Caret Line="160" Column="22" TopLine="145"/>
    184       </Position24>
    185       <Position25>
    186         <Filename Value="../../UScaleDPI.pas"/>
    187         <Caret Line="154" TopLine="145"/>
    188       </Position25>
    189       <Position26>
    190         <Filename Value="../../UScaleDPI.pas"/>
    191         <Caret Line="217" TopLine="197"/>
    192       </Position26>
    193       <Position27>
    194         <Filename Value="../../UScaleDPI.pas"/>
    195         <Caret Line="218" TopLine="197"/>
    196       </Position27>
    197       <Position28>
    198         <Filename Value="../../UScaleDPI.pas"/>
    199         <Caret Line="155" TopLine="135"/>
    200       </Position28>
    201       <Position29>
    202         <Filename Value="../../UScaleDPI.pas"/>
    203         <Caret Line="157" TopLine="135"/>
    204       </Position29>
    205       <Position30>
    206         <Filename Value="UFormTest.pas"/>
    207         <Caret Line="23" Column="96" TopLine="12"/>
    208       </Position30>
    209166    </JumpHistory>
     167    <RunParams>
     168      <FormatVersion Value="2"/>
     169      <Modes ActiveMode="default"/>
     170    </RunParams>
    210171  </ProjectSession>
    211172</CONFIG>

  • Common/Demo/ScaleDPI/UFormMain.lfm

    r469 r563  
    11object Form1: TForm1
    22  Left = 348
    3   Height = 273
     3  Height = 410
    44  Top = 527
    5   Width = 779
     5  Width = 1168
    66  Caption = 'Form1'
    7   ClientHeight = 273
    8   ClientWidth = 779
     7  ClientHeight = 410
     8  ClientWidth = 1168
     9  DesignTimePPI = 144
    910  OnCreate = FormCreate
    1011  OnDestroy = FormDestroy
    1112  OnShow = FormShow
    12   LCLVersion = '1.3'
     13  LCLVersion = '2.2.6.0'
    1314  object TrackBar1: TTrackBar
    14     Left = 20
    15     Height = 46
    16     Top = 21
    17     Width = 732
     15    Left = 30
     16    Height = 87
     17    Top = 32
     18    Width = 1098
    1819    Max = 200
    1920    Min = 48
    … …  
    2324  end
    2425  object ScaleDPI1: TScaleDPI
    25     left = 216
    26     top = 184
     26    AutoDetect = False
     27    Left = 324
     28    Top = 276
    2729  end
    2830end

  • Common/Demo/ScaleDPI/UFormMain.pas

    r469 r563  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
    9   UScaleDPI;
     9  ScaleDPI;
    1010
    1111type
Note: See TracChangeset for help on using the changeset viewer.