Changeset 36


Ignore:
Timestamp:
Jun 30, 2023, 3:20:46 PM (10 months ago)
Author:
chronos
Message:
  • Modified: Code cleanup.
Location:
branches/topdown
Files:
12 edited

Legend:

Unmodified
Added
Removed

  • branches/topdown

    • Property svn:ignore

      •  

        old new  
        11lib
        22heaptrclog.trc
         3OS
        34OS.exe
        45OS.lps

  • branches/topdown/Apps/UAppCalc.pas

    r28 r36  
    11unit UAppCalc;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface

  • branches/topdown/Apps/UAppFileManager.pas

    r25 r36  
    11unit UAppFileManager;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface

  • branches/topdown/Apps/UAppTextEditor.lfm

    r28 r36  
    11object FormTextEditor: TFormTextEditor
    22  Left = 545
    3   Height = 300
     3  Height = 360
    44  Top = 378
    5   Width = 400
     5  Width = 480
    66  Caption = 'Text editor'
    7   ClientHeight = 300
    8   ClientWidth = 400
    9   DesignTimePPI = 120
     7  ClientHeight = 360
     8  ClientWidth = 480
     9  DesignTimePPI = 144
    1010  FormStyle = fsStayOnTop
    11   LCLVersion = '2.0.2.0'
     11  LCLVersion = '2.2.6.0'
    1212  object Memo1: TMemo
    1313    Left = 0
    14     Height = 300
     14    Height = 360
    1515    Top = 0
    16     Width = 400
     16    Width = 480
    1717    Align = alClient
    1818    ScrollBars = ssAutoBoth

  • branches/topdown/Apps/UAppTextEditor.pas

    r28 r36  
    11unit UAppTextEditor;
    2 
    3 {$mode delphi}
    42
    53interface

  • branches/topdown/OS.lpi

    r28 r36  
    22<CONFIG>
    33  <ProjectOptions>
    4     <Version Value="11"/>
     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="OS"/>
    1012      <Scaled Value="True"/>
    … …  
    1618      <Icon Value="0"/>
    1719    </General>
    18     <BuildModes Count="1">
    19       <Item1 Name="Default" Default="True"/>
     20    <BuildModes Count="2">
     21      <Item1 Name="Debug" Default="True"/>
     22      <Item2 Name="Release">
     23        <CompilerOptions>
     24          <Version Value="11"/>
     25          <PathDelim Value="\"/>
     26          <Target>
     27            <Filename Value="OS"/>
     28          </Target>
     29          <SearchPaths>
     30            <IncludeFiles Value="$(ProjOutDir)"/>
     31            <OtherUnitFiles Value="Apps"/>
     32            <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)-$(BuildMode)"/>
     33          </SearchPaths>
     34          <Parsing>
     35            <SyntaxOptions>
     36              <SyntaxMode Value="Delphi"/>
     37              <CStyleOperator Value="False"/>
     38              <AllowLabel Value="False"/>
     39              <CPPInline Value="False"/>
     40            </SyntaxOptions>
     41          </Parsing>
     42          <CodeGeneration>
     43            <SmartLinkUnit Value="True"/>
     44            <Optimizations>
     45              <OptimizationLevel Value="3"/>
     46            </Optimizations>
     47          </CodeGeneration>
     48          <Linking>
     49            <Debugging>
     50              <GenerateDebugInfo Value="False"/>
     51              <DebugInfoType Value="dsDwarf2Set"/>
     52            </Debugging>
     53            <LinkSmart Value="True"/>
     54            <Options>
     55              <Win32>
     56                <GraphicApplication Value="True"/>
     57              </Win32>
     58            </Options>
     59          </Linking>
     60        </CompilerOptions>
     61      </Item2>
    2062    </BuildModes>
    2163    <PublishOptions>
    … …  
    2567    <RunParams>
    2668      <FormatVersion Value="2"/>
    27       <Modes Count="0"/>
    2869    </RunParams>
    2970    <RequiredPackages Count="1">
    … …  
    76117        <IsPartOfProject Value="True"/>
    77118        <ComponentName Value="FormTextEditor"/>
     119        <HasResources Value="True"/>
    78120        <ResourceBaseClass Value="Form"/>
    79121      </Unit7>
    … …  
    89131      <IncludeFiles Value="$(ProjOutDir)"/>
    90132      <OtherUnitFiles Value="Apps"/>
    91       <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
     133      <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)-$(BuildMode)"/>
    92134    </SearchPaths>
    93135    <Parsing>
    94136      <SyntaxOptions>
    95137        <SyntaxMode Value="Delphi"/>
     138        <CStyleOperator Value="False"/>
    96139        <IncludeAssertionCode Value="True"/>
     140        <AllowLabel Value="False"/>
     141        <CPPInline Value="False"/>
    97142      </SyntaxOptions>
    98143    </Parsing>
    … …  
    108153    <Linking>
    109154      <Debugging>
     155        <DebugInfoType Value="dsDwarf2Set"/>
    110156        <UseHeaptrc Value="True"/>
    111157      </Debugging>

  • branches/topdown/UApps.pas

    r25 r36  
    11unit UApps;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface

  • branches/topdown/UFormMain.lfm

    r28 r36  
    11object FormMain: TFormMain
    22  Left = 689
    3   Height = 300
     3  Height = 360
    44  Top = 331
    5   Width = 400
     5  Width = 480
    66  BorderStyle = bsNone
    77  Caption = 'Desktop'
    8   ClientHeight = 300
    9   ClientWidth = 400
    10   DesignTimePPI = 120
     8  ClientHeight = 360
     9  ClientWidth = 480
     10  DesignTimePPI = 144
    1111  OnCreate = FormCreate
    1212  OnDestroy = FormDestroy
    1313  OnShow = FormShow
    14   LCLVersion = '2.0.2.0'
     14  LCLVersion = '2.2.6.0'
    1515  WindowState = wsFullScreen
    1616  object PanelTaskBar: TPanel
    1717    Left = 0
    18     Height = 36
    19     Top = 264
    20     Width = 400
     18    Height = 43
     19    Top = 317
     20    Width = 480
    2121    Align = alBottom
    22     ClientHeight = 36
    23     ClientWidth = 400
     22    ClientHeight = 43
     23    ClientWidth = 480
    2424    TabOrder = 0
    2525    object ButtonMenu: TButton
    2626      Left = 1
    27       Height = 34
     27      Height = 41
    2828      Top = 1
    29       Width = 94
     29      Width = 113
    3030      Align = alLeft
    3131      Caption = 'Menu'
    … …  
    3434    end
    3535    object PanelTasks: TPanel
    36       Left = 105
    37       Height = 34
     36      Left = 126
     37      Height = 41
    3838      Top = 1
    39       Width = 294
     39      Width = 353
    4040      Align = alClient
    41       BorderSpacing.Left = 10
     41      BorderSpacing.Left = 12
    4242      BevelOuter = bvNone
    4343      TabOrder = 1

  • branches/topdown/UFormMain.pas

    r28 r36  
    11unit UFormMain;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface

  • branches/topdown/UFormMenu.lfm

    r28 r36  
    11object FormMenu: TFormMenu
    22  Left = 443
    3   Height = 398
     3  Height = 478
    44  Top = 262
    5   Width = 262
     5  Width = 314
    66  Caption = 'Menu'
    7   ClientHeight = 398
    8   ClientWidth = 262
    9   DesignTimePPI = 120
     7  ClientHeight = 478
     8  ClientWidth = 314
     9  DesignTimePPI = 144
    1010  FormStyle = fsStayOnTop
    1111  OnDeactivate = FormDeactivate
    1212  OnShow = FormShow
    13   LCLVersion = '2.0.2.0'
     13  LCLVersion = '2.2.6.0'
    1414  object ListBoxApps: TListBox
    15     Left = 10
    16     Height = 345
    17     Top = 7
    18     Width = 245
     15    Left = 12
     16    Height = 415
     17    Top = 8
     18    Width = 294
    1919    Anchors = [akTop, akLeft, akRight, akBottom]
    2020    Items.Strings = (
    … …  
    2222      'File manager'
    2323    )
    24     ItemHeight = 20
     24    ItemHeight = 32
    2525    OnClick = ListBoxAppsClick
    2626    TabOrder = 0
    2727  end
    2828  object ToolBar1: TToolBar
    29     Left = 164
    30     Height = 28
    31     Top = 362
    32     Width = 90
     29    Left = 192
     30    Height = 33
     31    Top = 437
     32    Width = 114
    3333    Align = alCustom
    3434    Anchors = [akRight, akBottom]
    … …  
    4949  end
    5050  object PopupMenu1: TPopupMenu
    51     left = 111
    52     top = 278
     51    Left = 133
     52    Top = 334
    5353    object MenuItemReboot: TMenuItem
    5454      Caption = 'Reboot'

  • branches/topdown/UFormMenu.pas

    r27 r36  
    11unit UFormMenu;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface

  • branches/topdown/USystem.pas

    r28 r36  
    11unit USystem;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface
    64
    75uses
    8   Classes, SysUtils, Forms, fgl;
     6  Classes, SysUtils, Forms, Generics.Collections;
    97
    108type
    … …  
    2220  { TApps }
    2321
    24   TApps = class(TFPGObjectList<TApp>)
     22  TApps = class(TObjectList<TApp>)
    2523    function AddNew(Name: string; FormClass: TFormTaskClass): TApp;
    2624  end;
    … …  
    4341  { TTasks }
    4442
    45   TTasks = class(TFPGObjectList<TTask>)
     43  TTasks = class(TObjectList<TTask>)
    4644  private
    4745    FOnChange: TNotifyEvent;
Note: See TracChangeset for help on using the changeset viewer.