Changeset 58


Ignore:
Timestamp:
Nov 23, 2023, 11:18:42 PM (5 months ago)
Author:
chronos
Message:
  • Modified: Source editor with main menu can't be docked into another form with main menu. Source enditor and Screen have own main menu.
Location:
branches/ByteArray
Files:
2 added
3 deleted
14 edited

Legend:

Unmodified
Added
Removed

  • branches/ByteArray/ByteArray.lpi

    r57 r58  
    9090      </Unit>
    9191      <Unit>
    92         <Filename Value="Forms/FormMain.pas"/>
    93         <IsPartOfProject Value="True"/>
    94         <ComponentName Value="FormMain"/>
    95         <HasResources Value="True"/>
    96         <ResourceBaseClass Value="Form"/>
    97       </Unit>
    98       <Unit>
    9992        <Filename Value="Cpu.pas"/>
    10093        <IsPartOfProject Value="True"/>

  • branches/ByteArray/ByteArray.lpr

    r57 r58  
    99  {$ENDIF}
    1010  Interfaces, SysUtils,// this includes the LCL widgetset
    11   Forms, FormMain, FormConsole, FormDevice, FormScreen, FormDisassembler,
     11  Forms, FormConsole, FormDevice, FormScreen, FormDisassembler,
    1212  FormAssembler, Cpu, BigInt, Channel, Common.Memory, FrameBuffer, Device,
    1313  Storage, DeviceMapper, Machine, Disassembler, Instructions, Parser, Message,
    … …  
    3434  Application.Initialize;
    3535  Application.CreateForm(TCore, Core.Core);
    36   Application.CreateForm(TFormMain, FormMain.FormMain);
    3736  Application.Run;
    3837end.

  • branches/ByteArray/Core.lfm

    r57 r58  
    3939    Top = 187
    4040  end
     41  object ActionList1: TActionList
     42    Left = 568
     43    Top = 88
     44    object ASourceEditor: TAction
     45      Caption = 'Source editor'
     46      OnExecute = ASourceEditorExecute
     47      ShortCut = 123
     48    end
     49    object ADebugger: TAction
     50      Caption = 'Debugger'
     51      OnExecute = ADebuggerExecute
     52    end
     53    object ADevices: TAction
     54      Caption = 'Devices'
     55    end
     56    object AExit: TAction
     57      Caption = 'Exit'
     58      OnExecute = AExitExecute
     59      ShortCut = 32883
     60    end
     61    object AMemory: TAction
     62      Caption = 'Memory'
     63      OnExecute = AMemoryExecute
     64    end
     65    object AFullscreen: TAction
     66      Caption = 'Fullscreen'
     67      OnExecute = AFullscreenExecute
     68      ShortCut = 122
     69    end
     70    object ADisassembler: TAction
     71      Caption = 'Disassembler'
     72      OnExecute = ADisassemblerExecute
     73    end
     74    object AStorage: TAction
     75      Caption = 'Storage'
     76      OnExecute = AStorageExecute
     77    end
     78    object AScreen: TAction
     79      Caption = 'Screen'
     80      OnExecute = AScreenExecute
     81    end
     82    object AConsole: TAction
     83      Caption = 'Console'
     84      OnExecute = AConsoleExecute
     85    end
     86    object ASettings: TAction
     87      Caption = 'Settings'
     88      OnExecute = ASettingsExecute
     89    end
     90    object AAbout: TAction
     91      Caption = 'About'
     92      OnExecute = AAboutExecute
     93    end
     94  end
    4195end

  • branches/ByteArray/Core.lrj

    r57 r58  
    11{"version":1,"strings":[
    2 {"hash":85931332,"name":"tcore.applicationinfo1.description","sourcebytes":[86,105,114,116,117,97,108,32,109,97,99,104,105,110,101,32,97,110,100,32,100,101,118,101,108,111,112,109,101,110,116,32,101,110,118,105,114,111,110,109,101,110,116],"value":"Virtual machine and development environment"}
     2{"hash":85931332,"name":"tcore.applicationinfo1.description","sourcebytes":[86,105,114,116,117,97,108,32,109,97,99,104,105,110,101,32,97,110,100,32,100,101,118,101,108,111,112,109,101,110,116,32,101,110,118,105,114,111,110,109,101,110,116],"value":"Virtual machine and development environment"},
     3{"hash":215450690,"name":"tcore.asourceeditor.caption","sourcebytes":[83,111,117,114,99,101,32,101,100,105,116,111,114],"value":"Source editor"},
     4{"hash":194763106,"name":"tcore.adebugger.caption","sourcebytes":[68,101,98,117,103,103,101,114],"value":"Debugger"},
     5{"hash":181205379,"name":"tcore.adevices.caption","sourcebytes":[68,101,118,105,99,101,115],"value":"Devices"},
     6{"hash":315140,"name":"tcore.aexit.caption","sourcebytes":[69,120,105,116],"value":"Exit"},
     7{"hash":87836313,"name":"tcore.amemory.caption","sourcebytes":[77,101,109,111,114,121],"value":"Memory"},
     8{"hash":60708750,"name":"tcore.afullscreen.caption","sourcebytes":[70,117,108,108,115,99,114,101,101,110],"value":"Fullscreen"},
     9{"hash":219359842,"name":"tcore.adisassembler.caption","sourcebytes":[68,105,115,97,115,115,101,109,98,108,101,114],"value":"Disassembler"},
     10{"hash":179734405,"name":"tcore.astorage.caption","sourcebytes":[83,116,111,114,97,103,101],"value":"Storage"},
     11{"hash":94014398,"name":"tcore.ascreen.caption","sourcebytes":[83,99,114,101,101,110],"value":"Screen"},
     12{"hash":174433893,"name":"tcore.aconsole.caption","sourcebytes":[67,111,110,115,111,108,101],"value":"Console"},
     13{"hash":213582195,"name":"tcore.asettings.caption","sourcebytes":[83,101,116,116,105,110,103,115],"value":"Settings"},
     14{"hash":4691652,"name":"tcore.aabout.caption","sourcebytes":[65,98,111,117,116],"value":"About"}
    315]}

  • branches/ByteArray/Core.pas

    r57 r58  
    44
    55uses
    6   Classes, SysUtils, Machine, Common.PersistentForm, Common.ApplicationInfo,
    7   Common.RegistryEx, Common.Translator, Common.Theme;
     6  Classes, SysUtils, Machine, ActnList, Forms, Common.PersistentForm,
     7  Common.ApplicationInfo, Common.RegistryEx, Common.Translator, Common.Theme,
     8  FormConsole, FormScreen, FormSourceEditor, FormMemory, FormDisassembler,
     9  FormStorage, FormDebugger;
    810
    911type
    … …  
    1214
    1315  TCore = class(TDataModule)
     16    AAbout: TAction;
     17    AConsole: TAction;
     18    ActionList1: TActionList;
     19    ADebugger: TAction;
     20    ADevices: TAction;
     21    ADisassembler: TAction;
     22    AExit: TAction;
     23    AFullscreen: TAction;
     24    AMemory: TAction;
    1425    ApplicationInfo1: TApplicationInfo;
     26    AScreen: TAction;
     27    ASettings: TAction;
     28    ASourceEditor: TAction;
     29    AStorage: TAction;
    1530    PersistentForm1: TPersistentForm;
    1631    ThemeManager1: TThemeManager;
    1732    Translator1: TTranslator;
     33    procedure AAboutExecute(Sender: TObject);
     34    procedure AConsoleExecute(Sender: TObject);
     35    procedure ADebuggerExecute(Sender: TObject);
     36    procedure ADisassemblerExecute(Sender: TObject);
     37    procedure AExitExecute(Sender: TObject);
     38    procedure AFullscreenExecute(Sender: TObject);
     39    procedure AMemoryExecute(Sender: TObject);
     40    procedure AScreenExecute(Sender: TObject);
     41    procedure ASettingsExecute(Sender: TObject);
     42    procedure ASourceEditorExecute(Sender: TObject);
     43    procedure AStorageExecute(Sender: TObject);
    1844    procedure DataModuleCreate(Sender: TObject);
    1945    procedure DataModuleDestroy(Sender: TObject);
    … …  
    2349    procedure SaveConfig;
    2450  public
     51    MainForm: TForm;
     52    FormScreen: TFormScreen;
     53    FormConsole: TFormConsole;
     54    FormMemory: TFormMemory;
     55    FormSourceEditor: TFormSourceEditor;
     56    FormDisassembler: TFormDisassembler;
     57    FormStorage: TFormStorage;
     58    FormDebugger: TFormDebugger;
    2559    StartUpForm: string;
    2660    AutoStartMachine: Boolean;
    … …  
    3771
    3872uses
    39   BigInt, Cpu, Common.FormEx;
     73  BigInt, Cpu, Common.FormEx, FormSettings, Common.FormAbout;
    4074
    4175{ TCore }
    … …  
    5084  TFormEx.ThemeManager := ThemeManager1;
    5185  TFormEx.PersistentForm := PersistentForm1;
     86
     87  if StartUpForm = 'Screen' then begin
     88    AScreen.Execute;
     89  end;
     90  if StartUpForm = 'Source editor' then begin
     91    ASourceEditor.Execute;
     92  end;
     93  if StartUpForm = 'Debugger' then begin
     94    ADebugger.Execute;
     95  end;
     96  if AutoStartMachine then
     97    Machine.PowerOn;
     98end;
     99
     100procedure TCore.AExitExecute(Sender: TObject);
     101begin
     102  Application.Terminate;
     103end;
     104
     105procedure TCore.ADebuggerExecute(Sender: TObject);
     106begin
     107  if not Assigned(FormDebugger) then begin
     108    FormDebugger := TFormDebugger.Create(nil);
     109  end;
     110  FormDebugger.Show;
     111end;
     112
     113procedure TCore.ADisassemblerExecute(Sender: TObject);
     114begin
     115  if not Assigned(FormDisassembler) then begin
     116    FormDisassembler := TFormDisassembler.Create(nil);
     117    if not Assigned(MainForm) then MainForm := FormDisassembler;
     118  end;
     119  FormDisassembler.Disassembler.Memory := Machine.Memory;
     120  FormDisassembler.Show;
     121end;
     122
     123procedure TCore.AConsoleExecute(Sender: TObject);
     124begin
     125  if not Assigned(FormConsole) then begin
     126    FormConsole := TFormConsole.Create(nil);
     127    Machine.Serial.OnWrite := FormConsole.ConsoleWrite;
     128  end;
     129  FormConsole.Show;
     130end;
     131
     132procedure TCore.AAboutExecute(Sender: TObject);
     133var
     134  FormAbout: TFormAbout;
     135begin
     136  FormAbout := TFormAbout.Create(nil);
     137  try
     138    FormAbout.ApplicationInfo := ApplicationInfo1;
     139    FormAbout.ShowModal;
     140  finally
     141    FreeAndNil(FormAbout);
     142  end;
     143end;
     144
     145procedure TCore.AFullscreenExecute(Sender: TObject);
     146begin
     147  PersistentForm1.SetFullScreen(not PersistentForm1.FormFullScreen);
     148end;
     149
     150procedure TCore.AMemoryExecute(Sender: TObject);
     151begin
     152  if not Assigned(FormMemory) then begin
     153    FormMemory := TFormMemory.Create(nil);
     154    FormMemory.Memory := Machine.Memory;
     155  end;
     156  FormMemory.Show;
     157end;
     158
     159procedure TCore.AScreenExecute(Sender: TObject);
     160begin
     161  if not Assigned(FormScreen) then begin
     162    FormScreen := TFormScreen.Create(nil);
     163    if not Assigned(MainForm) then MainForm := FormScreen;
     164    FormScreen.FrameBuffer := Machine.FrameBuffer;
     165    Machine.FrameBuffer.OnChange := FormScreen.ScreenChange;
     166  end;
     167  FormScreen.Show;
     168end;
     169
     170procedure TCore.ASettingsExecute(Sender: TObject);
     171var
     172  FormSettings: TFormSettings;
     173begin
     174  FormSettings := TFormSettings.Create(nil);
     175  try
     176    FormSettings.ShowModal;
     177  finally
     178    FormSettings.Free;
     179  end;
     180end;
     181
     182procedure TCore.ASourceEditorExecute(Sender: TObject);
     183begin
     184  if not Assigned(FormSourceEditor) then begin
     185    FormSourceEditor := TFormSourceEditor.Create(nil);
     186    if not Assigned(MainForm) then MainForm := FormSourceEditor;
     187    FormSourceEditor.Machine := Machine;
     188  end;
     189  FormSourceEditor.Show;
     190end;
     191
     192procedure TCore.AStorageExecute(Sender: TObject);
     193begin
     194  if not Assigned(FormStorage) then begin
     195    FormStorage := TFormStorage.Create(nil);
     196    FormStorage.Storage := Machine.Storage;
     197  end;
     198  FormStorage.Show;
    52199end;
    53200
    … …  
    55202begin
    56203  SaveConfig;
     204  if Assigned(FormSourceEditor) then FreeAndNil(FormSourceEditor);
     205  if Assigned(FormScreen) then FreeAndNil(FormScreen);
     206  if Assigned(FormConsole) then FreeAndNil(FormConsole);
     207  if Assigned(FormMemory) then FreeAndNil(FormMemory);
     208  if Assigned(FormDisassembler) then FreeAndNil(FormDisassembler);
     209  if Assigned(FormStorage) then FreeAndNil(FormStorage);
     210  if Assigned(FormDebugger) then FreeAndNil(FormDebugger);
     211
    57212  FreeAndNil(Machine);
    58213end;

  • branches/ByteArray/Forms/FormDisassembler.lfm

    r50 r58  
    88  ClientWidth = 1056
    99  DesignTimePPI = 144
     10  OnClose = FormClose
    1011  OnCreate = FormCreate
    1112  OnDestroy = FormDestroy

  • branches/ByteArray/Forms/FormDisassembler.pas

    r50 r58  
    1212  TFormDisassembler = class(TForm)
    1313    MemoCode: TMemo;
     14    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    1415    procedure FormCreate(Sender: TObject);
    1516    procedure FormDestroy(Sender: TObject);
    … …  
    2930{$R *.lfm}
    3031
     32uses
     33  Core;
     34
    3135{ TFormDisassembler }
    3236
    … …  
    3438begin
    3539  Disassembler := TDisassembler.Create;
     40end;
     41
     42procedure TFormDisassembler.FormClose(Sender: TObject;
     43  var CloseAction: TCloseAction);
     44begin
     45  if Core.Core.MainForm = Self then Application.Terminate;
    3646end;
    3747

  • branches/ByteArray/Forms/FormScreen.lfm

    r50 r58  
    11object FormScreen: TFormScreen
    2   Left = 815
     2  Left = 814
    33  Height = 676
    4   Top = 406
     4  Top = 382
    55  Width = 931
    66  Caption = 'Screen'
    7   ClientHeight = 676
     7  ClientHeight = 642
    88  ClientWidth = 931
    99  DesignTimePPI = 144
     10  Menu = MainMenu1
     11  OnClose = FormClose
    1012  OnShow = FormShow
    1113  LCLVersion = '2.2.6.0'
    1214  object Image1: TImage
    1315    Left = 0
    14     Height = 676
     16    Height = 642
    1517    Top = 0
    1618    Width = 931
    … …  
    2628    Top = 144
    2729  end
     30  object MainMenu1: TMainMenu
     31    Left = 371
     32    Top = 119
     33    object MenuItem4: TMenuItem
     34      Caption = 'File'
     35      object MenuItem6: TMenuItem
     36        Action = Core.AExit
     37      end
     38    end
     39    object MenuItem1: TMenuItem
     40      Caption = 'View'
     41      object MenuItemViewConsole: TMenuItem
     42        Action = Core.AConsole
     43      end
     44      object MenuItemViewStorage: TMenuItem
     45        Action = Core.AStorage
     46      end
     47      object MenuItem7: TMenuItem
     48        Action = Core.AMemory
     49      end
     50      object Separator1: TMenuItem
     51        Caption = '-'
     52      end
     53      object MenuItem9: TMenuItem
     54        Action = Core.AFullscreen
     55      end
     56    end
     57    object MenuItem2: TMenuItem
     58      Caption = 'Tools'
     59      object MenuItem10: TMenuItem
     60        Action = Core.ASettings
     61      end
     62      object Separator2: TMenuItem
     63        Caption = '-'
     64      end
     65      object MenuItem3: TMenuItem
     66        Action = Core.ASourceEditor
     67      end
     68      object MenuItem5: TMenuItem
     69        Action = Core.ADebugger
     70      end
     71      object MenuItem8: TMenuItem
     72        Action = Core.ADisassembler
     73      end
     74    end
     75    object MenuItem11: TMenuItem
     76      Caption = 'Help'
     77      object MenuItem12: TMenuItem
     78        Action = Core.AAbout
     79      end
     80    end
     81  end
    2882end

  • branches/ByteArray/Forms/FormScreen.pas

    r45 r58  
    44
    55uses
    6   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, FrameBuffer,
    7   Channel, Device;
     6  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, Menus,
     7  FrameBuffer, Device;
    88
    99type
    … …  
    1313  TFormScreen = class(TFormDevice)
    1414    Image1: TImage;
     15    MainMenu1: TMainMenu;
     16    MenuItem1: TMenuItem;
     17    MenuItem10: TMenuItem;
     18    MenuItem11: TMenuItem;
     19    MenuItem12: TMenuItem;
     20    MenuItem2: TMenuItem;
     21    MenuItem3: TMenuItem;
     22    MenuItem4: TMenuItem;
     23    MenuItem5: TMenuItem;
     24    MenuItem6: TMenuItem;
     25    MenuItem7: TMenuItem;
     26    MenuItem8: TMenuItem;
     27    MenuItem9: TMenuItem;
     28    MenuItemViewConsole: TMenuItem;
     29    MenuItemViewStorage: TMenuItem;
     30    Separator1: TMenuItem;
     31    Separator2: TMenuItem;
    1532    TimerDraw: TTimer;
     33    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    1634    procedure FormShow(Sender: TObject);
    1735    procedure TimerDrawTimer(Sender: TObject);
    … …  
    2745
    2846{$R *.lfm}
     47
     48uses
     49  Core;
    2950
    3051{ TFormScreen }
    … …  
    5576end;
    5677
     78procedure TFormScreen.FormClose(Sender: TObject; var CloseAction: TCloseAction);
     79begin
     80  if Core.Core.MainForm = Self then Application.Terminate;
     81end;
     82
    5783procedure TFormScreen.ScreenChange(Sender: TObject);
    5884begin

  • branches/ByteArray/Forms/FormSourceEditor.lfm

    r56 r58  
    11object FormSourceEditor: TFormSourceEditor
    2   Left = 818
     2  Left = 817
    33  Height = 681
    4   Top = 403
     4  Top = 379
    55  Width = 926
    66  Caption = 'Source editor'
    … …  
    99  DesignTimePPI = 144
    1010  Menu = MainMenu1
     11  OnClose = FormClose
    1112  OnCreate = FormCreate
    1213  OnDestroy = FormDestroy
    … …  
    6768      end
    6869      object MenuItem8: TMenuItem
    69         Action = AExit
     70        Action = Core.AExit
     71      end
     72    end
     73    object MenuItem20: TMenuItem
     74      Caption = 'View'
     75      object MenuItem21: TMenuItem
     76        Action = Core.AScreen
     77      end
     78      object MenuItem22: TMenuItem
     79        Action = Core.AConsole
     80      end
     81      object MenuItem24: TMenuItem
     82        Action = Core.AStorage
     83      end
     84      object MenuItem23: TMenuItem
     85        Action = Core.AMemory
     86      end
     87      object Separator3: TMenuItem
     88        Caption = '-'
     89      end
     90      object MenuItem28: TMenuItem
     91        Action = Core.AFullscreen
    7092      end
    7193    end
    … …  
    95117      object MenuItem16: TMenuItem
    96118        Action = ARunToCursor
     119      end
     120    end
     121    object MenuItem25: TMenuItem
     122      Caption = 'Tools'
     123      object MenuItem27: TMenuItem
     124        Action = Core.ASettings
     125      end
     126      object Separator2: TMenuItem
     127        Caption = '-'
     128      end
     129      object MenuItem26: TMenuItem
     130        Action = Core.ADebugger
     131      end
     132      object MenuItem29: TMenuItem
     133        Action = Core.ADisassembler
     134      end
     135    end
     136    object MenuItem18: TMenuItem
     137      Caption = 'Help'
     138      object MenuItem19: TMenuItem
     139        Action = Core.AAbout
    97140      end
    98141    end
    … …  
    103146    object AExit: TAction
    104147      Caption = 'Exit'
    105       OnExecute = AExitExecute
    106148    end
    107149    object ANew: TAction

  • branches/ByteArray/Forms/FormSourceEditor.lrj

    r50 r58  
    22{"hash":215450690,"name":"tformsourceeditor.caption","sourcebytes":[83,111,117,114,99,101,32,101,100,105,116,111,114],"value":"Source editor"},
    33{"hash":315429,"name":"tformsourceeditor.menuitem1.caption","sourcebytes":[70,105,108,101],"value":"File"},
     4{"hash":380871,"name":"tformsourceeditor.menuitem20.caption","sourcebytes":[86,105,101,119],"value":"View"},
    45{"hash":22974,"name":"tformsourceeditor.menuitem9.caption","sourcebytes":[82,117,110],"value":"Run"},
     6{"hash":5989939,"name":"tformsourceeditor.menuitem25.caption","sourcebytes":[84,111,111,108,115],"value":"Tools"},
     7{"hash":322608,"name":"tformsourceeditor.menuitem18.caption","sourcebytes":[72,101,108,112],"value":"Help"},
    58{"hash":315140,"name":"tformsourceeditor.aexit.caption","sourcebytes":[69,120,105,116],"value":"Exit"},
    69{"hash":21703,"name":"tformsourceeditor.anew.caption","sourcebytes":[78,101,119],"value":"New"},

  • branches/ByteArray/Forms/FormSourceEditor.pas

    r56 r58  
    3939    MenuItem16: TMenuItem;
    4040    MenuItem17: TMenuItem;
     41    MenuItem18: TMenuItem;
     42    MenuItem19: TMenuItem;
    4143    MenuItem2: TMenuItem;
     44    MenuItem20: TMenuItem;
     45    MenuItem21: TMenuItem;
     46    MenuItem22: TMenuItem;
     47    MenuItem23: TMenuItem;
     48    MenuItem24: TMenuItem;
     49    MenuItem25: TMenuItem;
     50    MenuItem26: TMenuItem;
     51    MenuItem27: TMenuItem;
     52    MenuItem28: TMenuItem;
     53    MenuItem29: TMenuItem;
     54    Separator3: TMenuItem;
     55    Separator2: TMenuItem;
    4256    MenuItem3: TMenuItem;
    4357    MenuItem4: TMenuItem;
    … …  
    5367    procedure ACloseExecute(Sender: TObject);
    5468    procedure ACompileExecute(Sender: TObject);
    55     procedure AExitExecute(Sender: TObject);
    5669    procedure ANewExecute(Sender: TObject);
    5770    procedure AOpenExecute(Sender: TObject);
    … …  
    6073    procedure ASaveExecute(Sender: TObject);
    6174    procedure AStopExecute(Sender: TObject);
     75    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    6276    procedure FormCreate(Sender: TObject);
    6377    procedure FormDestroy(Sender: TObject);
    … …  
    7791implementation
    7892
     93{$R *.lfm}
     94
    7995uses
    80   Common;
    81 
    82 {$R *.lfm}
     96  Common, Core;
    8397
    8498{ TFormSourceEditor }
    … …  
    91105  FormAssembler := TFormAssembler.Create(nil);
    92106  FormMessages.OnSelect := FormAssembler.Select;
    93 end;
    94 
    95 procedure TFormSourceEditor.AExitExecute(Sender: TObject);
    96 begin
    97   Close;
    98107end;
    99108
    … …  
    165174end;
    166175
     176procedure TFormSourceEditor.FormClose(Sender: TObject;
     177  var CloseAction: TCloseAction);
     178begin
     179  if Core.Core.MainForm = Self then Application.Terminate;
     180end;
     181
    167182procedure TFormSourceEditor.FormDestroy(Sender: TObject);
    168183begin

  • branches/ByteArray/Languages/ByteArray.cs.po

    r57 r58  
    9090msgstr "Neznámý znak %s"
    9191
     92#: tcore.aabout.caption
     93msgctxt "tcore.aabout.caption"
     94msgid "About"
     95msgstr "O aplikaci"
     96
     97#: tcore.aconsole.caption
     98msgctxt "tcore.aconsole.caption"
     99msgid "Console"
     100msgstr "Konzola"
     101
     102#: tcore.adebugger.caption
     103msgctxt "tcore.adebugger.caption"
     104msgid "Debugger"
     105msgstr "Ladič"
     106
     107#: tcore.adevices.caption
     108msgctxt "tcore.adevices.caption"
     109msgid "Devices"
     110msgstr "Zařízení"
     111
     112#: tcore.adisassembler.caption
     113msgctxt "tcore.adisassembler.caption"
     114msgid "Disassembler"
     115msgstr "Disasembler"
     116
     117#: tcore.aexit.caption
     118msgctxt "tcore.aexit.caption"
     119msgid "Exit"
     120msgstr "Odejít"
     121
     122#: tcore.afullscreen.caption
     123msgctxt "tcore.afullscreen.caption"
     124msgid "Fullscreen"
     125msgstr "Celá obrazovka"
     126
     127#: tcore.amemory.caption
     128msgctxt "tcore.amemory.caption"
     129msgid "Memory"
     130msgstr "Paměť"
     131
    92132#: tcore.applicationinfo1.description
    93133msgid "Virtual machine and development environment"
    94134msgstr "Virtuální počítač a vývojové prostředí"
    95135
     136#: tcore.ascreen.caption
     137msgctxt "tcore.ascreen.caption"
     138msgid "Screen"
     139msgstr "Obrazovka"
     140
     141#: tcore.asettings.caption
     142msgctxt "tcore.asettings.caption"
     143msgid "Settings"
     144msgstr "Nastavení"
     145
     146#: tcore.asourceeditor.caption
     147msgctxt "tcore.asourceeditor.caption"
     148msgid "Source editor"
     149msgstr "Zdrojový editor"
     150
     151#: tcore.astorage.caption
     152msgctxt "tcore.astorage.caption"
     153msgid "Storage"
     154msgstr "Úložiště"
     155
    96156#: tformdebugger.caption
    97 #, fuzzy
    98157msgctxt "tformdebugger.caption"
    99158msgid "Debugger"
    100159msgstr "Ladič"
    101160
    102 #: tformmain.aabout.caption
    103 msgid "About"
    104 msgstr "O aplikaci"
    105 
    106 #: tformmain.aconsole.caption
    107 msgctxt "tformmain.aconsole.caption"
    108 msgid "Console"
    109 msgstr "Konzola"
    110 
    111 #: tformmain.adebugger.caption
    112 msgctxt "tformmain.adebugger.caption"
    113 msgid "Debugger"
    114 msgstr "Ladič"
    115 
    116 #: tformmain.adevices.caption
    117 msgid "Devices"
    118 msgstr "Zařízení"
    119 
    120 #: tformmain.adisassembler.caption
     161#: tformdisassembler.caption
     162msgctxt "tformdisassembler.caption"
    121163msgid "Disassembler"
    122 msgstr "Disasembler"
    123 
    124 #: tformmain.aexit.caption
    125 msgctxt "tformmain.aexit.caption"
    126 msgid "Exit"
    127 msgstr "Odejít"
    128 
    129 #: tformmain.afullscreen.caption
    130 msgid "Fullscreen"
    131 msgstr "Celá obrazovka"
    132 
    133 #: tformmain.amemory.caption
    134 msgctxt "tformmain.amemory.caption"
    135 msgid "Memory"
    136 msgstr "Paměť"
    137 
    138 #: tformmain.ascreen.caption
    139 msgctxt "tformmain.ascreen.caption"
    140 msgid "Screen"
    141 msgstr "Obrazovka"
    142 
    143 #: tformmain.asettings.caption
    144 msgctxt "tformmain.asettings.caption"
    145 msgid "Settings"
    146 msgstr "Nastavení"
    147 
    148 #: tformmain.asourceeditor.caption
    149 msgctxt "tformmain.asourceeditor.caption"
    150 msgid "Source editor"
    151 msgstr "Zdrojový editor"
    152 
    153 #: tformmain.astorage.caption
    154 msgctxt "tformmain.astorage.caption"
    155 msgid "Storage"
    156 msgstr "Úložiště"
    157 
    158 #: tformmain.caption
    159 msgid "ByteArray"
    160 msgstr "ByteArray"
    161 
    162 #: tformmain.menuitem1.caption
    163 msgid "View"
    164 msgstr "Pohled"
    165 
    166 #: tformmain.menuitem11.caption
    167 msgid "Help"
    168 msgstr "Nápověda"
    169 
    170 #: tformmain.menuitem2.caption
    171 msgid "Tools"
    172 msgstr "Nástroje"
    173 
    174 #: tformmain.menuitem4.caption
    175 msgctxt "tformmain.menuitem4.caption"
    176 msgid "File"
    177 msgstr "Soubor"
     164msgstr "Disassembler"
    178165
    179166#: tformmemory.caption
    … …  
    197184msgstr "ASCII"
    198185
     186#: tformscreen.caption
     187msgctxt "tformscreen.caption"
     188msgid "Screen"
     189msgstr "Obrazovka"
     190
     191#: tformscreen.menuitem1.caption
     192msgctxt "tformscreen.menuitem1.caption"
     193msgid "View"
     194msgstr "Pohled"
     195
     196#: tformscreen.menuitem11.caption
     197msgctxt "tformscreen.menuitem11.caption"
     198msgid "Help"
     199msgstr "Nápověda"
     200
     201#: tformscreen.menuitem2.caption
     202msgctxt "tformscreen.menuitem2.caption"
     203msgid "Tools"
     204msgstr "Nástroje"
     205
     206#: tformscreen.menuitem4.caption
     207msgctxt "tformscreen.menuitem4.caption"
     208msgid "File"
     209msgstr "Soubor"
     210
    199211#: tformsettings.buttoncancel.caption
    200212msgid "Cancel"
    … …  
    298310msgstr "Soubor"
    299311
     312#: tformsourceeditor.menuitem18.caption
     313msgctxt "tformsourceeditor.menuitem18.caption"
     314msgid "Help"
     315msgstr "Nápověda"
     316
     317#: tformsourceeditor.menuitem20.caption
     318msgctxt "tformsourceeditor.menuitem20.caption"
     319msgid "View"
     320msgstr "Pohled"
     321
     322#: tformsourceeditor.menuitem25.caption
     323msgctxt "tformsourceeditor.menuitem25.caption"
     324msgid "Tools"
     325msgstr "Nástroje"
     326
    300327#: tformsourceeditor.menuitem9.caption
    301328msgctxt "tformsourceeditor.menuitem9.caption"

  • branches/ByteArray/Languages/ByteArray.pot

    r57 r58  
    8080msgstr ""
    8181
     82#: tcore.aabout.caption
     83msgctxt "tcore.aabout.caption"
     84msgid "About"
     85msgstr ""
     86
     87#: tcore.aconsole.caption
     88msgctxt "tcore.aconsole.caption"
     89msgid "Console"
     90msgstr ""
     91
     92#: tcore.adebugger.caption
     93msgctxt "tcore.adebugger.caption"
     94msgid "Debugger"
     95msgstr ""
     96
     97#: tcore.adevices.caption
     98msgctxt "tcore.adevices.caption"
     99msgid "Devices"
     100msgstr ""
     101
     102#: tcore.adisassembler.caption
     103msgctxt "tcore.adisassembler.caption"
     104msgid "Disassembler"
     105msgstr ""
     106
     107#: tcore.aexit.caption
     108msgctxt "tcore.aexit.caption"
     109msgid "Exit"
     110msgstr ""
     111
     112#: tcore.afullscreen.caption
     113msgctxt "tcore.afullscreen.caption"
     114msgid "Fullscreen"
     115msgstr ""
     116
     117#: tcore.amemory.caption
     118msgctxt "tcore.amemory.caption"
     119msgid "Memory"
     120msgstr ""
     121
    82122#: tcore.applicationinfo1.description
    83123msgid "Virtual machine and development environment"
     124msgstr ""
     125
     126#: tcore.ascreen.caption
     127msgctxt "tcore.ascreen.caption"
     128msgid "Screen"
     129msgstr ""
     130
     131#: tcore.asettings.caption
     132msgctxt "tcore.asettings.caption"
     133msgid "Settings"
     134msgstr ""
     135
     136#: tcore.asourceeditor.caption
     137msgctxt "tcore.asourceeditor.caption"
     138msgid "Source editor"
     139msgstr ""
     140
     141#: tcore.astorage.caption
     142msgctxt "tcore.astorage.caption"
     143msgid "Storage"
    84144msgstr ""
    85145
    … …  
    89149msgstr ""
    90150
    91 #: tformmain.aabout.caption
    92 msgid "About"
    93 msgstr ""
    94 
    95 #: tformmain.aconsole.caption
    96 msgctxt "tformmain.aconsole.caption"
    97 msgid "Console"
    98 msgstr ""
    99 
    100 #: tformmain.adebugger.caption
    101 msgctxt "tformmain.adebugger.caption"
    102 msgid "Debugger"
    103 msgstr ""
    104 
    105 #: tformmain.adevices.caption
    106 msgid "Devices"
    107 msgstr ""
    108 
    109 #: tformmain.adisassembler.caption
     151#: tformdisassembler.caption
     152msgctxt "tformdisassembler.caption"
    110153msgid "Disassembler"
    111 msgstr ""
    112 
    113 #: tformmain.aexit.caption
    114 msgctxt "tformmain.aexit.caption"
    115 msgid "Exit"
    116 msgstr ""
    117 
    118 #: tformmain.afullscreen.caption
    119 msgid "Fullscreen"
    120 msgstr ""
    121 
    122 #: tformmain.amemory.caption
    123 msgctxt "tformmain.amemory.caption"
    124 msgid "Memory"
    125 msgstr ""
    126 
    127 #: tformmain.ascreen.caption
    128 msgctxt "tformmain.ascreen.caption"
    129 msgid "Screen"
    130 msgstr ""
    131 
    132 #: tformmain.asettings.caption
    133 msgctxt "tformmain.asettings.caption"
    134 msgid "Settings"
    135 msgstr ""
    136 
    137 #: tformmain.asourceeditor.caption
    138 msgctxt "tformmain.asourceeditor.caption"
    139 msgid "Source editor"
    140 msgstr ""
    141 
    142 #: tformmain.astorage.caption
    143 msgctxt "tformmain.astorage.caption"
    144 msgid "Storage"
    145 msgstr ""
    146 
    147 #: tformmain.caption
    148 msgid "ByteArray"
    149 msgstr ""
    150 
    151 #: tformmain.menuitem1.caption
    152 msgid "View"
    153 msgstr ""
    154 
    155 #: tformmain.menuitem11.caption
    156 msgid "Help"
    157 msgstr ""
    158 
    159 #: tformmain.menuitem2.caption
    160 msgid "Tools"
    161 msgstr ""
    162 
    163 #: tformmain.menuitem4.caption
    164 msgctxt "tformmain.menuitem4.caption"
    165 msgid "File"
    166154msgstr ""
    167155
    … …  
    186174msgstr ""
    187175
     176#: tformscreen.caption
     177msgctxt "tformscreen.caption"
     178msgid "Screen"
     179msgstr ""
     180
     181#: tformscreen.menuitem1.caption
     182msgctxt "tformscreen.menuitem1.caption"
     183msgid "View"
     184msgstr ""
     185
     186#: tformscreen.menuitem11.caption
     187msgctxt "tformscreen.menuitem11.caption"
     188msgid "Help"
     189msgstr ""
     190
     191#: tformscreen.menuitem2.caption
     192msgctxt "tformscreen.menuitem2.caption"
     193msgid "Tools"
     194msgstr ""
     195
     196#: tformscreen.menuitem4.caption
     197msgctxt "tformscreen.menuitem4.caption"
     198msgid "File"
     199msgstr ""
     200
    188201#: tformsettings.buttoncancel.caption
    189202msgid "Cancel"
    … …  
    287300msgstr ""
    288301
     302#: tformsourceeditor.menuitem18.caption
     303msgctxt "tformsourceeditor.menuitem18.caption"
     304msgid "Help"
     305msgstr ""
     306
     307#: tformsourceeditor.menuitem20.caption
     308msgctxt "tformsourceeditor.menuitem20.caption"
     309msgid "View"
     310msgstr ""
     311
     312#: tformsourceeditor.menuitem25.caption
     313msgctxt "tformsourceeditor.menuitem25.caption"
     314msgid "Tools"
     315msgstr ""
     316
    289317#: tformsourceeditor.menuitem9.caption
    290318msgctxt "tformsourceeditor.menuitem9.caption"
Note: See TracChangeset for help on using the changeset viewer.