Changeset 111 for trunk


Ignore:
Timestamp:
May 12, 2019, 10:04:21 PM (6 years ago)
Author:
chronos
Message:
Location:
trunk
Files:
1 deleted
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Languages/LazFuck.cs.po

    r103 r111  
    647647msgid "Unsupported command"
    648648msgstr "NepodporovanÃœ příkaz"
     649

  • trunk/LazFuck.lpi

    r107 r111  
    7575      </Modes>
    7676    </RunParams>
    77     <RequiredPackages Count="6">
     77    <RequiredPackages Count="5">
    7878      <Item1>
    7979        <PackageName Value="FCL"/>
    … …  
    8484      </Item2>
    8585      <Item3>
    86         <PackageName Value="TemplateGenerics"/>
    87         <DefaultFilename Value="Packages\TemplateGenerics\TemplateGenerics.lpk" Prefer="True"/>
     86        <PackageName Value="Common"/>
     87        <DefaultFilename Value="Packages\Common\Common.lpk" Prefer="True"/>
    8888      </Item3>
    8989      <Item4>
    90         <PackageName Value="Common"/>
    91         <DefaultFilename Value="Packages\Common\Common.lpk" Prefer="True"/>
     90        <PackageName Value="SynEdit"/>
    9291      </Item4>
    9392      <Item5>
    94         <PackageName Value="SynEdit"/>
     93        <PackageName Value="LCL"/>
    9594      </Item5>
    96       <Item6>
    97         <PackageName Value="LCL"/>
    98       </Item6>
    9995    </RequiredPackages>
    10096    <Units Count="28">

  • trunk/LazFuck.lpr

    r102 r111  
    1212  UTargetJava, UTargetFPC, UFormCPU, UFormMain, UFormOptions, UFormTargets,
    1313  UFormOutput, UFormInput, UFormMemory, UFormMessages, UFormSourceCode,
    14   UFormTargetCode, UFormTargetOptions, UCore, Common, TemplateGenerics,
     14  UFormTargetCode, UFormTargetOptions, UCore, Common,
    1515  CoolTranslator, UFormLog, UProject, UBFTarget, SysUtils;
    1616

  • trunk/UCore.lfm

    r107 r111  
    33  OnDestroy = DataModuleDestroy
    44  OldCreateOrder = False
    5   Height = 361
    6   HorizontalOffset = 661
    7   VerticalOffset = 370
    8   Width = 424
    9   PPI = 120
     5  Height = 433
     6  HorizontalOffset = 793
     7  VerticalOffset = 444
     8  Width = 509
     9  PPI = 144
    1010  object ApplicationInfo: TApplicationInfo
    1111    Identification = 1
    … …  
    2525    RegistryRoot = rrKeyCurrentUser
    2626    License = 'CC0'
    27     left = 90
    28     top = 20
     27    left = 108
     28    top = 24
    2929  end
    3030  object CoolTranslator1: TCoolTranslator
    3131    POFilesFolder = 'Languages'
    32     left = 90
    33     top = 90
     32    left = 108
     33    top = 108
    3434  end
    3535  object LastOpenedList: TLastOpenedList
    3636    MaxCount = 10
    37     left = 90
    38     top = 160
     37    left = 108
     38    top = 192
    3939  end
    4040  object PersistentForm1: TPersistentForm
    4141    MinVisiblePart = 50
    4242    EntireVisible = False
    43     left = 90
    44     top = 230
     43    left = 108
     44    top = 276
    4545  end
    4646  object ImageListMain: TImageList
    47     left = 310
    48     top = 20
     47    left = 372
     48    top = 24
    4949    Bitmap = {
    5050      4C691D0000001000000010000000000000000000000000000000000000000000
    … …  
    981981  object ScaleDPI1: TScaleDPI
    982982    AutoDetect = False
    983     left = 310
    984     top = 100
     983    left = 372
     984    top = 120
    985985  end
    986986  object ThemeManager: TThemeManager
    987     left = 302
    988     top = 174
     987    left = 362
     988    top = 209
    989989  end
    990990end

  • trunk/UTarget.pas

    r108 r111  
    66
    77uses
    8   Classes, SysUtils, StrUtils, Registry, URegistry, SpecializedList, Dialogs,
     8  Classes, SysUtils, StrUtils, Registry, URegistry, fgl, Dialogs,
    99  FileUtil, Process, Menus, LazFileUtils;
    1010
    … …  
    2828  { TDebugStepList }
    2929
    30   TDebugStepList = class(TListObject)
     30  TDebugStepList = class(TFPGObjectList<TDebugStep>)
    3131    function SearchBySourcePos(Pos: Integer): TDebugStep;
    3232    function SearchByTargetPos(Pos: Integer): TDebugStep;
    … …  
    4242  { TBreakPointList }
    4343
    44   TBreakPointList = class(TListObject)
     44  TBreakPointList = class(TFPGObjectList<TBreakPoint>)
    4545    procedure AddItem(TargetAddress: Integer);
    4646    procedure SetSystem(TargetAddress: Integer);
    … …  
    5757  { TMessageList }
    5858
    59   TMessageList = class(TListObject)
     59  TMessageList = class(TFPGObjectList<TMessage>)
    6060  private
    6161    FOnChange: TNotifyEvent;
    … …  
    133133  { TTargetList }
    134134
    135   TTargetList = class(TListObject)
     135  TTargetList = class(TFPGObjectList<TTarget>)
    136136    procedure LoadFromRegistry(Context: TRegistryContext);
    137137    procedure SaveToRegistry(Context: TRegistryContext);
Note: See TracChangeset for help on using the changeset viewer.