Changeset 48


Ignore:
Timestamp:
Oct 26, 2023, 11:59:00 PM (6 months ago)
Author:
chronos
Message:
  • Fixed: Resolved unit names conflict with Common package.
Location:
branches/ByteArray
Files:
71 added
71 deleted
11 edited

Legend:

Unmodified
Added
Removed

  • branches/ByteArray/ByteArray.lpi

    r47 r48  
    169169      </Unit>
    170170      <Unit>
    171         <Filename Value="Forms/Project.pas"/>
     171        <Filename Value="Project.pas"/>
    172172        <IsPartOfProject Value="True"/>
    173173      </Unit>

  • branches/ByteArray/ByteArray.lpr

    r46 r48  
    1212  Interfaces, SysUtils,// this includes the LCL widgetset
    1313  Forms, FormMain, FormConsole, FormDevice, FormScreen, FormDisassembler,
    14   FormAssembler, Cpu, BigInt, Channel, Memory, FrameBuffer, Device, Storage,
     14  FormAssembler, Cpu, BigInt, Channel, Common.Memory, FrameBuffer, Device, Storage,
    1515  DeviceMapper, Machine, Disassembler, Instructions, Parser, Message, Assembler,
    1616  Serial, Mouse, FormSourceEditor, FormMessages, FormMemory, Common

  • branches/ByteArray/Devices/Device.pas

    r45 r48  
    44
    55uses
    6   Classes, SysUtils, Channel, Forms, BigInt;
     6  Classes, SysUtils, Channel, Forms, BigInt, Common.FormEx;
    77
    88type
    … …  
    2525  { TFormDevice }
    2626
    27   TFormDevice = class(TForm)
     27  TFormDevice = class(TFormEx)
    2828  protected
    2929    function GetDevice: TDevice; virtual;

  • branches/ByteArray/Forms/FormAssembler.pas

    r46 r48  
    55uses
    66  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, AsyncProcess, SynEdit,
    7   SynHighlighterAny, SynHighlighterMulti;
     7  SynHighlighterAny, SynHighlighterMulti, Common.FormEx;
    88
    99type
    … …  
    1111  { TFormAssembler }
    1212
    13   TFormAssembler = class(TForm)
     13  TFormAssembler = class(TFormEx)
    1414    SynAnySyn1: TSynAnySyn;
    1515    SynEdit1: TSynEdit;

  • branches/ByteArray/Forms/FormMain.lfm

    r46 r48  
    3636        Action = AMemory
    3737      end
     38      object Separator1: TMenuItem
     39        Caption = '-'
     40      end
     41      object MenuItem9: TMenuItem
     42        Action = AFullscreen
     43      end
    3844    end
    3945    object MenuItem2: TMenuItem
    … …  
    5359      Caption = 'Source editor'
    5460      OnExecute = ASourceEditorExecute
     61      ShortCut = 123
    5562    end
    5663    object ADebugger: TAction
    … …  
    6471      Caption = 'Exit'
    6572      OnExecute = AExitExecute
     73      ShortCut = 32883
    6674    end
    6775    object AMemory: TAction
    … …  
    6977      OnExecute = AMemoryExecute
    7078    end
     79    object AFullscreen: TAction
     80      Caption = 'Fullscreen'
     81      OnExecute = AFullscreenExecute
     82      ShortCut = 122
     83    end
     84  end
     85  object PersistentForm1: TPersistentForm
     86    MinVisiblePart = 50
     87    EntireVisible = False
     88    Left = 640
     89    Top = 79
    7190  end
    7291end

  • branches/ByteArray/Forms/FormMain.pas

    r46 r48  
    55uses
    66  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus, ActnList,
    7   FormConsole, FormScreen, Machine, FormSourceEditor, FormMemory;
     7  FormConsole, FormScreen, Machine, Common.PersistentForm, FormSourceEditor,
     8  FormMemory, Common.FormEx;
    89
    910type
    … …  
    1112  { TFormMain }
    1213
    13   TFormMain = class(TForm)
     14  TFormMain = class(TFormEx)
     15    AFullscreen: TAction;
    1416    AMemory: TAction;
    1517    AExit: TAction;
    … …  
    2628    MenuItem6: TMenuItem;
    2729    MenuItem7: TMenuItem;
     30    PersistentForm1: TPersistentForm;
     31    Separator1: TMenuItem;
     32    MenuItem9: TMenuItem;
    2833    MenuItemViewScreen: TMenuItem;
    2934    MenuItemViewStorage: TMenuItem;
    … …  
    3136    procedure ADebuggerExecute(Sender: TObject);
    3237    procedure AExitExecute(Sender: TObject);
     38    procedure AFullscreenExecute(Sender: TObject);
    3339    procedure AMemoryExecute(Sender: TObject);
    3440    procedure ASourceEditorExecute(Sender: TObject);
    … …  
    8187begin
    8288  Close;
     89end;
     90
     91procedure TFormMain.AFullscreenExecute(Sender: TObject);
     92begin
     93  PersistentForm1.SetFullScreen(not PersistentForm1.FormFullScreen);
    8394end;
    8495

  • branches/ByteArray/Forms/FormMemory.pas

    r46 r48  
    55uses
    66  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, ExtCtrls,
    7   Memory;
     7  Memory, Common.FormEx;
    88
    99type
    … …  
    1111  { TFormMemory }
    1212
    13   TFormMemory = class(TForm)
     13  TFormMemory = class(TFormEx)
    1414    ListViewMemory: TListView;
    1515    Timer1: TTimer;

  • branches/ByteArray/Forms/FormMessages.pas

    r46 r48  
    55uses
    66  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls,
    7   Generics.Collections, Message;
     7  Generics.Collections, Message, Common.FormEx;
    88
    99type
    … …  
    1212  { TFormMessages }
    1313
    14   TFormMessages = class(TForm)
     14  TFormMessages = class(TFormEx)
    1515    ListView1: TListView;
    1616    procedure ListView1Data(Sender: TObject; Item: TListItem);

  • branches/ByteArray/Forms/FormSourceEditor.pas

    r47 r48  
    55uses
    66  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, Menus,
    7   ActnList, FormMessages, FormAssembler, Project;
     7  ActnList, FormMessages, FormAssembler, Project, Common.FormEx;
    88
    99type
    … …  
    1111  { TFormSourceEditor }
    1212
    13   TFormSourceEditor = class(TForm)
     13  TFormSourceEditor = class(TFormEx)
    1414    AClose: TAction;
    1515    ANew: TAction;

  • branches/ByteArray/Packages/Common/Common.lpk

    r47 r48  
    4545    <Files Count="36">
    4646      <Item1>
    47         <Filename Value="StopWatch.pas"/>
    48         <UnitName Value="StopWatch"/>
     47        <Filename Value="Common.StopWatch.pas"/>
     48        <UnitName Value="Common.StopWatch"/>
    4949      </Item1>
    5050      <Item2>
    51         <Filename Value="Common.pas"/>
    52         <UnitName Value="Common"/>
     51        <Filename Value="Common.Utils.pas"/>
     52        <UnitName Value="Common.Utils"/>
    5353      </Item2>
    5454      <Item3>
    55         <Filename Value="DebugLog.pas"/>
    56         <HasRegisterProc Value="True"/>
    57         <UnitName Value="DebugLog"/>
     55        <Filename Value="Common.DebugLog.pas"/>
     56        <HasRegisterProc Value="True"/>
     57        <UnitName Value="Common.DebugLog"/>
    5858      </Item3>
    5959      <Item4>
    … …  
    6262      </Item4>
    6363      <Item5>
    64         <Filename Value="PrefixMultiplier.pas"/>
    65         <HasRegisterProc Value="True"/>
    66         <UnitName Value="PrefixMultiplier"/>
     64        <Filename Value="Common.PrefixMultiplier.pas"/>
     65        <HasRegisterProc Value="True"/>
     66        <UnitName Value="Common.PrefixMultiplier"/>
    6767      </Item5>
    6868      <Item6>
    69         <Filename Value="URI.pas"/>
    70         <UnitName Value="URI"/>
     69        <Filename Value="Common.URI.pas"/>
     70        <UnitName Value="Common.URI"/>
    7171      </Item6>
    7272      <Item7>
    73         <Filename Value="Threading.pas"/>
    74         <UnitName Value="Threading"/>
     73        <Filename Value="Common.Threading.pas"/>
     74        <UnitName Value="Common.Threading"/>
    7575      </Item7>
    7676      <Item8>
    77         <Filename Value="Memory.pas"/>
    78         <UnitName Value="Memory"/>
     77        <Filename Value="Common.Memory.pas"/>
     78        <UnitName Value="Common.Memory"/>
    7979      </Item8>
    8080      <Item9>
    81         <Filename Value="ResetableThread.pas"/>
    82         <UnitName Value="ResetableThread"/>
     81        <Filename Value="Common.ResetableThread.pas"/>
     82        <UnitName Value="Common.ResetableThread"/>
    8383      </Item9>
    8484      <Item10>
    85         <Filename Value="Pool.pas"/>
    86         <UnitName Value="Pool"/>
     85        <Filename Value="Common.Pool.pas"/>
     86        <UnitName Value="Common.Pool"/>
    8787      </Item10>
    8888      <Item11>
    89         <Filename Value="LastOpenedList.pas"/>
    90         <HasRegisterProc Value="True"/>
    91         <UnitName Value="LastOpenedList"/>
     89        <Filename Value="Common.LastOpenedList.pas"/>
     90        <HasRegisterProc Value="True"/>
     91        <UnitName Value="Common.LastOpenedList"/>
    9292      </Item11>
    9393      <Item12>
    94         <Filename Value="RegistryEx.pas"/>
    95         <UnitName Value="RegistryEx"/>
     94        <Filename Value="Common.RegistryEx.pas"/>
     95        <UnitName Value="Common.RegistryEx"/>
    9696      </Item12>
    9797      <Item13>
    98         <Filename Value="JobProgressView.pas"/>
    99         <HasRegisterProc Value="True"/>
    100         <UnitName Value="JobProgressView"/>
     98        <Filename Value="Common.JobProgressView.pas"/>
     99        <HasRegisterProc Value="True"/>
     100        <UnitName Value="Common.JobProgressView"/>
    101101      </Item13>
    102102      <Item14>
    103         <Filename Value="XML.pas"/>
    104         <UnitName Value="XML"/>
     103        <Filename Value="Common.XML.pas"/>
     104        <UnitName Value="Common.XML"/>
    105105      </Item14>
    106106      <Item15>
    107         <Filename Value="ApplicationInfo.pas"/>
    108         <HasRegisterProc Value="True"/>
    109         <UnitName Value="ApplicationInfo"/>
     107        <Filename Value="Common.ApplicationInfo.pas"/>
     108        <HasRegisterProc Value="True"/>
     109        <UnitName Value="Common.ApplicationInfo"/>
    110110      </Item15>
    111111      <Item16>
    112         <Filename Value="SyncCounter.pas"/>
    113         <UnitName Value="SyncCounter"/>
     112        <Filename Value="Common.SyncCounter.pas"/>
     113        <UnitName Value="Common.SyncCounter"/>
    114114      </Item16>
    115115      <Item17>
    116         <Filename Value="ListViewSort.pas"/>
    117         <HasRegisterProc Value="True"/>
    118         <UnitName Value="ListViewSort"/>
     116        <Filename Value="Common.ListViewSort.pas"/>
     117        <HasRegisterProc Value="True"/>
     118        <UnitName Value="Common.ListViewSort"/>
    119119      </Item17>
    120120      <Item18>
    121         <Filename Value="PersistentForm.pas"/>
    122         <HasRegisterProc Value="True"/>
    123         <UnitName Value="PersistentForm"/>
     121        <Filename Value="Common.PersistentForm.pas"/>
     122        <HasRegisterProc Value="True"/>
     123        <UnitName Value="Common.PersistentForm"/>
    124124      </Item18>
    125125      <Item19>
    126         <Filename Value="FindFile.pas"/>
    127         <HasRegisterProc Value="True"/>
    128         <UnitName Value="FindFile"/>
     126        <Filename Value="Common.FindFile.pas"/>
     127        <HasRegisterProc Value="True"/>
     128        <UnitName Value="Common.FindFile"/>
    129129      </Item19>
    130130      <Item20>
    131         <Filename Value="ScaleDPI.pas"/>
    132         <HasRegisterProc Value="True"/>
    133         <UnitName Value="ScaleDPI"/>
     131        <Filename Value="Common.ScaleDPI.pas"/>
     132        <HasRegisterProc Value="True"/>
     133        <UnitName Value="Common.ScaleDPI"/>
    134134      </Item20>
    135135      <Item21>
    136         <Filename Value="Theme.pas"/>
    137         <HasRegisterProc Value="True"/>
    138         <UnitName Value="Theme"/>
     136        <Filename Value="Common.Theme.pas"/>
     137        <HasRegisterProc Value="True"/>
     138        <UnitName Value="Common.Theme"/>
    139139      </Item21>
    140140      <Item22>
    141         <Filename Value="StringTable.pas"/>
    142         <UnitName Value="StringTable"/>
     141        <Filename Value="Common.StringTable.pas"/>
     142        <UnitName Value="Common.StringTable"/>
    143143      </Item22>
    144144      <Item23>
    145         <Filename Value="MetaCanvas.pas"/>
    146         <UnitName Value="MetaCanvas"/>
     145        <Filename Value="Common.MetaCanvas.pas"/>
     146        <UnitName Value="Common.MetaCanvas"/>
    147147      </Item23>
    148148      <Item24>
    149         <Filename Value="Geometric.pas"/>
    150         <UnitName Value="Geometric"/>
     149        <Filename Value="Common.Geometric.pas"/>
     150        <UnitName Value="Common.Geometric"/>
    151151      </Item24>
    152152      <Item25>
    153         <Filename Value="Translator.pas"/>
    154         <HasRegisterProc Value="True"/>
    155         <UnitName Value="Translator"/>
     153        <Filename Value="Common.Translator.pas"/>
     154        <HasRegisterProc Value="True"/>
     155        <UnitName Value="Common.Translator"/>
    156156      </Item25>
    157157      <Item26>
    158         <Filename Value="Languages.pas"/>
    159         <UnitName Value="Languages"/>
     158        <Filename Value="Common.Languages.pas"/>
     159        <UnitName Value="Common.Languages"/>
    160160      </Item26>
    161161      <Item27>
    162         <Filename Value="PixelPointer.pas"/>
    163         <UnitName Value="PixelPointer"/>
     162        <Filename Value="Common.PixelPointer.pas"/>
     163        <UnitName Value="Common.PixelPointer"/>
    164164      </Item27>
    165165      <Item28>
    166         <Filename Value="DataFile.pas"/>
    167         <UnitName Value="DataFile"/>
     166        <Filename Value="Common.DataFile.pas"/>
     167        <UnitName Value="Common.DataFile"/>
    168168      </Item28>
    169169      <Item29>
    170         <Filename Value="TestCase.pas"/>
    171         <UnitName Value="TestCase"/>
     170        <Filename Value="Common.TestCase.pas"/>
     171        <UnitName Value="Common.TestCase"/>
    172172      </Item29>
    173173      <Item30>
    174         <Filename Value="Generics.pas"/>
    175         <UnitName Value="Generics"/>
     174        <Filename Value="Common.Generics.pas"/>
     175        <UnitName Value="Common.Generics"/>
    176176      </Item30>
    177177      <Item31>
    … …  
    181181      </Item31>
    182182      <Item32>
    183         <Filename Value="Table.pas"/>
    184         <UnitName Value="Table"/>
     183        <Filename Value="Common.Table.pas"/>
     184        <UnitName Value="Common.Table"/>
    185185      </Item32>
    186186      <Item33>
    187         <Filename Value="FormEx.pas"/>
    188         <HasRegisterProc Value="True"/>
    189         <UnitName Value="FormEx"/>
     187        <Filename Value="Common.FormEx.pas"/>
     188        <HasRegisterProc Value="True"/>
     189        <UnitName Value="Common.FormEx"/>
    190190      </Item33>
    191191      <Item34>
    192         <Filename Value="Forms\FormTests.pas"/>
    193         <UnitName Value="FormTests"/>
     192        <Filename Value="Forms\Common.FormTests.pas"/>
     193        <UnitName Value="Common.FormTests"/>
    194194      </Item34>
    195195      <Item35>
    196         <Filename Value="Forms\FormTest.pas"/>
    197         <UnitName Value="FormTest"/>
     196        <Filename Value="Forms\Common.FormTest.pas"/>
     197        <UnitName Value="Common.FormTest"/>
    198198      </Item35>
    199199      <Item36>
    200         <Filename Value="Forms\FormAbout.pas"/>
    201         <UnitName Value="FormAbout"/>
     200        <Filename Value="Forms\Common.FormAbout.pas"/>
     201        <UnitName Value="Common.FormAbout"/>
    202202      </Item36>
    203203    </Files>

  • branches/ByteArray/Packages/Common/CommonPackage.pas

    r47 r48  
    99
    1010uses
    11   StopWatch, Common, DebugLog, Common.Delay, PrefixMultiplier, URI, Threading,
    12   Memory, ResetableThread, Pool, LastOpenedList, RegistryEx, JobProgressView,
    13   XML, ApplicationInfo, SyncCounter, ListViewSort, PersistentForm, FindFile,
    14   ScaleDPI, Theme, StringTable, MetaCanvas, Geometric, Translator, Languages,
    15   PixelPointer, DataFile, TestCase, Generics, Table, FormEx, FormTests,
    16   FormTest, FormAbout, LazarusPackageIntf;
     11  Common.StopWatch, Common.Utils, Common.DebugLog, Common.Delay,
     12  Common.PrefixMultiplier, Common.URI, Common.Threading, Common.Memory,
     13  Common.ResetableThread, Common.Pool, Common.LastOpenedList,
     14  Common.RegistryEx, Common.JobProgressView, Common.XML,
     15  Common.ApplicationInfo, Common.SyncCounter, Common.ListViewSort,
     16  Common.PersistentForm, Common.FindFile, Common.ScaleDPI, Common.Theme,
     17  Common.StringTable, Common.MetaCanvas, Common.Geometric, Common.Translator,
     18  Common.Languages, Common.PixelPointer, Common.DataFile, Common.TestCase,
     19  Common.Generics, Common.Table, Common.FormEx, Common.FormTests,
     20  Common.FormTest, Common.FormAbout, LazarusPackageIntf;
    1721
    1822implementation
    … …  
    2024procedure Register;
    2125begin
    22   RegisterUnit('DebugLog', @DebugLog.Register);
    23   RegisterUnit('PrefixMultiplier', @PrefixMultiplier.Register);
    24   RegisterUnit('LastOpenedList', @LastOpenedList.Register);
    25   RegisterUnit('JobProgressView', @JobProgressView.Register);
    26   RegisterUnit('ApplicationInfo', @ApplicationInfo.Register);
    27   RegisterUnit('ListViewSort', @ListViewSort.Register);
    28   RegisterUnit('PersistentForm', @PersistentForm.Register);
    29   RegisterUnit('FindFile', @FindFile.Register);
    30   RegisterUnit('ScaleDPI', @ScaleDPI.Register);
    31   RegisterUnit('Theme', @Theme.Register);
    32   RegisterUnit('Translator', @Translator.Register);
    33   RegisterUnit('FormEx', @FormEx.Register);
     26  RegisterUnit('Common.DebugLog', @Common.DebugLog.Register);
     27  RegisterUnit('Common.PrefixMultiplier', @Common.PrefixMultiplier.Register);
     28  RegisterUnit('Common.LastOpenedList', @Common.LastOpenedList.Register);
     29  RegisterUnit('Common.JobProgressView', @Common.JobProgressView.Register);
     30  RegisterUnit('Common.ApplicationInfo', @Common.ApplicationInfo.Register);
     31  RegisterUnit('Common.ListViewSort', @Common.ListViewSort.Register);
     32  RegisterUnit('Common.PersistentForm', @Common.PersistentForm.Register);
     33  RegisterUnit('Common.FindFile', @Common.FindFile.Register);
     34  RegisterUnit('Common.ScaleDPI', @Common.ScaleDPI.Register);
     35  RegisterUnit('Common.Theme', @Common.Theme.Register);
     36  RegisterUnit('Common.Translator', @Common.Translator.Register);
     37  RegisterUnit('Common.FormEx', @Common.FormEx.Register);
    3438end;
    3539
Note: See TracChangeset for help on using the changeset viewer.