Changeset 145
- Timestamp:
- Jun 5, 2023, 6:44:57 PM (18 months ago)
- Location:
- trunk
- Files:
-
- 7 added
- 10 deleted
- 6 edited
- 1 copied
- 106 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/BFCodeTools.pas
r144 r145 1 unit UBFCodeTools;1 unit BFCodeTools; 2 2 3 3 interface -
trunk/BFHighlighter.pas
r144 r145 1 unit UBFHighlighter;1 unit BFHighlighter; 2 2 (* 3 3 This is an example how to implement your own highlighter. -
trunk/BFTarget.pas
r144 r145 1 unit UBFTarget;1 unit BFTarget; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UTarget;6 Classes, SysUtils, Target; 7 7 8 8 type -
trunk/Core.lfm
r144 r145 21 21 AppName = 'LazFuck' 22 22 Description = 'A simple BrainFuck IDE written in Lazarus/FPC.' 23 ReleaseDate = 4 462523 ReleaseDate = 45082 24 24 RegistryKey = '\Software\Chronosoft\LazFuck' 25 25 RegistryRoot = rrKeyCurrentUser -
trunk/Core.pas
r144 r145 1 unit UCore;1 unit Core; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UApplicationInfo, ULastOpenedList, UProject,7 UTranslator, UTarget, URegistry, Registry, Graphics, Controls, UScaleDPI,8 UPersistentForm, UTheme, UAboutDialog, UBFTarget;6 Classes, SysUtils, FileUtil, ApplicationInfo, LastOpenedList, Project, 7 Translator, Target, RegistryEx, Registry, Graphics, Controls, ScaleDPI, 8 PersistentForm, Theme, AboutDialog, BFTarget, Forms; 9 9 10 10 type … … 25 25 procedure TranslatorTranslate(Sender: TObject); 26 26 private 27 FOnCurrentTargetChange: TNotifyEvent; 28 FOnTargetChangeState: TNotifyEvent; 29 FOnTargetLog: TLogEvent; 30 FormMain: TForm; 27 31 FCurrentTarget: TTarget; 28 32 StoredDimension: TControlDimension; … … 31 35 procedure SetCurrentTarget(AValue: TTarget); 32 36 procedure ScaleDPI; 37 procedure TargetChangeStateExecute(Sender: TObject); 38 procedure TargetLogExecute(Lines: TStrings); 33 39 procedure TargetMessageExecute(Text: string); 34 40 public … … 49 55 procedure SaveToRegistry(Context: TRegistryContext); 50 56 property CurrentTarget: TTarget read FCurrentTarget write SetCurrentTarget; 57 property OnTargetLog: TLogEvent read FOnTargetLog write FOnTargetLog; 58 property OnTargetChangeState: TNotifyEvent read FOnTargetChangeState 59 write FOnTargetChangeState; 60 property OnCurrentTargetChange: TNotifyEvent read FOnCurrentTargetChange 61 write FOnCurrentTargetChange; 51 62 end; 52 63 … … 60 71 61 72 uses 62 UFormMain, Forms, LazFileUtils,73 LazFileUtils, FormMain, 63 74 // Targets 64 UTargetInterpretter, UTargetFPC, UTargetJava, UTargetDelphi, UTargetJavascript,65 UTargetPHP, UTargetC, UTargetPython, UTargetCSharp;75 TargetInterpretter, TargetFPC, TargetJava, TargetDelphi, TargetJavascript, 76 TargetPHP, TargetC, TargetPython, TargetCSharp; 66 77 67 78 const … … 103 114 ApplicationInfo.RegistryKey + '\' + RecentFilesRegKey); 104 115 LoadFromRegistry(Core.ApplicationInfo.GetRegistryContext); 116 117 FormMain := TFormMain.Create(nil); 118 FormMain.Show; 105 119 end; 106 120 … … 112 126 FreeAndNil(Project); 113 127 FreeAndNil(StoredDimension); 128 FreeAndNil(FormMain); 114 129 end; 115 130 116 131 procedure TCore.TranslatorTranslate(Sender: TObject); 117 132 begin 118 UTarget.UpdateTranslation;133 Target.UpdateTranslation; 119 134 end; 120 135 … … 140 155 141 156 procedure TCore.LoadFromRegistry(Context: TRegistryContext); 157 var 158 TargetName: string; 142 159 begin 143 160 with TRegistryEx.Create do 144 161 try 145 162 CurrentContext := Context; 163 Optimizations.AddSub := ReadBoolWithDefault('OptimizationAddSubEnabled', True); 164 Optimizations.SetZero := ReadBoolWithDefault('OptimizationSetZeroEnabled', True); 165 Optimizations.Merge := ReadBoolWithDefault('OptimizationMerge', True); 166 Optimizations.CopyMultiply := ReadBoolWithDefault('OptimizationCopyMultiplyEnabled', True); 167 Optimizations.RelativeIndexes := ReadBoolWithDefault('OptimizationRelativeIndexesEnabled', True); 146 168 OpenProjectOnStart := ReadBoolWithDefault('OpenProjectOnStart', True); 147 169 if ValueExists('LanguageCode') then … … 157 179 OptionsFormTabIndex := ReadIntegerWithDefault('OptionsFormTabIndex', 0); 158 180 ThemeManager.Theme := ThemeManager.Themes.FindByName(ReadStringWithDefault('Theme', 'System')); 181 182 TargetName := ReadStringWithDefault('TargetName', 'Interpretter'); 183 CurrentTarget := Targets.FindByName(TargetName); 184 if not Assigned(CurrentTarget) then 185 CurrentTarget := TTarget(Core.Targets[0]); 159 186 finally 160 187 Free; … … 171 198 try 172 199 CurrentContext := Context; 200 WriteString('TargetName', Core.CurrentTarget.Name); 201 WriteBool('OptimizationAddSubEnabled', Optimizations.AddSub); 202 WriteBool('OptimizationSetZeroEnabled', Optimizations.SetZero); 203 WriteBool('OptimizationMerge', Optimizations.Merge); 204 WriteBool('OptimizationCopyMultiplyEnabled', Optimizations.CopyMultiply); 205 WriteBool('OptimizationRelativeIndexesEnabled', Optimizations.RelativeIndexes); 173 206 WriteBool('OpenProjectOnStart', OpenProjectOnStart); 174 207 WriteBool('DPIAuto', ScaleDPI1.AutoDetect); … … 198 231 Targets[I].OnChangeState := nil; 199 232 if Assigned(FCurrentTarget) then begin 200 FCurrentTarget.OnChangeState := FormMain.TargetStateChanged;201 FCurrentTarget.OnLog := FormMain.TargetLogExecute;233 FCurrentTarget.OnChangeState := TargetChangeStateExecute; 234 FCurrentTarget.OnLog := TargetLogExecute; 202 235 FCurrentTarget.OptimizationLevel := OptimizationLevel; 203 236 if FCurrentTarget is TBFTarget then begin … … 206 239 end; 207 240 end; 208 FormMain.UpdateTargetList; 209 FormMain.UpdateInterface; 241 if Assigned(OnCurrentTargetChange) then 242 FOnCurrentTargetChange(Self); 243 end; 244 245 procedure TCore.TargetChangeStateExecute(Sender: TObject); 246 begin 247 if Assigned(FOnTargetChangeState) then 248 FOnTargetChangeState(Sender); 249 end; 250 251 procedure TCore.TargetLogExecute(Lines: TStrings); 252 begin 253 210 254 end; 211 255 -
trunk/Forms/FormCPU.lfm
r144 r145 8 8 ClientWidth = 621 9 9 DesignTimePPI = 144 10 LCLVersion = '2.0.0.4' 10 OnCreate = FormCreate 11 LCLVersion = '2.2.6.0' 11 12 object Label4: TLabel 12 13 Left = 12 13 Height = 2 514 Height = 26 14 15 Top = 72 15 Width = 1 0416 Width = 112 16 17 Caption = 'Step counter:' 17 18 ParentColor = False … … 20 21 object Label7: TLabel 21 22 Left = 12 22 Height = 2 523 Height = 26 23 24 Top = 108 24 Width = 5 425 Width = 57 25 26 Caption = 'Speed:' 26 27 ParentColor = False … … 29 30 object LabelStepSpeed: TLabel 30 31 Left = 288 31 Height = 2 532 Height = 26 32 33 Top = 108 33 34 Width = 15 … … 38 39 object LabelStepCounter: TLabel 39 40 Left = 288 40 Height = 2 541 Height = 26 41 42 Top = 72 42 43 Width = 15 … … 47 48 object LabelMemoryPointer: TLabel 48 49 Left = 288 49 Height = 2 550 Height = 26 50 51 Top = 36 51 52 Width = 15 … … 56 57 object LabelProgramPointer: TLabel 57 58 Left = 288 58 Height = 2 559 Height = 26 59 60 Top = 0 60 61 Width = 15 … … 65 66 object Label3: TLabel 66 67 Left = 12 67 Height = 2 568 Height = 26 68 69 Top = 0 69 Width = 1 3570 Width = 145 70 71 Caption = 'Program pointer:' 71 72 ParentColor = False … … 74 75 object Label5: TLabel 75 76 Left = 12 76 Height = 2 577 Height = 26 77 78 Top = 36 78 Width = 1 3379 Width = 141 79 80 Caption = 'Memory pointer:' 80 81 ParentColor = False -
trunk/Forms/FormCPU.pas
r144 r145 1 unit UFormCPU;1 unit FormCPU; 2 2 3 3 interface … … 20 20 LabelStepCounter: TLabel; 21 21 LabelStepSpeed: TLabel; 22 private22 procedure FormCreate(Sender: TObject); 23 23 public 24 24 LastStepCounter: Integer; … … 29 29 FormCPU: TFormCPU; 30 30 31 31 32 implementation 32 33 33 34 uses 34 UCore, UTargetInterpretter;35 Core, TargetInterpretter; 35 36 36 37 {$R *.lfm} … … 41 42 { TFormCPU } 42 43 44 procedure TFormCPU.FormCreate(Sender: TObject); 45 begin 46 Core.Core.Translator.TranslateComponentRecursive(Self); 47 Core.Core.ThemeManager.UseTheme(Self); 48 end; 49 43 50 procedure TFormCPU.Reload; 44 51 begin 45 if Core.C urrentTarget is TTargetInterpretter then46 with TTargetInterpretter(Core.C urrentTarget) do begin52 if Core.Core.CurrentTarget is TTargetInterpretter then 53 with TTargetInterpretter(Core.Core.CurrentTarget) do begin 47 54 LabelProgramPointer.Caption := IntToStr(ProgramIndex); 48 55 LabelMemoryPointer.Caption := IntToStr(MemoryPosition); -
trunk/Forms/FormCompileMultiple.pas
r144 r145 1 unit UFormCompileMultiple;1 unit FormCompileMultiple; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls, 7 UTarget, fgl;7 Target, fgl; 8 8 9 9 type … … 20 20 procedure FormDestroy(Sender: TObject); 21 21 procedure FormShow(Sender: TObject); 22 procedure ListViewTargetsSelectItem(Sender: TObject; Item: TListItem;23 Selected: Boolean);24 22 private 25 23 FTargets: TTargets; … … 29 27 end; 30 28 31 var32 FormCompileMultiple: TFormCompileMultiple;33 34 29 35 30 implementation … … 38 33 39 34 uses 40 UCore;35 Core; 41 36 42 37 procedure TFormCompileMultiple.FormCreate(Sender: TObject); 43 38 begin 44 Core. Translator.TranslateComponentRecursive(Self);45 Core. ThemeManager.UseTheme(Self);39 Core.Core.Translator.TranslateComponentRecursive(Self); 40 Core.Core.ThemeManager.UseTheme(Self); 46 41 end; 47 42 … … 49 44 var CloseAction: TCloseAction); 50 45 begin 51 Core. PersistentForm1.Save(Self);46 Core.Core.PersistentForm1.Save(Self); 52 47 end; 53 48 … … 67 62 procedure TFormCompileMultiple.FormShow(Sender: TObject); 68 63 begin 69 Core. PersistentForm1.Load(Self);64 Core.Core.PersistentForm1.Load(Self); 70 65 ReloadList; 71 end;72 73 procedure TFormCompileMultiple.ListViewTargetsSelectItem(Sender: TObject;74 Item: TListItem; Selected: Boolean);75 begin76 77 66 end; 78 67 -
trunk/Forms/FormInput.pas
r144 r145 1 unit UFormInput;1 unit FormInput; 2 2 3 3 interface … … 14 14 MemoInput: TMemo; 15 15 procedure MemoInputKeyPress(Sender: TObject; var Key: char); 16 private17 { private declarations }18 public19 { public declarations }20 16 end; 21 22 var23 FormInput: TFormInput;24 17 25 18 … … 29 22 30 23 uses 31 UCore, UTargetInterpretter;24 Core, TargetInterpretter; 32 25 33 26 procedure TFormInput.MemoInputKeyPress(Sender: TObject; var Key: char); 34 27 begin 35 if Core.C urrentTarget is TTargetInterpretter then36 with TTargetInterpretter(Core.C urrentTarget) do28 if Core.Core.CurrentTarget is TTargetInterpretter then 29 with TTargetInterpretter(Core.Core.CurrentTarget) do 37 30 Input := Input + Key; 38 31 end; -
trunk/Forms/FormLog.pas
r144 r145 1 unit UFormLog;1 unit FormLog; 2 2 3 3 interface … … 13 13 Memo1: TMemo; 14 14 procedure FormCreate(Sender: TObject); 15 private16 { private declarations }17 public18 { public declarations }19 15 end; 20 16 21 var22 FormLog: TFormLog;23 17 24 18 implementation … … 27 21 28 22 uses 29 UCore;23 Core; 30 24 31 25 { TFormLog } … … 33 27 procedure TFormLog.FormCreate(Sender: TObject); 34 28 begin 35 Core. Translator.TranslateComponentRecursive(Self);36 Core. ThemeManager.UseTheme(Self);29 Core.Core.Translator.TranslateComponentRecursive(Self); 30 Core.Core.ThemeManager.UseTheme(Self); 37 31 end; 38 32 -
trunk/Forms/FormMain.pas
r144 r145 1 unit UFormMain;1 unit FormMain; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, Forms, Controls, 7 Graphics, Dialogs, Menus, ActnList, ComCtrls, ExtCtrls, UTarget, Registry, 8 URegistry, LazFileUtils; 6 Classes, SysUtils, FileUtil, Forms, Controls, FormCPU, FormInput, 7 Graphics, Dialogs, Menus, ActnList, ComCtrls, ExtCtrls, Target, Registry, 8 LazFileUtils, FormOptions, FormMessages, FormTargets, 9 FormOutput, FormMemory, FormSourceCode, FormTargetCode, FormLog, 10 FormCompileMultiple; 9 11 10 12 type … … 144 146 procedure TimerRefreshTimer(Sender: TObject); 145 147 private 148 FormCPU: TFormCPU; 149 FormInput: TFormInput; 150 FormLog: TFormLog; 151 FormMemory: TFormMemory; 152 FormMessages: TFormMessages; 153 FormOutput: TFormOutput; 154 FormSourceCode: TFormSourceCode; 155 FormTargetCode: TFormTargetCode; 146 156 procedure AProjectOpenRecentExecute(Sender: TObject); 147 157 procedure MenuItemTargetClick(Sender: TObject); … … 151 161 procedure DockInit; 152 162 procedure LastOpenedListChange(Sender: TObject); 163 procedure CurrentTargetChangeExecute(Sender: TObject); 153 164 public 154 165 procedure MessagesChanged(Sender: TObject); 155 166 procedure TargetLogExecute(Lines: TStrings); 156 167 procedure TargetStateChanged(Sender: TObject); 157 procedure LoadFromRegistry(Context: TRegistryContext);158 procedure SaveToRegistry(Context: TRegistryContext);159 168 procedure UpdateInterface; 160 169 procedure UpdateStatusBar; … … 162 171 end; 163 172 164 var165 FormMain: TFormMain;166 167 173 168 174 implementation … … 171 177 172 178 uses 173 UCore, UFormCPU, UFormOptions, UFormMessages, UFormTargets, UFormOutput, UFormInput, 174 UFormMemory, UFormSourceCode, UFormTargetCode, UTargetInterpretter, UFormLog, 175 UBFTarget, UCommon, UFormCompileMultiple; 179 Core, TargetInterpretter, BFTarget, Common; 176 180 177 181 resourcestring … … 195 199 procedure TFormMain.FormShow(Sender: TObject); 196 200 begin 197 Core.Init; 198 LoadFromRegistry(Core.ApplicationInfo.GetRegistryContext); 201 Core.Core.Init; 199 202 PageControlMain.TabIndex := 0; 200 203 try 201 if Core. OpenProjectOnStart and (Core.LastOpenedList.Items.Count > 0) and202 FileExists(Core. LastOpenedList.Items[0]) then203 ProjectOpen(Core. LastOpenedList.Items[0])204 if Core.Core.OpenProjectOnStart and (Core.Core.LastOpenedList.Items.Count > 0) and 205 FileExists(Core.Core.LastOpenedList.Items[0]) then 206 ProjectOpen(Core.Core.LastOpenedList.Items[0]) 204 207 else AProjectNew.Execute; 205 208 finally … … 209 212 UpdateTargetList; 210 213 DockInit; 211 Core. PersistentForm1.Load(Self, True);212 Core. ThemeManager.UseTheme(Self);214 Core.Core.PersistentForm1.Load(Self, True); 215 Core.Core.ThemeManager.UseTheme(Self); 213 216 FormSourceCode.UpdateTheme; 214 217 end; 215 Core. Messages.OnChange := FormMain.MessagesChanged;218 Core.Core.Messages.OnChange := MessagesChanged; 216 219 end; 217 220 … … 232 235 begin 233 236 UpdateInterface; 234 if Core.C urrentTarget.State = rsPaused then237 if Core.Core.CurrentTarget.State = rsPaused then 235 238 AProgramShowExecutionPoint.Execute; 236 if Core.C urrentTarget.State = rsStopped then237 Core. Messages.AddMessage(SProgramStopped);239 if Core.Core.CurrentTarget.State = rsStopped then 240 Core.Core.Messages.AddMessage(SProgramStopped); 238 241 end; 239 242 … … 249 252 if Sender is TMenuItem then 250 253 with TMenuItem(Sender) do begin 251 Core.C urrentTarget := TTarget(Core.Targets[MenuIndex]);254 Core.Core.CurrentTarget := Core.Core.Targets[MenuIndex]; 252 255 Checked := True; 253 256 for I := 0 to Parent.Count - 1 do … … 258 261 procedure TFormMain.ProjectOpen(FileName: string); 259 262 begin 260 if Core.Project.Openned then 261 raise Exception.Create(SCloseProjectFirst); 262 FormSourceCode.SynEditSource.Lines.LoadFromFile(FileName); 263 Core.AddItemToLastOpenedList(FileName); 264 Core.Project.FileName := FileName; 265 Core.Project.Openned := True; 266 Core.CurrentTarget.Compiled := False; 263 with Core.Core do begin 264 if Project.Openned then 265 raise Exception.Create(SCloseProjectFirst); 266 FormSourceCode.SynEditSource.Lines.LoadFromFile(FileName); 267 AddItemToLastOpenedList(FileName); 268 Project.FileName := FileName; 269 Project.Openned := True; 270 CurrentTarget.Compiled := False; 271 end; 267 272 UpdateInterface; 268 273 end; … … 292 297 DockForm(FormMemory, PanelMemory); 293 298 DockForm(FormMessages, TabSheetMessages); 294 PageControlRight.Width := FormMain.Width div 3;295 PageControlBottom.Height := FormMain.Height div 5;299 PageControlRight.Width := Width div 3; 300 PageControlBottom.Height := Height div 5; 296 301 end; 297 302 298 303 procedure TFormMain.LastOpenedListChange(Sender: TObject); 299 304 begin 300 Core.LastOpenedList.LoadToMenuItem(MenuItemOpenRecent, AProjectOpenRecentExecute); 301 Core.LastOpenedList.LoadToMenuItem(PopupMenuRecentFiles.Items, AProjectOpenRecentExecute); 302 end; 303 304 procedure TFormMain.LoadFromRegistry(Context: TRegistryContext); 305 var 306 TargetName: string; 307 begin 308 with TRegistryEx.Create do 309 try 310 CurrentContext := Context; 311 TargetName := ReadStringWithDefault('TargetName', 'Interpretter'); 312 Core.CurrentTarget := Core.Targets.FindByName(TargetName); 313 if not Assigned(Core.CurrentTarget) then 314 Core.CurrentTarget := TTarget(Core.Targets[0]); 315 Core.Optimizations.AddSub := ReadBoolWithDefault('OptimizationAddSubEnabled', True); 316 Core.Optimizations.SetZero := ReadBoolWithDefault('OptimizationSetZeroEnabled', True); 317 Core.Optimizations.Merge := ReadBoolWithDefault('OptimizationMerge', True); 318 Core.Optimizations.CopyMultiply := ReadBoolWithDefault('OptimizationCopyMultiplyEnabled', True); 319 Core.Optimizations.RelativeIndexes := ReadBoolWithDefault('OptimizationRelativeIndexesEnabled', True); 320 finally 321 Free; 322 end; 323 end; 324 325 procedure TFormMain.SaveToRegistry(Context: TRegistryContext); 326 begin 327 with TRegistryEx.Create do 328 try 329 CurrentContext := Context; 330 WriteString('TargetName', Core.CurrentTarget.Name); 331 WriteBool('OptimizationAddSubEnabled', Core.Optimizations.AddSub); 332 WriteBool('OptimizationSetZeroEnabled', Core.Optimizations.SetZero); 333 WriteBool('OptimizationMerge', Core.Optimizations.Merge); 334 WriteBool('OptimizationCopyMultiplyEnabled', Core.Optimizations.CopyMultiply); 335 WriteBool('OptimizationRelativeIndexesEnabled', Core.Optimizations.RelativeIndexes); 336 finally 337 Free; 338 end; 305 Core.Core.LastOpenedList.LoadToMenuItem(MenuItemOpenRecent, AProjectOpenRecentExecute); 306 Core.Core.LastOpenedList.LoadToMenuItem(PopupMenuRecentFiles.Items, AProjectOpenRecentExecute); 307 end; 308 309 procedure TFormMain.CurrentTargetChangeExecute(Sender: TObject); 310 begin 311 UpdateTargetList; 312 UpdateInterface; 339 313 end; 340 314 … … 345 319 begin 346 320 Title := ''; 347 if Core.Project.FileName <> '' then Title := Core.Project.FileName; 348 if Core.Project.Modified then Title := Title + ' (' + SChanged + ')'; 349 Title:= Title + ' - ' + Core.ApplicationInfo.AppName; 350 Caption := Title; 351 AProjectSave.Enabled := Core.Project.Modified; 352 FormSourceCode.SynEditSource.Enabled := Core.Project.Openned; 353 AProjectClose.Enabled := Core.Project.Openned; 354 AProjectSaveAs.Enabled := Core.Project.Openned; 355 AProgramRun.Enabled := (tcRun in Core.CurrentTarget.Capabilities) and 356 Core.Project.Openned and (Core.CurrentTarget.State = rsStopped) or (Core.CurrentTarget.State = rsPaused); 357 AProgramPause.Enabled := (tcPause in Core.CurrentTarget.Capabilities) and 358 Core.Project.Openned and (Core.CurrentTarget.State = rsRunning); 359 AProgramStop.Enabled := (tcStop in Core.CurrentTarget.Capabilities) and 360 Core.Project.Openned and (Core.CurrentTarget.State <> rsStopped); 361 AProgramCompile.Enabled := (tcCompile in Core.CurrentTarget.Capabilities) and 362 Core.Project.Openned; 363 CanDebug := Core.DebugEnabled and Core.Project.Openned and 364 ((Core.CurrentTarget.State = rsPaused) or (Core.CurrentTarget.State = rsStopped)); 365 AProgramStepInto.Enabled := CanDebug and (tcStepInto in Core.CurrentTarget.Capabilities); 366 AProgramStepOut.Enabled := CanDebug and (tcStepOut in Core.CurrentTarget.Capabilities); 367 AProgramRunToCursor.Enabled := CanDebug and (tcRunToCursor in Core.CurrentTarget.Capabilities); 368 AProgramStepOver.Enabled := CanDebug and (tcStepOver in Core.CurrentTarget.Capabilities); 369 AProgramShowExecutionPoint.Enabled := CanDebug and (tcPause in Core.CurrentTarget.Capabilities); 370 AShowSourcePosition.Enabled := Core.CurrentTarget.Compiled; 371 AShowTargetPosition.Enabled := Core.CurrentTarget.Compiled; 321 with Core.Core do begin 322 if Project.FileName <> '' then Title := Project.FileName; 323 if Project.Modified then Title := Title + ' (' + SChanged + ')'; 324 Title:= Title + ' - ' + ApplicationInfo.AppName; 325 Caption := Title; 326 AProjectSave.Enabled := Project.Modified; 327 FormSourceCode.SynEditSource.Enabled := Project.Openned; 328 AProjectClose.Enabled := Project.Openned; 329 AProjectSaveAs.Enabled := Project.Openned; 330 AProgramRun.Enabled := (tcRun in CurrentTarget.Capabilities) and 331 Project.Openned and (CurrentTarget.State = rsStopped) or (CurrentTarget.State = rsPaused); 332 AProgramPause.Enabled := (tcPause in CurrentTarget.Capabilities) and 333 Project.Openned and (CurrentTarget.State = rsRunning); 334 AProgramStop.Enabled := (tcStop in CurrentTarget.Capabilities) and 335 Project.Openned and (CurrentTarget.State <> rsStopped); 336 AProgramCompile.Enabled := (tcCompile in CurrentTarget.Capabilities) and 337 Project.Openned; 338 CanDebug := DebugEnabled and Project.Openned and 339 ((CurrentTarget.State = rsPaused) or (CurrentTarget.State = rsStopped)); 340 AProgramStepInto.Enabled := CanDebug and (tcStepInto in CurrentTarget.Capabilities); 341 AProgramStepOut.Enabled := CanDebug and (tcStepOut in CurrentTarget.Capabilities); 342 AProgramRunToCursor.Enabled := CanDebug and (tcRunToCursor in CurrentTarget.Capabilities); 343 AProgramStepOver.Enabled := CanDebug and (tcStepOver in CurrentTarget.Capabilities); 344 AProgramShowExecutionPoint.Enabled := CanDebug and (tcPause in CurrentTarget.Capabilities); 345 AShowSourcePosition.Enabled := CurrentTarget.Compiled; 346 AShowTargetPosition.Enabled := CurrentTarget.Compiled; 347 end; 372 348 UpdateStatusBar; 373 349 end; … … 383 359 I: Integer; 384 360 begin 385 Core. Targets.LoadToMenuItem(MenuItemTarget, MenuItemTargetClick,Core.CurrentTarget);386 Core. Targets.LoadToMenuItem(PopupMenuTargets.Items, MenuItemTargetClick,Core.CurrentTarget);361 Core.Core.Targets.LoadToMenuItem(MenuItemTarget, MenuItemTargetClick, Core.Core.CurrentTarget); 362 Core.Core.Targets.LoadToMenuItem(PopupMenuTargets.Items, MenuItemTargetClick, Core.Core.CurrentTarget); 387 363 388 364 // Update toolbutton 389 I := Core. Targets.IndexOf(Core.CurrentTarget);365 I := Core.Core.Targets.IndexOf(Core.Core.CurrentTarget); 390 366 if I <> -1 then 391 with TTarget(Core. Targets[I]) do begin367 with TTarget(Core.Core.Targets[I]) do begin 392 368 ToolButtonTarget.ImageIndex := ImageIndex; 393 369 ToolButtonTarget.Caption := Name; … … 398 374 procedure TFormMain.FormCreate(Sender: TObject); 399 375 begin 376 Core.Core.Translator.TranslateComponentRecursive(Self); 377 Core.Core.ThemeManager.UseTheme(Self); 378 379 FormSourceCode := TFormSourceCode.Create(nil); 380 FormCPU := TFormCPU.Create(nil); 381 FormInput := TFormInput.Create(nil); 382 FormLog := TFormLog.Create(nil); 383 FormMemory := TFormMemory.Create(nil); 384 FormMessages := TFormMessages.Create(nil); 385 FormOutput := TFormOutput.Create(nil); 386 FormTargetCode := TFormTargetCode.Create(nil); 387 400 388 UpdateTargetList; 401 Core.LastOpenedList.OnChange := LastOpenedListChange; 389 with Core.Core do begin 390 LastOpenedList.OnChange := LastOpenedListChange; 391 OnCurrentTargetChange := CurrentTargetChangeExecute; 392 OnTargetChangeState := TargetStateChanged; 393 OnTargetLog := TargetLogExecute; 394 end; 402 395 end; 403 396 404 397 procedure TFormMain.FormDestroy(Sender: TObject); 405 398 begin 406 SaveToRegistry(Core.ApplicationInfo.GetRegistryContext); 399 FreeAndNil(FormSourceCode); 400 FreeAndNil(FormCPU); 401 FreeAndNil(FormInput); 402 FreeAndNil(FormLog); 403 FreeAndNil(FormMemory); 404 FreeAndNil(FormMessages); 405 FreeAndNil(FormOutput); 406 FreeAndNil(FormTargetCode); 407 407 end; 408 408 409 409 procedure TFormMain.AProgramRunExecute(Sender: TObject); 410 410 begin 411 if Core.C urrentTarget is TTargetInterpretter then412 TTargetInterpretter(Core.C urrentTarget).Input := FormInput.MemoInput.Lines.Text;413 if not Core.C urrentTarget.Compiled then AProgramCompile.Execute;414 Core.C urrentTarget.Run;415 Core. Messages.AddMessage(SProgramStarted);411 if Core.Core.CurrentTarget is TTargetInterpretter then 412 TTargetInterpretter(Core.Core.CurrentTarget).Input := FormInput.MemoInput.Lines.Text; 413 if not Core.Core.CurrentTarget.Compiled then AProgramCompile.Execute; 414 Core.Core.CurrentTarget.Run; 415 Core.Core.Messages.AddMessage(SProgramStarted); 416 416 end; 417 417 … … 420 420 DebugStep: TDebugStep; 421 421 begin 422 DebugStep := Core.C urrentTarget.DebugSteps.SearchByTargetPos(FormTargetCode.SynEditTarget.SelStart - 1);422 DebugStep := Core.Core.CurrentTarget.DebugSteps.SearchByTargetPos(FormTargetCode.SynEditTarget.SelStart - 1); 423 423 if Assigned(DebugStep) then begin 424 424 FormSourceCode.SynEditSource.SelStart := DebugStep.SourcePosition + 1; … … 431 431 DebugStep: TDebugStep; 432 432 begin 433 DebugStep := Core.C urrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.SynEditSource.SelStart - 1);433 DebugStep := Core.Core.CurrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.SynEditSource.SelStart - 1); 434 434 if Assigned(DebugStep) then begin 435 435 FormTargetCode.SynEditTarget.SelStart := DebugStep.TargetPosition + 1; … … 461 461 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction); 462 462 begin 463 Core.PersistentForm1.Save(Self); 463 Core.Core.PersistentForm1.Save(Self); 464 Application.Terminate; 464 465 end; 465 466 466 467 procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: boolean); 467 468 begin 468 if Core. Project.Modified then begin469 if Core.Core.Project.Modified then begin 469 470 AProjectClose.Execute; 470 if Core. Project.Openned then CanClose := False;471 if Core.Core.Project.Openned then CanClose := False; 471 472 end; 472 473 end; … … 478 479 479 480 procedure TFormMain.AOptionsExecute(Sender: TObject); 481 var 482 FormOptions: TFormOptions; 480 483 begin 481 484 FormOptions := TFormOptions.Create(nil); … … 484 487 if FormOptions.ShowModal = mrOK then begin 485 488 FormOptions.Save; 486 if Assigned(Core.C urrentTarget) then begin487 Core.C urrentTarget.OptimizationLevel :=Core.OptimizationLevel;488 if Core.C urrentTarget is TBFTarget then begin489 TBFTarget(Core.C urrentTarget).CellSize :=Core.CellSize;490 TBFTarget(Core.C urrentTarget).MemorySize :=Core.MemorySize;489 if Assigned(Core.Core.CurrentTarget) then begin 490 Core.Core.CurrentTarget.OptimizationLevel := Core.Core.OptimizationLevel; 491 if Core.Core.CurrentTarget is TBFTarget then begin 492 TBFTarget(Core.Core.CurrentTarget).CellSize := Core.Core.CellSize; 493 TBFTarget(Core.Core.CurrentTarget).MemorySize := Core.Core.MemorySize; 491 494 end; 492 495 end; 493 Core. ThemeManager.UseTheme(Self);496 Core.Core.ThemeManager.UseTheme(Self); 494 497 FormSourceCode.UpdateTheme; 495 Core.SaveToRegistry(Core.ApplicationInfo.GetRegistryContext); 496 SaveToRegistry(Core.ApplicationInfo.GetRegistryContext); 498 Core.Core.SaveToRegistry(Core.Core.ApplicationInfo.GetRegistryContext); 497 499 end; 498 500 finally … … 503 505 procedure TFormMain.AProgramCompileExecute(Sender: TObject); 504 506 begin 505 with Core.C urrentTarget do507 with Core.Core, CurrentTarget do 506 508 try 507 Core.Messages.Clear;509 Messages.Clear; 508 510 AProgramStop.Execute; 509 511 SourceCode := FormSourceCode.SynEditSource.Text; 510 ProjectFileName := Core.Project.FileName;511 ProgramName := ExtractFileNameOnly( Core.Project.FileName);512 if C ore.CurrentTarget is TBFTarget then513 TBFTarget(C ore.CurrentTarget).Optimizations := Core.Optimizations;514 DebugEnabled := Core.DebugEnabled;515 Core.Messages.AddMessage(SCompileStart);512 ProjectFileName := Project.FileName; 513 ProgramName := ExtractFileNameOnly(Project.FileName); 514 if CurrentTarget is TBFTarget then 515 TBFTarget(CurrentTarget).Optimizations := Optimizations; 516 DebugEnabled := DebugEnabled; 517 Messages.AddMessage(SCompileStart); 516 518 Application.ProcessMessages; 517 519 Compile; 518 Core.Messages.AppendMessage(SDone);520 Messages.AppendMessage(SDone); 519 521 FormTargetCode.SynEditTarget.Text := TargetCode; 520 FormTargetCode.SetHighlighter(C ore.CurrentTarget.SourceExtension);522 FormTargetCode.SetHighlighter(CurrentTarget.SourceExtension); 521 523 UpdateInterface; 522 524 except … … 533 535 with TFormCompileMultiple.Create(nil) do 534 536 try 535 Targets := Core. Targets;537 Targets := Core.Core.Targets; 536 538 if ShowModal = mrOk then begin 537 Core. Messages.Clear;539 Core.Core.Messages.Clear; 538 540 for I := 0 to Targets.Count - 1 do 539 541 with Targets[I] do … … 542 544 AProgramStop.Execute; 543 545 SourceCode := FormSourceCode.SynEditSource.Text; 544 ProjectFileName := Core. Project.FileName;545 ProgramName := ExtractFileNameOnly(Core. Project.FileName);546 ProjectFileName := Core.Core.Project.FileName; 547 ProgramName := ExtractFileNameOnly(Core.Core.Project.FileName); 546 548 if Targets[I] is TBFTarget then 547 TBFTarget(Targets[I]).Optimizations := Core. Optimizations;548 DebugEnabled := Core. DebugEnabled;549 Core. Messages.AddMessage(Name + ' ' + SCompileStart);549 TBFTarget(Targets[I]).Optimizations := Core.Core.Optimizations; 550 DebugEnabled := Core.Core.DebugEnabled; 551 Core.Core.Messages.AddMessage(Name + ' ' + SCompileStart); 550 552 Application.ProcessMessages; 551 553 Compile; 552 Core. Messages.AppendMessage(SDone);554 Core.Core.Messages.AppendMessage(SDone); 553 555 FormTargetCode.SynEditTarget.Text := TargetCode; 554 FormTargetCode.SetHighlighter(Core.C urrentTarget.SourceExtension);556 FormTargetCode.SetHighlighter(Core.Core.CurrentTarget.SourceExtension); 555 557 UpdateInterface; 556 558 except … … 569 571 BreakPoint: TBreakPoint; 570 572 begin 571 DebugStep := Core.C urrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.SynEditSource.SelStart - 1);573 DebugStep := Core.Core.CurrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.SynEditSource.SelStart - 1); 572 574 if Assigned(DebugStep) then begin 573 BreakPoint := Core.C urrentTarget.BreakPoints.SearchByTargetPos(DebugStep.ProgramPosition);575 BreakPoint := Core.Core.CurrentTarget.BreakPoints.SearchByTargetPos(DebugStep.ProgramPosition); 574 576 if Assigned(BreakPoint) then 575 Core.C urrentTarget.BreakPoints.Delete(Core.CurrentTarget.BreakPoints.IndexOf(BreakPoint))576 else Core.C urrentTarget.BreakPoints.AddItem(DebugStep.ProgramPosition);577 Core.Core.CurrentTarget.BreakPoints.Delete(Core.Core.CurrentTarget.BreakPoints.IndexOf(BreakPoint)) 578 else Core.Core.CurrentTarget.BreakPoints.AddItem(DebugStep.ProgramPosition); 577 579 end; 578 580 end; … … 580 582 procedure TFormMain.AAboutExecute(Sender: TObject); 581 583 begin 582 Core. AboutDialog.Show;584 Core.Core.AboutDialog.Show; 583 585 end; 584 586 585 587 procedure TFormMain.AProgramPauseExecute(Sender: TObject); 586 588 begin 587 Core.C urrentTarget.Pause;589 Core.Core.CurrentTarget.Pause; 588 590 end; 589 591 … … 592 594 DebugStep: TDebugStep; 593 595 begin 594 if Core.C urrentTarget.State = rsStopped then begin595 if not Core.C urrentTarget.Compiled then AProgramCompile.Execute;596 DebugStep := Core.C urrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.SynEditSource.SelStart - 1);597 Core.C urrentTarget.BreakPoints.SetSystem(DebugStep.ProgramPosition);596 if Core.Core.CurrentTarget.State = rsStopped then begin 597 if not Core.Core.CurrentTarget.Compiled then AProgramCompile.Execute; 598 DebugStep := Core.Core.CurrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.SynEditSource.SelStart - 1); 599 Core.Core.CurrentTarget.BreakPoints.SetSystem(DebugStep.ProgramPosition); 598 600 AProgramRun.Execute; 599 601 end else begin 600 DebugStep := Core.C urrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.SynEditSource.SelStart - 1);601 Core.C urrentTarget.RunToCursor(DebugStep.ProgramPosition);602 DebugStep := Core.Core.CurrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.SynEditSource.SelStart - 1); 603 Core.Core.CurrentTarget.RunToCursor(DebugStep.ProgramPosition); 602 604 end; 603 605 end; … … 607 609 DebugStep: TDebugStep; 608 610 begin 609 DebugStep := Core.CurrentTarget.DebugSteps.SearchByProgramPos(Core.CurrentTarget.ExecutionPosition); 611 DebugStep := Core.Core.CurrentTarget.DebugSteps.SearchByProgramPos( 612 Core.Core.CurrentTarget.ExecutionPosition); 610 613 FormSourceCode.SynEditSource.SelStart := DebugStep.SourcePosition + 1; 611 614 FormTargetCode.SynEditTarget.SelStart := DebugStep.TargetPosition + 1; … … 616 619 procedure TFormMain.AProgramStepIntoExecute(Sender: TObject); 617 620 begin 618 if Core.CurrentTarget.State = rsStopped then begin 619 if not Core.CurrentTarget.Compiled then AProgramCompile.Execute; 620 Core.CurrentTarget.BreakPoints.SetSystem(Core.CurrentTarget.DebugSteps.First.ProgramPosition); 621 if Core.Core.CurrentTarget.State = rsStopped then begin 622 if not Core.Core.CurrentTarget.Compiled then AProgramCompile.Execute; 623 Core.Core.CurrentTarget.BreakPoints.SetSystem( 624 Core.Core.CurrentTarget.DebugSteps.First.ProgramPosition); 621 625 AProgramRun.Execute; 622 end else Core.C urrentTarget.StepInto;626 end else Core.Core.CurrentTarget.StepInto; 623 627 end; 624 628 625 629 procedure TFormMain.AProgramStepOutExecute(Sender: TObject); 626 630 begin 627 Core.C urrentTarget.StepOut;631 Core.Core.CurrentTarget.StepOut; 628 632 end; 629 633 630 634 procedure TFormMain.AProgramStepOverExecute(Sender: TObject); 631 635 begin 632 if Core.CurrentTarget.State = rsStopped then begin 633 if not Core.CurrentTarget.Compiled then AProgramCompile.Execute; 634 Core.CurrentTarget.BreakPoints.SetSystem(TDebugStep(Core.CurrentTarget.DebugSteps.First).ProgramPosition); 636 if Core.Core.CurrentTarget.State = rsStopped then begin 637 if not Core.Core.CurrentTarget.Compiled then AProgramCompile.Execute; 638 Core.Core.CurrentTarget.BreakPoints.SetSystem( 639 TDebugStep(Core.Core.CurrentTarget.DebugSteps.First).ProgramPosition); 635 640 AProgramRun.Execute; 636 end else Core.C urrentTarget.StepOver;641 end else Core.Core.CurrentTarget.StepOver; 637 642 end; 638 643 639 644 procedure TFormMain.AProgramStopExecute(Sender: TObject); 640 645 begin 641 Core.C urrentTarget.Stop;646 Core.Core.CurrentTarget.Stop; 642 647 end; 643 648 … … 647 652 begin 648 653 DialogResult := mrNo; 649 if Core. Project.Modified then begin654 if Core.Core.Project.Modified then begin 650 655 DialogResult := MessageDlg(SUnsavedChanges, SDoYouWantToSaveProject, mtConfirmation, [mbYes, mbNo, mbCancel], 0); 651 656 if DialogResult = mrYes then begin … … 655 660 if (DialogResult = mrNo) or (DialogResult = mrYes) then begin 656 661 AProgramStop.Execute; 657 Core. Project.Openned := False;662 Core.Core.Project.Openned := False; 658 663 FormSourceCode.SynEditSource.Clear; 659 664 UpdateInterface; … … 664 669 begin 665 670 AProjectClose.Execute; 666 if Core. Project.Openned then Exit;667 Core. Project.FileName := CombinePaths(Core.DataDir, ExamplesDir + DirectorySeparator + SNewProject + '.b');671 if Core.Core.Project.Openned then Exit; 672 Core.Core.Project.FileName := CombinePaths(Core.Core.DataDir, ExamplesDir + DirectorySeparator + SNewProject + '.b'); 668 673 FormSourceCode.SynEditSource.Clear; 669 Core. Project.Openned := True;670 Core.C urrentTarget.Compiled := False;674 Core.Core.Project.Openned := True; 675 Core.Core.CurrentTarget.Compiled := False; 671 676 UpdateInterface; 672 677 end; … … 676 681 FileName: string; 677 682 begin 678 FileName := Core. LastOpenedList.Items[TMenuItem(Sender).MenuIndex];683 FileName := Core.Core.LastOpenedList.Items[TMenuItem(Sender).MenuIndex]; 679 684 if FileExists(FileName) then begin 680 685 AProjectClose.Execute; 681 if Core. Project.Openned then Exit;686 if Core.Core.Project.Openned then Exit; 682 687 ProjectOpen(FileName); 683 688 end else ShowMessage(Format(SFileNotFound, [FileName])); … … 688 693 FileName: string; 689 694 begin 690 if Core. LastOpenedList.Items.Count > 0 then691 FileName := Core. LastOpenedList.Items[0]692 else FileName := CombinePaths(Core. DataDir, ExamplesDir);695 if Core.Core.LastOpenedList.Items.Count > 0 then 696 FileName := Core.Core.LastOpenedList.Items[0] 697 else FileName := CombinePaths(Core.Core.DataDir, ExamplesDir); 693 698 OpenDialog1.InitialDir := ExtractFileDir(FileName); 694 699 OpenDialog1.FileName := ExtractFileName(FileName); 695 700 if OpenDialog1.Execute then begin 696 701 AProjectClose.Execute; 697 if Core. Project.Openned then Exit;702 if Core.Core.Project.Openned then Exit; 698 703 ProjectOpen(OpenDialog1.FileName); 699 704 end; … … 702 707 procedure TFormMain.AProjectSaveAsExecute(Sender: TObject); 703 708 begin 704 SaveDialog1.InitialDir := ExtractFileDir(Core. Project.FileName);705 SaveDialog1.FileName := ExtractFileName(Core. Project.FileName);709 SaveDialog1.InitialDir := ExtractFileDir(Core.Core.Project.FileName); 710 SaveDialog1.FileName := ExtractFileName(Core.Core.Project.FileName); 706 711 if SaveDialog1.Execute then begin 707 712 FormSourceCode.SynEditSource.Lines.SaveToFile(SaveDialog1.FileName); 708 Core. Project.FileName := SaveDialog1.FileName;709 Core. AddItemToLastOpenedList(SaveDialog1.FileName);710 Core. Project.Modified := False;713 Core.Core.Project.FileName := SaveDialog1.FileName; 714 Core.Core.AddItemToLastOpenedList(SaveDialog1.FileName); 715 Core.Core.Project.Modified := False; 711 716 UpdateInterface; 712 717 end; … … 715 720 procedure TFormMain.AProjectSaveExecute(Sender: TObject); 716 721 begin 717 if Core. Project.Modified and FileExists(Core.Project.FileName) then begin718 FormSourceCode.SynEditSource.Lines.SaveToFile(Core. Project.FileName);719 Core. AddItemToLastOpenedList(Core.Project.FileName);720 Core. Project.Modified := False;722 if Core.Core.Project.Modified and FileExists(Core.Core.Project.FileName) then begin 723 FormSourceCode.SynEditSource.Lines.SaveToFile(Core.Core.Project.FileName); 724 Core.Core.AddItemToLastOpenedList(Core.Core.Project.FileName); 725 Core.Core.Project.Modified := False; 721 726 UpdateInterface; 722 727 end else AProjectSaveAs.Execute; -
trunk/Forms/FormMemory.lfm
r144 r145 8 8 ClientWidth = 1039 9 9 DesignTimePPI = 144 10 OnCreate = FormCreate 10 11 LCLVersion = '2.2.6.0' 11 12 object Label6: TLabel -
trunk/Forms/FormMemory.pas
r144 r145 1 unit UFormMemory;1 unit FormMemory; 2 2 3 3 interface … … 17 17 Label6: TLabel; 18 18 ListViewMemory: TListView; 19 procedure FormCreate(Sender: TObject); 19 20 procedure ListViewMemoryData(Sender: TObject; Item: TListItem); 20 21 private … … 24 25 end; 25 26 26 var27 FormMemory: TFormMemory;28 27 29 28 implementation … … 32 31 33 32 uses 34 UCore, UTargetInterpretter;33 Core, TargetInterpretter; 35 34 36 35 { TFormMemory } … … 38 37 procedure TFormMemory.Reload; 39 38 begin 40 if Core.C urrentTarget is TTargetInterpretter then41 with TTargetInterpretter(Core.C urrentTarget) do begin39 if Core.Core.CurrentTarget is TTargetInterpretter then 40 with TTargetInterpretter(Core.Core.CurrentTarget) do begin 42 41 if MemoryChanged then begin 43 42 MemoryChanged := False; … … 55 54 Address: Integer; 56 55 begin 57 if Core.C urrentTarget is TTargetInterpretter then58 with TTargetInterpretter(Core.C urrentTarget) do56 if Core.Core.CurrentTarget is TTargetInterpretter then 57 with TTargetInterpretter(Core.Core.CurrentTarget) do 59 58 if (Item.Index >= 0) and (Item.Index <= Trunc((MemoryMaxUsedAddr + 1) / RowSize)) then begin 60 59 Item.Caption := IntToHex(Item.Index * RowSize, 8); … … 75 74 end; 76 75 76 procedure TFormMemory.FormCreate(Sender: TObject); 77 begin 78 Core.Core.Translator.TranslateComponentRecursive(Self); 79 Core.Core.ThemeManager.UseTheme(Self); 80 end; 81 77 82 end. 78 83 -
trunk/Forms/FormMessages.lfm
r144 r145 9 9 DesignTimePPI = 144 10 10 OnCreate = FormCreate 11 LCLVersion = '2. 0.0.4'11 LCLVersion = '2.2.6.0' 12 12 object ListView1: TListView 13 13 Left = 0 … … 18 18 Columns = < 19 19 item 20 Width = 7 1020 Width = 723 21 21 end> 22 22 OwnerData = True -
trunk/Forms/FormMessages.pas
r144 r145 1 unit UFormMessages;1 unit FormMessages; 2 2 3 3 interface … … 15 15 procedure FormCreate(Sender: TObject); 16 16 procedure ListView1Data(Sender: TObject; Item: TListItem); 17 private18 { private declarations }19 17 public 20 18 procedure Reload; 21 19 end; 22 20 23 var24 FormMessages: TFormMessages;25 21 26 22 implementation … … 29 25 30 26 uses 31 UCore, UTarget;27 Core, Target; 32 28 33 29 { TFormMessages } … … 35 31 procedure TFormMessages.ListView1Data(Sender: TObject; Item: TListItem); 36 32 begin 37 with Core do33 with Core.Core do 38 34 if (Item.Index >= 0) and (Item.Index < Messages.Count) then 39 35 with Messages[Item.Index] do begin … … 45 41 procedure TFormMessages.FormCreate(Sender: TObject); 46 42 begin 43 Core.Core.Translator.TranslateComponentRecursive(Self); 44 Core.Core.ThemeManager.UseTheme(Self); 47 45 end; 48 46 49 47 procedure TFormMessages.Reload; 50 48 begin 51 ListView1.Items.Count := Core. Messages.Count;49 ListView1.Items.Count := Core.Core.Messages.Count; 52 50 ListView1.Refresh; 53 51 end; -
trunk/Forms/FormOptions.pas
r144 r145 1 unit UFormOptions;1 unit FormOptions; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 7 Spin, ComCtrls, ExtCtrls, UTarget, UTheme;7 Spin, ComCtrls, ExtCtrls, Target, Theme; 8 8 9 9 type … … 47 47 procedure FormCreate(Sender: TObject); 48 48 procedure FormShow(Sender: TObject); 49 private50 { private declarations }51 49 public 52 50 procedure UpdateInterface; … … 55 53 end; 56 54 57 var58 FormOptions: TFormOptions;59 55 60 56 implementation … … 63 59 64 60 uses 65 UCore, ULanguages;61 Core, Languages; 66 62 67 63 { TFormOptions } … … 69 65 procedure TFormOptions.FormShow(Sender: TObject); 70 66 begin 71 Core. PersistentForm1.Load(Self);67 Core.Core.PersistentForm1.Load(Self); 72 68 end; 73 69 … … 91 87 procedure TFormOptions.Load; 92 88 begin 93 ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.Translator.Language); 94 if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0; 95 ComboBoxTheme.ItemIndex := ComboBoxTheme.Items.IndexOfObject(Core.ThemeManager.Theme); 96 if ComboBoxTheme.ItemIndex = -1 then ComboBoxTheme.ItemIndex := 0; 97 CheckBoxReopenLastFile.Checked := Core.OpenProjectOnStart; 98 CheckBoxOptimizeAddSub.Checked := Core.Optimizations.AddSub; 99 CheckBoxOptimizeSetZero.Checked := Core.Optimizations.SetZero; 100 CheckBoxOptimizeMerge.Checked := Core.Optimizations.Merge; 101 CheckBoxOptimizeRelativeIndexes.Checked := Core.Optimizations.RelativeIndexes; 102 CheckBoxOptimizeCopyMultiply.Checked := Core.Optimizations.CopyMultiply; 103 SpinEditDPIX.Value := Core.ScaleDPI1.DPI.X; 104 SpinEditDPIY.Value := Core.ScaleDPI1.DPI.Y; 105 CheckBoxDPIAuto.Checked := Core.ScaleDPI1.AutoDetect; 106 ComboBoxOptimization.ItemIndex := Integer(Core.OptimizationLevel); 107 SpinEditCellSize.Value := Core.CellSize; 108 SpinEditMemorySize.Value := Core.MemorySize; 109 CheckBoxDebugEnabled.Checked := Core.DebugEnabled; 110 if Core.OptionsFormTabIndex < PageControl1.PageCount then 111 PageControl1.TabIndex := Core.OptionsFormTabIndex 112 else PageControl1.TabIndex := 0; 89 with Core.Core do begin 90 ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Translator.Language); 91 if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0; 92 ComboBoxTheme.ItemIndex := ComboBoxTheme.Items.IndexOfObject(ThemeManager.Theme); 93 if ComboBoxTheme.ItemIndex = -1 then ComboBoxTheme.ItemIndex := 0; 94 CheckBoxReopenLastFile.Checked := OpenProjectOnStart; 95 CheckBoxOptimizeAddSub.Checked := Optimizations.AddSub; 96 CheckBoxOptimizeSetZero.Checked := Optimizations.SetZero; 97 CheckBoxOptimizeMerge.Checked := Optimizations.Merge; 98 CheckBoxOptimizeRelativeIndexes.Checked := Optimizations.RelativeIndexes; 99 CheckBoxOptimizeCopyMultiply.Checked := Optimizations.CopyMultiply; 100 SpinEditDPIX.Value := ScaleDPI1.DPI.X; 101 SpinEditDPIY.Value := ScaleDPI1.DPI.Y; 102 CheckBoxDPIAuto.Checked := ScaleDPI1.AutoDetect; 103 ComboBoxOptimization.ItemIndex := Integer(OptimizationLevel); 104 SpinEditCellSize.Value := CellSize; 105 SpinEditMemorySize.Value := MemorySize; 106 CheckBoxDebugEnabled.Checked := DebugEnabled; 107 if OptionsFormTabIndex < PageControl1.PageCount then 108 PageControl1.TabIndex := OptionsFormTabIndex 109 else PageControl1.TabIndex := 0; 110 end; 113 111 UpdateInterface; 114 112 end; … … 116 114 procedure TFormOptions.Save; 117 115 begin 116 with Core.Core do begin 118 117 if ComboBoxLanguage.ItemIndex <> -1 then 119 Core.Translator.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);118 Translator.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]); 120 119 if ComboBoxTheme.ItemIndex <> -1 then 121 Core.ThemeManager.Theme := TTheme(ComboBoxTheme.Items.Objects[ComboBoxTheme.ItemIndex]); 122 Core.OpenProjectOnStart := CheckBoxReopenLastFile.Checked; 123 Core.ScaleDPI1.DPI := Point(SpinEditDPIX.Value, SpinEditDPIY.Value); 124 Core.ScaleDPI1.AutoDetect := CheckBoxDPIAuto.Checked; 125 Core.OptimizationLevel := TCompilerOptimization(ComboBoxOptimization.ItemIndex); 126 Core.CellSize := SpinEditCellSize.Value; 127 Core.MemorySize := SpinEditMemorySize.Value; 128 Core.Optimizations.AddSub := CheckBoxOptimizeAddSub.Checked; 129 Core.Optimizations.SetZero := CheckBoxOptimizeSetZero.Checked; 130 Core.Optimizations.Merge := CheckBoxOptimizeMerge.Checked; 131 Core.Optimizations.RelativeIndexes := CheckBoxOptimizeRelativeIndexes.Checked; 132 Core.Optimizations.CopyMultiply := CheckBoxOptimizeCopyMultiply.Checked; 133 Core.DebugEnabled := CheckBoxDebugEnabled.Checked; 134 Core.OptionsFormTabIndex := PageControl1.TabIndex; 120 ThemeManager.Theme := TTheme(ComboBoxTheme.Items.Objects[ComboBoxTheme.ItemIndex]); 121 OpenProjectOnStart := CheckBoxReopenLastFile.Checked; 122 ScaleDPI1.DPI := Point(SpinEditDPIX.Value, SpinEditDPIY.Value); 123 ScaleDPI1.AutoDetect := CheckBoxDPIAuto.Checked; 124 OptimizationLevel := TCompilerOptimization(ComboBoxOptimization.ItemIndex); 125 CellSize := SpinEditCellSize.Value; 126 MemorySize := SpinEditMemorySize.Value; 127 Optimizations.AddSub := CheckBoxOptimizeAddSub.Checked; 128 Optimizations.SetZero := CheckBoxOptimizeSetZero.Checked; 129 Optimizations.Merge := CheckBoxOptimizeMerge.Checked; 130 Optimizations.RelativeIndexes := CheckBoxOptimizeRelativeIndexes.Checked; 131 Optimizations.CopyMultiply := CheckBoxOptimizeCopyMultiply.Checked; 132 DebugEnabled := CheckBoxDebugEnabled.Checked; 133 OptionsFormTabIndex := PageControl1.TabIndex; 134 end; 135 135 end; 136 136 … … 157 157 ); 158 158 begin 159 Core. PersistentForm1.Save(Self);159 Core.Core.PersistentForm1.Save(Self); 160 160 end; 161 161 162 162 procedure TFormOptions.FormCreate(Sender: TObject); 163 163 begin 164 Core.Translator.TranslateComponentRecursive(Self); 165 Core.ThemeManager.UseTheme(Self); 166 Core.ThemeManager.Themes.LoadToStrings(ComboBoxTheme.Items); 167 Core.Translator.LanguageListToStrings(ComboBoxLanguage.Items); 164 with Core.Core do begin 165 Translator.TranslateComponentRecursive(Self); 166 ThemeManager.UseTheme(Self); 167 ThemeManager.Themes.LoadToStrings(ComboBoxTheme.Items); 168 Translator.LanguageListToStrings(ComboBoxLanguage.Items); 169 end; 168 170 ComboBoxOptimization.Items.Clear; 169 171 ComboBoxOptimization.Items.Add(CompilerOptimizationText[coNone]); -
trunk/Forms/FormOutput.lfm
r144 r145 8 8 ClientWidth = 640 9 9 DesignTimePPI = 144 10 OnCreate = FormCreate 10 11 LCLVersion = '2.2.6.0' 11 12 object Label2: TLabel -
trunk/Forms/FormOutput.pas
r144 r145 1 unit UFormOutput;1 unit FormOutput; 2 2 3 3 interface … … 13 13 Label2: TLabel; 14 14 MemoOutput: TMemo; 15 private 16 { private declarations } 15 procedure FormCreate(Sender: TObject); 17 16 public 18 17 procedure Reload; 19 18 end; 20 21 var22 FormOutput: TFormOutput;23 19 24 20 … … 28 24 29 25 uses 30 UCore, UTargetInterpretter;26 Core, TargetInterpretter; 31 27 32 28 { TFormOutput } 33 29 30 procedure TFormOutput.FormCreate(Sender: TObject); 31 begin 32 Core.Core.Translator.TranslateComponentRecursive(Self); 33 Core.Core.ThemeManager.UseTheme(Self); 34 end; 35 34 36 procedure TFormOutput.Reload; 35 37 begin 36 if Core.C urrentTarget is TTargetInterpretter then37 with TTargetInterpretter(Core.C urrentTarget) do begin38 if Core.Core.CurrentTarget is TTargetInterpretter then 39 with TTargetInterpretter(Core.Core.CurrentTarget) do begin 38 40 if OutputChanged then begin 39 41 OutputChanged := False; -
trunk/Forms/FormSourceCode.pas
r144 r145 1 unit UFormSourceCode;1 unit FormSourceCode; 2 2 3 3 interface … … 6 6 Classes, SysUtils, FileUtil, SynEdit, SynHighlighterIni, Forms, Controls, 7 7 Graphics, Dialogs, Menus, ActnList, 8 SynEditHighlighter, SynHighlighterAny, SynHighlighterJava, UBFHighlighter;8 SynEditHighlighter, SynHighlighterAny, SynHighlighterJava, BFHighlighter; 9 9 10 10 type … … 60 60 private 61 61 BFHighlighter: TSynBrainFuckHl; 62 FOnUpdateInterface: TNotifyEvent; 63 FOnUpdateStatusBar: TNotifyEvent; 62 64 public 63 65 procedure UpdateInterface; 64 66 procedure UpdateTheme; 67 property OnUpdateStatusBar: TNotifyEvent read FOnUpdateStatusBar 68 write FOnUpdateStatusBar; 69 property OnUpdateInterface: TNotifyEvent read FOnUpdateInterface 70 write FOnUpdateInterface; 65 71 end; 66 72 67 var68 FormSourceCode: TFormSourceCode;69 70 73 71 74 implementation … … 74 77 75 78 uses 76 UCore, UFormMain, UBFCodeTools;79 Core, BFCodeTools; 77 80 78 81 resourcestring … … 142 145 procedure TFormSourceCode.FormCreate(Sender: TObject); 143 146 begin 147 Core.Core.Translator.TranslateComponentRecursive(Self); 148 Core.Core.ThemeManager.UseTheme(Self); 149 144 150 BFHighlighter := TSynBrainFuckHl.Create(nil); 145 151 SynEditSource.Highlighter := BFHighlighter; … … 162 168 clLightRed = TColor($8080FF); 163 169 begin 164 if Core. ThemeManager.Theme.Name = 'Dark' then begin170 if Core.Core.ThemeManager.Theme.Name = 'Dark' then begin 165 171 BFHighlighter.IoAttri.Foreground := clWhite; 166 172 BFHighlighter.LoopAttri.Foreground := clLightRed; … … 177 183 procedure TFormSourceCode.MemoSourceChange(Sender: TObject); 178 184 begin 179 Core.Project.Modified := True; 180 Core.CurrentTarget.Compiled := False; 181 FormMain.UpdateInterface; 185 Core.Core.Project.Modified := True; 186 Core.Core.CurrentTarget.Compiled := False; 187 if Assigned(FOnUpdateInterface) then 188 OnUpdateInterface(Self); 182 189 end; 183 190 … … 194 201 Shift: TShiftState); 195 202 begin 196 FormMain.UpdateStatusBar; 203 if Assigned(FOnUpdateStatusBar) then 204 FOnUpdateStatusBar(Self); 197 205 end; 198 206 … … 200 208 Shift: TShiftState; X, Y: Integer); 201 209 begin 202 FormMain.UpdateStatusBar; 210 if Assigned(FOnUpdateStatusBar) then 211 FOnUpdateStatusBar(Self); 203 212 end; 204 213 -
trunk/Forms/FormTargetCode.lfm
r144 r145 1 1 object FormTargetCode: TFormTargetCode 2 2 Left = 555 3 Height = 4353 Height = 522 4 4 Top = 379 5 Width = 6125 Width = 734 6 6 Caption = 'Target code' 7 ClientHeight = 435 8 ClientWidth = 612 9 DesignTimePPI = 120 10 LCLVersion = '2.0.2.0' 7 ClientHeight = 522 8 ClientWidth = 734 9 DesignTimePPI = 144 10 OnCreate = FormCreate 11 LCLVersion = '2.2.6.0' 11 12 inline SynEditTarget: TSynEdit 12 13 Left = 0 13 Height = 43514 Height = 522 14 15 Top = 0 15 Width = 61216 Width = 734 16 17 Align = alClient 17 Font.Height = -1 318 Font.Height = -16 18 19 Font.Name = 'Courier New' 19 20 Font.Pitch = fpFixed … … 23 24 PopupMenu = PopupMenuTarget 24 25 TabOrder = 0 25 Gutter.Width = 6826 Gutter.Width = 81 26 27 Gutter.MouseActions = <> 27 28 RightGutter.Width = 0 … … 472 473 inline SynLeftGutterPartList1: TSynGutterPartList 473 474 object SynGutterMarks1: TSynGutterMarks 474 Width = 3 0475 Width = 36 475 476 MouseActions = <> 476 477 end 477 478 object SynGutterLineNumber1: TSynGutterLineNumber 478 Width = 17479 Width = 21 479 480 MouseActions = <> 480 481 MarkupInfo.Background = clBtnFace … … 486 487 end 487 488 object SynGutterChanges1: TSynGutterChanges 488 Width = 5489 Width = 6 489 490 MouseActions = <> 490 491 ModifiedColor = 59900 … … 498 499 end 499 500 object SynGutterCodeFolding1: TSynGutterCodeFolding 500 Width = 1 3501 Width = 15 501 502 MouseActions = <> 502 503 MarkupInfo.Background = clNone … … 509 510 object PopupMenuTarget: TPopupMenu 510 511 Images = Core.ImageListMain 511 left = 84512 top = 100512 Left = 101 513 Top = 120 513 514 object MenuItem20: TMenuItem 514 515 Action = AFormatCode … … 520 521 object ActionList1: TActionList 521 522 Images = Core.ImageListMain 522 left = 199523 top = 39523 Left = 239 524 Top = 47 524 525 object AFormatCode: TAction 525 526 Caption = 'Format code' -
trunk/Forms/FormTargetCode.pas
r144 r145 1 unit UFormTargetCode;1 unit FormTargetCode; 2 2 3 3 interface … … 23 23 procedure AFormatCodeExecute(Sender: TObject); 24 24 procedure AShrinkCodeExecute(Sender: TObject); 25 private 26 { private declarations } 25 procedure FormCreate(Sender: TObject); 27 26 public 28 27 procedure SetHighlighter(SourceExt: string); 29 28 end; 30 29 31 var32 FormTargetCode: TFormTargetCode;33 30 34 31 implementation 35 32 36 33 {$R *.lfm} 34 35 uses 36 Core; 37 37 38 38 { TFormTargetCode } … … 84 84 end; 85 85 86 procedure TFormTargetCode.FormCreate(Sender: TObject); 87 begin 88 Core.Core.Translator.TranslateComponentRecursive(Self); 89 Core.Core.ThemeManager.UseTheme(Self); 90 end; 91 86 92 procedure TFormTargetCode.SetHighlighter(SourceExt: string); 87 93 begin -
trunk/Forms/FormTargetOptions.pas
r144 r145 1 unit UFormTargetOptions;1 unit FormTargetOptions; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 7 UTarget;7 Target; 8 8 9 9 type … … 26 26 procedure FormCreate(Sender: TObject); 27 27 procedure FormShow(Sender: TObject); 28 private29 { private declarations }30 28 public 31 29 procedure LoadControls(Target: TTarget); 32 30 procedure SaveControls(Target: TTarget); 33 31 end; 34 35 var36 FormTargetOptions: TFormTargetOptions;37 32 38 33 … … 42 37 43 38 uses 44 UCore;39 Core; 45 40 46 41 { TFormTargetOptions } … … 61 56 var CloseAction: TCloseAction); 62 57 begin 63 Core. PersistentForm1.Save(Self);58 Core.Core.PersistentForm1.Save(Self); 64 59 end; 65 60 66 61 procedure TFormTargetOptions.FormCreate(Sender: TObject); 67 62 begin 68 Core. Translator.TranslateComponentRecursive(Self);69 Core. ThemeManager.UseTheme(Self);63 Core.Core.Translator.TranslateComponentRecursive(Self); 64 Core.Core.ThemeManager.UseTheme(Self); 70 65 end; 71 66 72 67 procedure TFormTargetOptions.FormShow(Sender: TObject); 73 68 begin 74 Core. PersistentForm1.Load(Self);69 Core.Core.PersistentForm1.Load(Self); 75 70 end; 76 71 -
trunk/Forms/FormTargets.pas
r144 r145 1 unit UFormTargets;1 unit FormTargets; 2 2 3 3 interface … … 18 18 procedure ListView1DblClick(Sender: TObject); 19 19 procedure ListView1KeyPress(Sender: TObject; var Key: char); 20 private21 { private declarations }22 20 public 23 21 procedure ReloadList; 24 22 end; 25 23 26 var27 FormTargets: TFormTargets;28 24 29 25 implementation … … 32 28 33 29 uses 34 UCore, UTarget, UFormTargetOptions;30 Core, Target, FormTargetOptions; 35 31 36 32 { TFormTargets } … … 38 34 procedure TFormTargets.FormShow(Sender: TObject); 39 35 begin 40 Core. PersistentForm1.Load(Self);36 Core.Core.PersistentForm1.Load(Self); 41 37 ReloadList; 42 38 end; … … 44 40 procedure TFormTargets.FormCreate(Sender: TObject); 45 41 begin 46 Core. Translator.TranslateComponentRecursive(Self);47 Core. ThemeManager.UseTheme(Self);42 Core.Core.Translator.TranslateComponentRecursive(Self); 43 Core.Core.ThemeManager.UseTheme(Self); 48 44 end; 49 45 … … 51 47 ); 52 48 begin 53 Core. PersistentForm1.Save(Self);49 Core.Core.PersistentForm1.Save(Self); 54 50 end; 55 51 56 52 procedure TFormTargets.ListView1Data(Sender: TObject; Item: TListItem); 57 53 begin 58 if (Item.Index >= 0) and (Item.Index < Core. Targets.Count) then59 with TTarget(Core. Targets[Item.Index]) do begin54 if (Item.Index >= 0) and (Item.Index < Core.Core.Targets.Count) then 55 with TTarget(Core.Core.Targets[Item.Index]) do begin 60 56 Item.Caption := Name; 61 Item.Data := Core. Targets[Item.Index];57 Item.Data := Core.Core.Targets[Item.Index]; 62 58 Item.SubItems.Add(ExecutorPath); 63 59 Item.SubItems.Add(CompilerPath); … … 66 62 67 63 procedure TFormTargets.ListView1DblClick(Sender: TObject); 64 var 65 FormTargetOptions: TFormTargetOptions; 68 66 begin 69 67 FormTargetOptions := TFormTargetOptions.Create(nil); … … 86 84 procedure TFormTargets.ReloadList; 87 85 begin 88 ListView1.Items.Count := Core. Targets.Count;86 ListView1.Items.Count := Core.Core.Targets.Count; 89 87 ListView1.Refresh; 90 88 end; -
trunk/Languages/LazFuck.cs.po
r143 r145 10 10 "Content-Type: text/plain; charset=UTF-8\n" 11 11 "Content-Transfer-Encoding: 8bit\n" 12 "X-Generator: Poedit 3.0\n" 12 "X-Generator: Poedit 3.0.1\n" 13 14 #: bftarget.sunsupportedcommand 15 #, object-pascal-format 16 msgctxt "bftarget.sunsupportedcommand" 17 msgid "Unsupported command %d" 18 msgstr "NepodporovanÃœ pÅÃkaz %d" 19 20 #: formcpu.sstepspersecond 21 msgctxt "formcpu.sstepspersecond" 22 msgid " steps/s" 23 msgstr " kroků/s" 24 25 #: formmain.schanged 26 msgctxt "formmain.schanged" 27 msgid "Changed" 28 msgstr "ZmÄnÄno" 29 30 #: formmain.scloseprojectfirst 31 msgctxt "formmain.scloseprojectfirst" 32 msgid "Project need to be closed before it can be openned" 33 msgstr "Projekt musà bÃœt uzavÅen pÅed tÃm, nÄÅŸ můşe bÃœt otevÅen" 34 35 #: formmain.scompilestart 36 msgctxt "formmain.scompilestart" 37 msgid "Compiling..." 38 msgstr "PÅekládánÃ..." 39 40 #: formmain.sdone 41 msgctxt "formmain.sdone" 42 msgid "Done" 43 msgstr "DokonÄeno" 44 45 #: formmain.sdoyouwanttosaveproject 46 msgctxt "formmain.sdoyouwanttosaveproject" 47 msgid "There are unsaved changes in project. Do you want to save them?" 48 msgstr "V projektu Jsou neuloÅŸené zmÄny. Chcete je uloÅŸit?" 49 50 #: formmain.serror 51 msgctxt "formmain.serror" 52 msgid "Error" 53 msgstr "Chyba" 54 55 #: formmain.sfilenotfound 56 #, object-pascal-format 57 msgctxt "formmain.sfilenotfound" 58 msgid "File %s not found." 59 msgstr "Soubor %s nenalezen." 60 61 #: formmain.snewproject 62 msgctxt "formmain.snewproject" 63 msgid "New project" 64 msgstr "NovÃœ projekt" 65 66 #: formmain.sprogramstarted 67 msgctxt "formmain.sprogramstarted" 68 msgid "Program started" 69 msgstr "Program spuÅ¡tÄn" 70 71 #: formmain.sprogramstopped 72 msgctxt "formmain.sprogramstopped" 73 msgid "Program stopped" 74 msgstr "Program zastaven" 75 76 #: formmain.sunsavedchanges 77 msgctxt "formmain.sunsavedchanges" 78 msgid "Unsaved changes" 79 msgstr "NeuloÅŸené zmÄny" 80 81 #: formsourcecode.senternumber 82 msgctxt "formsourcecode.senternumber" 83 msgid "Enter number" 84 msgstr "Zadejte ÄÃslo" 85 86 #: formsourcecode.sentertext 87 msgctxt "formsourcecode.sentertext" 88 msgid "Enter text" 89 msgstr "VloÅŸte text" 90 91 #: formsourcecode.snumbergeneration 92 msgctxt "formsourcecode.snumbergeneration" 93 msgid "Number generation" 94 msgstr "Generovánà ÄÃsla" 95 96 #: formsourcecode.stextgeneration 97 msgctxt "formsourcecode.stextgeneration" 98 msgid "Text generation" 99 msgstr "Generovánà textu" 100 101 #: target.scompiledfilenotfound 102 #, object-pascal-format 103 msgctxt "target.scompiledfilenotfound" 104 msgid "Program compiled file \"%s\" not found" 105 msgstr "Nenalezen sestavenÃœ soubor programu \"%s\"" 106 107 #: target.scompilernotfound 108 #, object-pascal-format 109 msgctxt "target.scompilernotfound" 110 msgid "Compiler \"%s\" not found" 111 msgstr "Nenalezen pÅekladaÄ \"%s\"" 112 113 #: target.scompiling 114 msgctxt "target.scompiling" 115 msgid "Compiling" 116 msgstr "PÅekládánÃ" 117 118 #: target.sexecutornotfound 119 #, object-pascal-format 120 msgctxt "target.sexecutornotfound" 121 msgid "Executor \"%s\" not found" 122 msgstr "SpouÅ¡tÄÄ \"%s\" nenalezen" 123 124 #: target.sfirstindexhigherthanlastindex 125 msgctxt "target.sfirstindexhigherthanlastindex" 126 msgid "First index higher than last index" 127 msgstr "Prvnà index vÄtÅ¡Ã neÅŸ poslednà index" 128 129 #: target.sfirstindexoutofrange 130 msgctxt "target.sfirstindexoutofrange" 131 msgid "First index out of range" 132 msgstr "Prvnà index mimo rozsah" 133 134 #: target.slastindexoutofrange 135 msgctxt "target.slastindexoutofrange" 136 msgid "Last index out of range" 137 msgstr "Poslednà index mimo rozsah" 138 139 #: target.snone 140 msgctxt "target.snone" 141 msgid "None" 142 msgstr "Ŝádné" 143 144 #: target.snormal 145 msgctxt "target.snormal" 146 msgid "Normal" 147 msgstr "ObyÄejné" 148 149 #: target.spaused 150 msgctxt "target.spaused" 151 msgid "Paused" 152 msgstr "Zastaveno" 153 154 #: target.sprogramindexerror 155 #, object-pascal-format 156 msgctxt "target.sprogramindexerror" 157 msgid "Old program index higher than new (old: %d, new: %d)" 158 msgstr "StarÃœ programová index vyÅ¡Å¡Ã neÅŸ novÃœ (stará: %d, novÃœ: %d)" 159 160 #: target.srunning 161 msgctxt "target.srunning" 162 msgid "Running" 163 msgstr "BÄÅŸÃcÃ" 164 165 #: target.sstopped 166 msgctxt "target.sstopped" 167 msgid "Stopped" 168 msgstr "Zastaveno" 169 170 #: targetinterpretter.sbreakpointindexerror 171 #, object-pascal-format 172 msgctxt "targetinterpretter.sbreakpointindexerror" 173 msgid "Break point index error: %d" 174 msgstr "Chyba indexu bodu pÅeruÅ¡enÃ: %d" 175 176 #: targetinterpretter.sjumptablecollision 177 msgctxt "targetinterpretter.sjumptablecollision" 178 msgid "Jump table collision" 179 msgstr "Kolize v tabulce skoků" 180 181 #: targetinterpretter.sjumptableinconsistent 182 msgctxt "targetinterpretter.sjumptableinconsistent" 183 msgid "Jump table is inconsistent" 184 msgstr "Nekonzistentnà skoková tabulka" 185 186 #: targetinterpretter.sprogramlowermemorylimit 187 msgctxt "targetinterpretter.sprogramlowermemorylimit" 188 msgid "Program run over lower memory limit" 189 msgstr "Program pÅekroÄil dolnà rozsah pamÄti" 190 191 #: targetinterpretter.sprogramnotrunning 192 msgctxt "targetinterpretter.sprogramnotrunning" 193 msgid "Program not running" 194 msgstr "Program nebÄÅŸÃ" 195 196 #: targetinterpretter.sprogramuppermemorylimit 197 msgctxt "targetinterpretter.sprogramuppermemorylimit" 198 msgid "Program run over upper memory limit" 199 msgstr "Program pÅekroÄil hornà rozsah pamÄti" 200 201 #: targetinterpretter.sunsupportedcommand 202 msgctxt "targetinterpretter.sunsupportedcommand" 203 msgid "Unsupported command" 204 msgstr "NepodporovanÃœ pÅÃkaz" 13 205 14 206 #: tcore.applicationinfo.description … … 27 219 28 220 #: tformcompilemultiple.caption 29 msgctxt "tformcompilemultiple.caption"30 221 msgid "Compile multiple" 31 222 msgstr "PÅeloÅŸit vÃce" … … 46 237 #: tformcpu.label3.caption 47 238 msgid "Program pointer:" 48 msgstr " ÄÃtaÄprogramu:"239 msgstr "Ukazatel programu:" 49 240 50 241 #: tformcpu.label4.caption … … 463 654 #: tformtargetcode.aformatcode.caption 464 655 msgid "Format code" 465 msgstr " Formátovat kód"656 msgstr "" 466 657 467 658 #: tformtargetcode.ashrinkcode.caption 468 659 msgid "Shrink code" 469 msgstr " Srazit kód"660 msgstr "" 470 661 471 662 #: tformtargetcode.caption 663 #, fuzzy 472 664 msgctxt "tformtargetcode.caption" 473 665 msgid "Target code" … … 496 688 #: tformtargetoptions.caption 497 689 msgid "Target options" 498 msgstr " NastavenÃcÃle"690 msgstr "Volby cÃle" 499 691 500 692 #: tformtargetoptions.label1.caption … … 526 718 msgstr "Cesta pÅekladaÄe" 527 719 528 #: ubftarget.sunsupportedcommand529 #, object-pascal-format530 msgid "Unsupported command %d"531 msgstr "NepodporovanÃœ pÅÃkaz %d"532 533 #: uformcpu.sstepspersecond534 msgid " steps/s"535 msgstr " kroků/s"536 537 #: uformmain.schanged538 msgid "Changed"539 msgstr "ZmÄnÄno"540 541 #: uformmain.scloseprojectfirst542 msgid "Project need to be closed before it can be openned"543 msgstr "Projekt musà bÃœt uzavÅen pÅed tÃm, nÄÅŸ můşe bÃœt otevÅen"544 545 #: uformmain.scompilestart546 msgid "Compiling..."547 msgstr "PÅekládánÃ..."548 549 #: uformmain.sdone550 msgid "Done"551 msgstr "DokonÄeno"552 553 #: uformmain.sdoyouwanttosaveproject554 msgid "There are unsaved changes in project. Do you want to save them?"555 msgstr "V projektu Jsou neuloÅŸené zmÄny. Chcete je uloÅŸit?"556 557 #: uformmain.serror558 msgid "Error"559 msgstr "Chyba"560 561 #: uformmain.sfilenotfound562 #, object-pascal-format563 msgid "File %s not found."564 msgstr "Soubor %s nenalezen."565 566 #: uformmain.snewproject567 msgid "New project"568 msgstr "NovÃœ projekt"569 570 #: uformmain.sprogramstarted571 msgid "Program started"572 msgstr "Program spuÅ¡tÄn"573 574 #: uformmain.sprogramstopped575 msgid "Program stopped"576 msgstr "Program zastaven"577 578 #: uformmain.sunsavedchanges579 msgid "Unsaved changes"580 msgstr "NeuloÅŸené zmÄny"581 582 #: uformsourcecode.senternumber583 msgid "Enter number"584 msgstr "Zadejte ÄÃslo"585 586 #: uformsourcecode.sentertext587 msgid "Enter text"588 msgstr "VloÅŸte text"589 590 #: uformsourcecode.snumbergeneration591 msgid "Number generation"592 msgstr "Generovánà ÄÃsla"593 594 #: uformsourcecode.stextgeneration595 msgid "Text generation"596 msgstr "Generovánà textu"597 598 #: utarget.scompiledfilenotfound599 #, object-pascal-format600 msgid "Program compiled file \"%s\" not found"601 msgstr "Nenalezen sestavenÃœ soubor programu \"%s\""602 603 #: utarget.scompilernotfound604 #, object-pascal-format605 msgid "Compiler \"%s\" not found"606 msgstr "Nenalezen pÅekladaÄ \"%s\""607 608 #: utarget.scompiling609 msgid "Compiling"610 msgstr "PÅekládánÃ"611 612 #: utarget.sexecutornotfound613 #, object-pascal-format614 msgid "Executor \"%s\" not found"615 msgstr "SpouÅ¡tÄÄ \"%s\" nenalezen"616 617 #: utarget.sfirstindexhigherthanlastindex618 msgid "First index higher than last index"619 msgstr "Prvnà index vÄtÅ¡Ã neÅŸ poslednà index"620 621 #: utarget.sfirstindexoutofrange622 msgid "First index out of range"623 msgstr "Prvnà index mimo rozsah"624 625 #: utarget.slastindexoutofrange626 msgid "Last index out of range"627 msgstr "Poslednà index mimo rozsah"628 629 #: utarget.snone630 msgid "None"631 msgstr "Ŝádné"632 633 #: utarget.snormal634 msgid "Normal"635 msgstr "ObyÄejné"636 637 #: utarget.spaused638 msgid "Paused"639 msgstr "Zastaveno"640 641 #: utarget.sprogramindexerror642 #, object-pascal-format643 msgid "Old program index higher than new (old: %d, new: %d)"644 msgstr "StarÃœ programová index vyÅ¡Å¡Ã neÅŸ novÃœ (stará: %d, novÃœ: %d)"645 646 #: utarget.srunning647 msgid "Running"648 msgstr "BÄÅŸÃcÃ"649 650 #: utarget.sstopped651 msgid "Stopped"652 msgstr "Zastaveno"653 654 #: utargetinterpretter.sbreakpointindexerror655 #, object-pascal-format656 msgid "Break point index error: %d"657 msgstr "Chyba indexu bodu pÅeruÅ¡enÃ: %d"658 659 #: utargetinterpretter.sjumptablecollision660 msgid "Jump table collision"661 msgstr "Kolize v tabulce skoků"662 663 #: utargetinterpretter.sjumptableinconsistent664 msgctxt "utargetinterpretter.sjumptableinconsistent"665 msgid "Jump table is inconsistent"666 msgstr "Nekonzistentnà skoková tabulka"667 668 #: utargetinterpretter.sprogramlowermemorylimit669 msgid "Program run over lower memory limit"670 msgstr "Program pÅekroÄil dolnà rozsah pamÄti"671 672 #: utargetinterpretter.sprogramnotrunning673 msgid "Program not running"674 msgstr "Program nebÄÅŸÃ"675 676 #: utargetinterpretter.sprogramuppermemorylimit677 msgid "Program run over upper memory limit"678 msgstr "Program pÅekroÄil hornà rozsah pamÄti"679 680 #: utargetinterpretter.sunsupportedcommand681 msgid "Unsupported command"682 msgstr "NepodporovanÃœ pÅÃkaz" -
trunk/Languages/LazFuck.pot
r143 r145 1 1 msgid "" 2 2 msgstr "Content-Type: text/plain; charset=UTF-8" 3 4 #: bftarget.sunsupportedcommand 5 #, object-pascal-format 6 msgctxt "bftarget.sunsupportedcommand" 7 msgid "Unsupported command %d" 8 msgstr "" 9 10 #: formcpu.sstepspersecond 11 msgctxt "formcpu.sstepspersecond" 12 msgid " steps/s" 13 msgstr "" 14 15 #: formmain.schanged 16 msgctxt "formmain.schanged" 17 msgid "Changed" 18 msgstr "" 19 20 #: formmain.scloseprojectfirst 21 msgctxt "formmain.scloseprojectfirst" 22 msgid "Project need to be closed before it can be openned" 23 msgstr "" 24 25 #: formmain.scompilestart 26 msgctxt "formmain.scompilestart" 27 msgid "Compiling..." 28 msgstr "" 29 30 #: formmain.sdone 31 msgctxt "formmain.sdone" 32 msgid "Done" 33 msgstr "" 34 35 #: formmain.sdoyouwanttosaveproject 36 msgctxt "formmain.sdoyouwanttosaveproject" 37 msgid "There are unsaved changes in project. Do you want to save them?" 38 msgstr "" 39 40 #: formmain.serror 41 msgctxt "formmain.serror" 42 msgid "Error" 43 msgstr "" 44 45 #: formmain.sfilenotfound 46 #, object-pascal-format 47 msgctxt "formmain.sfilenotfound" 48 msgid "File %s not found." 49 msgstr "" 50 51 #: formmain.snewproject 52 msgctxt "formmain.snewproject" 53 msgid "New project" 54 msgstr "" 55 56 #: formmain.sprogramstarted 57 msgctxt "formmain.sprogramstarted" 58 msgid "Program started" 59 msgstr "" 60 61 #: formmain.sprogramstopped 62 msgctxt "formmain.sprogramstopped" 63 msgid "Program stopped" 64 msgstr "" 65 66 #: formmain.sunsavedchanges 67 msgctxt "formmain.sunsavedchanges" 68 msgid "Unsaved changes" 69 msgstr "" 70 71 #: formsourcecode.senternumber 72 msgctxt "formsourcecode.senternumber" 73 msgid "Enter number" 74 msgstr "" 75 76 #: formsourcecode.sentertext 77 msgctxt "formsourcecode.sentertext" 78 msgid "Enter text" 79 msgstr "" 80 81 #: formsourcecode.snumbergeneration 82 msgctxt "formsourcecode.snumbergeneration" 83 msgid "Number generation" 84 msgstr "" 85 86 #: formsourcecode.stextgeneration 87 msgctxt "formsourcecode.stextgeneration" 88 msgid "Text generation" 89 msgstr "" 90 91 #: target.scompiledfilenotfound 92 #, object-pascal-format 93 msgctxt "target.scompiledfilenotfound" 94 msgid "Program compiled file \"%s\" not found" 95 msgstr "" 96 97 #: target.scompilernotfound 98 #, object-pascal-format 99 msgctxt "target.scompilernotfound" 100 msgid "Compiler \"%s\" not found" 101 msgstr "" 102 103 #: target.scompiling 104 msgctxt "target.scompiling" 105 msgid "Compiling" 106 msgstr "" 107 108 #: target.sexecutornotfound 109 #, object-pascal-format 110 msgctxt "target.sexecutornotfound" 111 msgid "Executor \"%s\" not found" 112 msgstr "" 113 114 #: target.sfirstindexhigherthanlastindex 115 msgctxt "target.sfirstindexhigherthanlastindex" 116 msgid "First index higher than last index" 117 msgstr "" 118 119 #: target.sfirstindexoutofrange 120 msgctxt "target.sfirstindexoutofrange" 121 msgid "First index out of range" 122 msgstr "" 123 124 #: target.slastindexoutofrange 125 msgctxt "target.slastindexoutofrange" 126 msgid "Last index out of range" 127 msgstr "" 128 129 #: target.snone 130 msgctxt "target.snone" 131 msgid "None" 132 msgstr "" 133 134 #: target.snormal 135 msgctxt "target.snormal" 136 msgid "Normal" 137 msgstr "" 138 139 #: target.spaused 140 msgctxt "target.spaused" 141 msgid "Paused" 142 msgstr "" 143 144 #: target.sprogramindexerror 145 #, object-pascal-format 146 msgctxt "target.sprogramindexerror" 147 msgid "Old program index higher than new (old: %d, new: %d)" 148 msgstr "" 149 150 #: target.srunning 151 msgctxt "target.srunning" 152 msgid "Running" 153 msgstr "" 154 155 #: target.sstopped 156 msgctxt "target.sstopped" 157 msgid "Stopped" 158 msgstr "" 159 160 #: targetinterpretter.sbreakpointindexerror 161 #, object-pascal-format 162 msgctxt "targetinterpretter.sbreakpointindexerror" 163 msgid "Break point index error: %d" 164 msgstr "" 165 166 #: targetinterpretter.sjumptablecollision 167 msgctxt "targetinterpretter.sjumptablecollision" 168 msgid "Jump table collision" 169 msgstr "" 170 171 #: targetinterpretter.sjumptableinconsistent 172 msgctxt "targetinterpretter.sjumptableinconsistent" 173 msgid "Jump table is inconsistent" 174 msgstr "" 175 176 #: targetinterpretter.sprogramlowermemorylimit 177 msgctxt "targetinterpretter.sprogramlowermemorylimit" 178 msgid "Program run over lower memory limit" 179 msgstr "" 180 181 #: targetinterpretter.sprogramnotrunning 182 msgctxt "targetinterpretter.sprogramnotrunning" 183 msgid "Program not running" 184 msgstr "" 185 186 #: targetinterpretter.sprogramuppermemorylimit 187 msgctxt "targetinterpretter.sprogramuppermemorylimit" 188 msgid "Program run over upper memory limit" 189 msgstr "" 190 191 #: targetinterpretter.sunsupportedcommand 192 msgctxt "targetinterpretter.sunsupportedcommand" 193 msgid "Unsupported command" 194 msgstr "" 3 195 4 196 #: tcore.applicationinfo.description … … 17 209 18 210 #: tformcompilemultiple.caption 19 msgctxt "tformcompilemultiple.caption"20 211 msgid "Compile multiple" 21 212 msgstr "" … … 516 707 msgstr "" 517 708 518 #: ubftarget.sunsupportedcommand519 #, object-pascal-format520 msgid "Unsupported command %d"521 msgstr ""522 523 #: uformcpu.sstepspersecond524 msgid " steps/s"525 msgstr ""526 527 #: uformmain.schanged528 msgid "Changed"529 msgstr ""530 531 #: uformmain.scloseprojectfirst532 msgid "Project need to be closed before it can be openned"533 msgstr ""534 535 #: uformmain.scompilestart536 msgid "Compiling..."537 msgstr ""538 539 #: uformmain.sdone540 msgid "Done"541 msgstr ""542 543 #: uformmain.sdoyouwanttosaveproject544 msgid "There are unsaved changes in project. Do you want to save them?"545 msgstr ""546 547 #: uformmain.serror548 msgid "Error"549 msgstr ""550 551 #: uformmain.sfilenotfound552 #, object-pascal-format553 msgid "File %s not found."554 msgstr ""555 556 #: uformmain.snewproject557 msgid "New project"558 msgstr ""559 560 #: uformmain.sprogramstarted561 msgid "Program started"562 msgstr ""563 564 #: uformmain.sprogramstopped565 msgid "Program stopped"566 msgstr ""567 568 #: uformmain.sunsavedchanges569 msgid "Unsaved changes"570 msgstr ""571 572 #: uformsourcecode.senternumber573 msgid "Enter number"574 msgstr ""575 576 #: uformsourcecode.sentertext577 msgid "Enter text"578 msgstr ""579 580 #: uformsourcecode.snumbergeneration581 msgid "Number generation"582 msgstr ""583 584 #: uformsourcecode.stextgeneration585 msgid "Text generation"586 msgstr ""587 588 #: utarget.scompiledfilenotfound589 #, object-pascal-format590 msgid "Program compiled file \"%s\" not found"591 msgstr ""592 593 #: utarget.scompilernotfound594 #, object-pascal-format595 msgid "Compiler \"%s\" not found"596 msgstr ""597 598 #: utarget.scompiling599 msgid "Compiling"600 msgstr ""601 602 #: utarget.sexecutornotfound603 #, object-pascal-format604 msgid "Executor \"%s\" not found"605 msgstr ""606 607 #: utarget.sfirstindexhigherthanlastindex608 msgid "First index higher than last index"609 msgstr ""610 611 #: utarget.sfirstindexoutofrange612 msgid "First index out of range"613 msgstr ""614 615 #: utarget.slastindexoutofrange616 msgid "Last index out of range"617 msgstr ""618 619 #: utarget.snone620 msgid "None"621 msgstr ""622 623 #: utarget.snormal624 msgid "Normal"625 msgstr ""626 627 #: utarget.spaused628 msgid "Paused"629 msgstr ""630 631 #: utarget.sprogramindexerror632 #, object-pascal-format633 msgid "Old program index higher than new (old: %d, new: %d)"634 msgstr ""635 636 #: utarget.srunning637 msgid "Running"638 msgstr ""639 640 #: utarget.sstopped641 msgid "Stopped"642 msgstr ""643 644 #: utargetinterpretter.sbreakpointindexerror645 #, object-pascal-format646 msgid "Break point index error: %d"647 msgstr ""648 649 #: utargetinterpretter.sjumptablecollision650 msgid "Jump table collision"651 msgstr ""652 653 #: utargetinterpretter.sjumptableinconsistent654 msgctxt "utargetinterpretter.sjumptableinconsistent"655 msgid "Jump table is inconsistent"656 msgstr ""657 658 #: utargetinterpretter.sprogramlowermemorylimit659 msgid "Program run over lower memory limit"660 msgstr ""661 662 #: utargetinterpretter.sprogramnotrunning663 msgid "Program not running"664 msgstr ""665 666 #: utargetinterpretter.sprogramuppermemorylimit667 msgid "Program run over upper memory limit"668 msgstr ""669 670 #: utargetinterpretter.sunsupportedcommand671 msgid "Unsupported command"672 msgstr ""673 -
trunk/LazFuck.lpi
r144 r145 103 103 </Unit0> 104 104 <Unit1> 105 <Filename Value="Forms\ UFormMain.pas"/>105 <Filename Value="Forms\FormMain.pas"/> 106 106 <IsPartOfProject Value="True"/> 107 107 <ComponentName Value="FormMain"/> … … 110 110 </Unit1> 111 111 <Unit2> 112 <Filename Value="Forms\ UFormOptions.pas"/>112 <Filename Value="Forms\FormOptions.pas"/> 113 113 <IsPartOfProject Value="True"/> 114 114 <ComponentName Value="FormOptions"/> … … 117 117 </Unit2> 118 118 <Unit3> 119 <Filename Value="Forms\ UFormCPU.pas"/>119 <Filename Value="Forms\FormCPU.pas"/> 120 120 <IsPartOfProject Value="True"/> 121 121 <ComponentName Value="FormCPU"/> … … 124 124 </Unit3> 125 125 <Unit4> 126 <Filename Value="Forms\ UFormTargets.pas"/>126 <Filename Value="Forms\FormTargets.pas"/> 127 127 <IsPartOfProject Value="True"/> 128 128 <ComponentName Value="FormTargets"/> … … 131 131 </Unit4> 132 132 <Unit5> 133 <Filename Value=" UTarget.pas"/>133 <Filename Value="Target.pas"/> 134 134 <IsPartOfProject Value="True"/> 135 135 </Unit5> 136 136 <Unit6> 137 <Filename Value="Target\ UTargetC.pas"/>137 <Filename Value="Target\TargetC.pas"/> 138 138 <IsPartOfProject Value="True"/> 139 139 </Unit6> 140 140 <Unit7> 141 <Filename Value="Target\ UTargetDelphi.pas"/>141 <Filename Value="Target\TargetDelphi.pas"/> 142 142 <IsPartOfProject Value="True"/> 143 143 </Unit7> 144 144 <Unit8> 145 <Filename Value="Target\ UTargetInterpretter.pas"/>145 <Filename Value="Target\TargetInterpretter.pas"/> 146 146 <IsPartOfProject Value="True"/> 147 147 </Unit8> 148 148 <Unit9> 149 <Filename Value="Target\ UTargetPHP.pas"/>149 <Filename Value="Target\TargetPHP.pas"/> 150 150 <IsPartOfProject Value="True"/> 151 151 </Unit9> 152 152 <Unit10> 153 <Filename Value="Forms\ UFormOutput.pas"/>153 <Filename Value="Forms\FormOutput.pas"/> 154 154 <IsPartOfProject Value="True"/> 155 155 <ComponentName Value="FormOutput"/> … … 158 158 </Unit10> 159 159 <Unit11> 160 <Filename Value="Forms\ UFormInput.pas"/>160 <Filename Value="Forms\FormInput.pas"/> 161 161 <IsPartOfProject Value="True"/> 162 162 <ComponentName Value="FormInput"/> … … 165 165 </Unit11> 166 166 <Unit12> 167 <Filename Value="Forms\ UFormMemory.pas"/>167 <Filename Value="Forms\FormMemory.pas"/> 168 168 <IsPartOfProject Value="True"/> 169 169 <ComponentName Value="FormMemory"/> … … 172 172 </Unit12> 173 173 <Unit13> 174 <Filename Value="Forms\ UFormMessages.pas"/>174 <Filename Value="Forms\FormMessages.pas"/> 175 175 <IsPartOfProject Value="True"/> 176 176 <ComponentName Value="FormMessages"/> … … 179 179 </Unit13> 180 180 <Unit14> 181 <Filename Value="Target\ UTargetJava.pas"/>181 <Filename Value="Target\TargetJava.pas"/> 182 182 <IsPartOfProject Value="True"/> 183 183 </Unit14> 184 184 <Unit15> 185 <Filename Value="Forms\ UFormSourceCode.pas"/>185 <Filename Value="Forms\FormSourceCode.pas"/> 186 186 <IsPartOfProject Value="True"/> 187 187 <ComponentName Value="FormSourceCode"/> … … 190 190 </Unit15> 191 191 <Unit16> 192 <Filename Value="Forms\ UFormTargetCode.pas"/>192 <Filename Value="Forms\FormTargetCode.pas"/> 193 193 <IsPartOfProject Value="True"/> 194 194 <ComponentName Value="FormTargetCode"/> … … 197 197 </Unit16> 198 198 <Unit17> 199 <Filename Value="Forms\ UFormTargetOptions.pas"/>199 <Filename Value="Forms\FormTargetOptions.pas"/> 200 200 <IsPartOfProject Value="True"/> 201 201 <ComponentName Value="FormTargetOptions"/> … … 204 204 </Unit17> 205 205 <Unit18> 206 <Filename Value=" UCore.pas"/>206 <Filename Value="Core.pas"/> 207 207 <IsPartOfProject Value="True"/> 208 208 <ComponentName Value="Core"/> … … 211 211 </Unit18> 212 212 <Unit19> 213 <Filename Value="Target\ UTargetFPC.pas"/>213 <Filename Value="Target\TargetFPC.pas"/> 214 214 <IsPartOfProject Value="True"/> 215 215 </Unit19> 216 216 <Unit20> 217 <Filename Value="Forms\ UFormLog.pas"/>217 <Filename Value="Forms\FormLog.pas"/> 218 218 <IsPartOfProject Value="True"/> 219 219 <ComponentName Value="FormLog"/> … … 222 222 </Unit20> 223 223 <Unit21> 224 <Filename Value=" UProject.pas"/>224 <Filename Value="Project.pas"/> 225 225 <IsPartOfProject Value="True"/> 226 226 </Unit21> 227 227 <Unit22> 228 <Filename Value=" UBFTarget.pas"/>228 <Filename Value="BFTarget.pas"/> 229 229 <IsPartOfProject Value="True"/> 230 230 </Unit22> 231 231 <Unit23> 232 <Filename Value="Target\ UTargetPython.pas"/>232 <Filename Value="Target\TargetPython.pas"/> 233 233 <IsPartOfProject Value="True"/> 234 234 </Unit23> 235 235 <Unit24> 236 <Filename Value="Target\ UTargetCSharp.pas"/>236 <Filename Value="Target\TargetCSharp.pas"/> 237 237 <IsPartOfProject Value="True"/> 238 238 </Unit24> 239 239 <Unit25> 240 <Filename Value=" UBFHighlighter.pas"/>240 <Filename Value="BFHighlighter.pas"/> 241 241 <IsPartOfProject Value="True"/> 242 242 </Unit25> 243 243 <Unit26> 244 <Filename Value="Target\ UTargetJavascript.pas"/>244 <Filename Value="Target\TargetJavascript.pas"/> 245 245 <IsPartOfProject Value="True"/> 246 246 </Unit26> 247 247 <Unit27> 248 <Filename Value="Forms\ UFormCompileMultiple.pas"/>248 <Filename Value="Forms\FormCompileMultiple.pas"/> 249 249 <IsPartOfProject Value="True"/> 250 250 <ComponentName Value="FormCompileMultiple"/> … … 253 253 </Unit27> 254 254 <Unit28> 255 <Filename Value=" UBFCodeTools.pas"/>255 <Filename Value="BFCodeTools.pas"/> 256 256 <IsPartOfProject Value="True"/> 257 257 </Unit28> -
trunk/LazFuck.lpr
r143 r145 9 9 {$ENDIF} 10 10 Interfaces, // this includes the LCL widgetset 11 Forms, UTarget, UFormCPU, UFormMain, UFormOutput, UFormInput, UFormMemory,12 UFormMessages, UFormSourceCode, UFormTargetCode, UCore, Common,13 SysUtils, UBFCodeTools;11 Forms, Target, FormCPU, FormMain, FormOutput, FormInput, FormMemory, 12 FormMessages, FormSourceCode, FormTargetCode, Core, Common, 13 SysUtils, BFCodeTools; 14 14 15 15 {$R *.res} … … 31 31 RequireDerivedFormResource := True; 32 32 Application.Initialize; 33 Application.CreateForm(TCore, Core); 34 Application.CreateForm(TFormMain, FormMain); 35 Application.CreateForm(TFormCPU, FormCPU); 36 Application.CreateForm(TFormOutput, FormOutput); 37 Application.CreateForm(TFormInput, FormInput); 38 Application.CreateForm(TFormMemory, FormMemory); 39 Application.CreateForm(TFormMessages, FormMessages); 40 Application.CreateForm(TFormSourceCode, FormSourceCode); 41 Application.CreateForm(TFormTargetCode, FormTargetCode); 33 Application.CreateForm(TCore, Core.Core); 42 34 Application.Run; 43 35 end. -
trunk/Packages/Common/AboutDialog.pas
r144 r145 1 unit UAboutDialog;1 unit AboutDialog; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus, 7 ExtCtrls, UApplicationInfo, UCommon, UTranslator, UTheme, UFormAbout;7 ExtCtrls, ApplicationInfo, Common, Translator, Theme, FormAbout; 8 8 9 9 type … … 50 50 51 51 end. 52 -
trunk/Packages/Common/ApplicationInfo.pas
r144 r145 1 unit UApplicationInfo;1 unit ApplicationInfo; 2 2 3 3 interface 4 4 5 5 uses 6 SysUtils, Classes, Forms, URegistry, Controls, Graphics, LCLType;6 SysUtils, Classes, Forms, RegistryEx, Controls, Graphics, LCLType; 7 7 8 8 type … … 57 57 procedure Register; 58 58 59 59 60 implementation 60 61 -
trunk/Packages/Common/Common.Delay.pas
r144 r145 1 unit UDelay;1 unit Common.Delay; 2 2 3 3 interface … … 71 71 72 72 end. 73 -
trunk/Packages/Common/Common.lpk
r129 r145 33 33 <Other> 34 34 <CompilerMessages> 35 <IgnoredMessages idx6058="True" idx50 24="True" idx3124="True" idx3123="True"/>35 <IgnoredMessages idx6058="True" idx5071="True" idx5024="True" idx3124="True" idx3123="True"/> 36 36 </CompilerMessages> 37 37 </Other> … … 41 41 Source: https://svn.zdechov.net/PascalClassLibrary/Common/"/> 42 42 <License Value="Copy left."/> 43 <Version Minor=" 9"/>44 <Files Count=" 29">43 <Version Minor="11"/> 44 <Files Count="33"> 45 45 <Item1> 46 46 <Filename Value="StopWatch.pas"/> … … 48 48 </Item1> 49 49 <Item2> 50 <Filename Value=" UCommon.pas"/>51 <UnitName Value=" UCommon"/>50 <Filename Value="Common.pas"/> 51 <UnitName Value="Common"/> 52 52 </Item2> 53 53 <Item3> 54 <Filename Value=" UDebugLog.pas"/>55 <HasRegisterProc Value="True"/> 56 <UnitName Value=" UDebugLog"/>54 <Filename Value="DebugLog.pas"/> 55 <HasRegisterProc Value="True"/> 56 <UnitName Value="DebugLog"/> 57 57 </Item3> 58 58 <Item4> 59 <Filename Value=" UDelay.pas"/>60 <UnitName Value=" UDelay"/>59 <Filename Value="Common.Delay.pas"/> 60 <UnitName Value="Common.Delay"/> 61 61 </Item4> 62 62 <Item5> 63 <Filename Value=" UPrefixMultiplier.pas"/>64 <HasRegisterProc Value="True"/> 65 <UnitName Value=" UPrefixMultiplier"/>63 <Filename Value="PrefixMultiplier.pas"/> 64 <HasRegisterProc Value="True"/> 65 <UnitName Value="PrefixMultiplier"/> 66 66 </Item5> 67 67 <Item6> 68 <Filename Value="U URI.pas"/>69 <UnitName Value="U URI"/>68 <Filename Value="URI.pas"/> 69 <UnitName Value="URI"/> 70 70 </Item6> 71 71 <Item7> 72 <Filename Value=" UThreading.pas"/>73 <UnitName Value=" UThreading"/>72 <Filename Value="Threading.pas"/> 73 <UnitName Value="Threading"/> 74 74 </Item7> 75 75 <Item8> 76 <Filename Value=" UMemory.pas"/>77 <UnitName Value=" UMemory"/>76 <Filename Value="Memory.pas"/> 77 <UnitName Value="Memory"/> 78 78 </Item8> 79 79 <Item9> 80 <Filename Value=" UResetableThread.pas"/>81 <UnitName Value=" UResetableThread"/>80 <Filename Value="ResetableThread.pas"/> 81 <UnitName Value="ResetableThread"/> 82 82 </Item9> 83 83 <Item10> 84 <Filename Value=" UPool.pas"/>85 <UnitName Value=" UPool"/>84 <Filename Value="Pool.pas"/> 85 <UnitName Value="Pool"/> 86 86 </Item10> 87 87 <Item11> 88 <Filename Value=" ULastOpenedList.pas"/>89 <HasRegisterProc Value="True"/> 90 <UnitName Value=" ULastOpenedList"/>88 <Filename Value="LastOpenedList.pas"/> 89 <HasRegisterProc Value="True"/> 90 <UnitName Value="LastOpenedList"/> 91 91 </Item11> 92 92 <Item12> 93 <Filename Value=" URegistry.pas"/>94 <UnitName Value=" URegistry"/>93 <Filename Value="RegistryEx.pas"/> 94 <UnitName Value="RegistryEx"/> 95 95 </Item12> 96 96 <Item13> 97 <Filename Value=" UJobProgressView.pas"/>98 <HasRegisterProc Value="True"/> 99 <UnitName Value=" UJobProgressView"/>97 <Filename Value="JobProgressView.pas"/> 98 <HasRegisterProc Value="True"/> 99 <UnitName Value="JobProgressView"/> 100 100 </Item13> 101 101 <Item14> 102 <Filename Value=" UXMLUtils.pas"/>103 <UnitName Value=" UXMLUtils"/>102 <Filename Value="XML.pas"/> 103 <UnitName Value="XML"/> 104 104 </Item14> 105 105 <Item15> 106 <Filename Value=" UApplicationInfo.pas"/>107 <HasRegisterProc Value="True"/> 108 <UnitName Value=" UApplicationInfo"/>106 <Filename Value="ApplicationInfo.pas"/> 107 <HasRegisterProc Value="True"/> 108 <UnitName Value="ApplicationInfo"/> 109 109 </Item15> 110 110 <Item16> 111 <Filename Value=" USyncCounter.pas"/>112 <UnitName Value=" USyncCounter"/>111 <Filename Value="SyncCounter.pas"/> 112 <UnitName Value="SyncCounter"/> 113 113 </Item16> 114 114 <Item17> 115 <Filename Value=" UListViewSort.pas"/>116 <HasRegisterProc Value="True"/> 117 <UnitName Value=" UListViewSort"/>115 <Filename Value="ListViewSort.pas"/> 116 <HasRegisterProc Value="True"/> 117 <UnitName Value="ListViewSort"/> 118 118 </Item17> 119 119 <Item18> 120 <Filename Value=" UPersistentForm.pas"/>121 <HasRegisterProc Value="True"/> 122 <UnitName Value=" UPersistentForm"/>120 <Filename Value="PersistentForm.pas"/> 121 <HasRegisterProc Value="True"/> 122 <UnitName Value="PersistentForm"/> 123 123 </Item18> 124 124 <Item19> 125 <Filename Value=" UFindFile.pas"/>126 <HasRegisterProc Value="True"/> 127 <UnitName Value=" UFindFile"/>125 <Filename Value="FindFile.pas"/> 126 <HasRegisterProc Value="True"/> 127 <UnitName Value="FindFile"/> 128 128 </Item19> 129 129 <Item20> 130 <Filename Value=" UScaleDPI.pas"/>131 <HasRegisterProc Value="True"/> 132 <UnitName Value=" UScaleDPI"/>130 <Filename Value="ScaleDPI.pas"/> 131 <HasRegisterProc Value="True"/> 132 <UnitName Value="ScaleDPI"/> 133 133 </Item20> 134 134 <Item21> 135 <Filename Value=" UTheme.pas"/>136 <HasRegisterProc Value="True"/> 137 <UnitName Value=" UTheme"/>135 <Filename Value="Theme.pas"/> 136 <HasRegisterProc Value="True"/> 137 <UnitName Value="Theme"/> 138 138 </Item21> 139 139 <Item22> 140 <Filename Value=" UStringTable.pas"/>141 <UnitName Value=" UStringTable"/>140 <Filename Value="StringTable.pas"/> 141 <UnitName Value="StringTable"/> 142 142 </Item22> 143 143 <Item23> 144 <Filename Value=" UMetaCanvas.pas"/>145 <UnitName Value=" UMetaCanvas"/>144 <Filename Value="MetaCanvas.pas"/> 145 <UnitName Value="MetaCanvas"/> 146 146 </Item23> 147 147 <Item24> 148 <Filename Value=" UGeometric.pas"/>149 <UnitName Value=" UGeometric"/>148 <Filename Value="Geometric.pas"/> 149 <UnitName Value="Geometric"/> 150 150 </Item24> 151 151 <Item25> 152 <Filename Value=" UTranslator.pas"/>153 <HasRegisterProc Value="True"/> 154 <UnitName Value=" UTranslator"/>152 <Filename Value="Translator.pas"/> 153 <HasRegisterProc Value="True"/> 154 <UnitName Value="Translator"/> 155 155 </Item25> 156 156 <Item26> 157 <Filename Value=" ULanguages.pas"/>158 <UnitName Value=" ULanguages"/>157 <Filename Value="Languages.pas"/> 158 <UnitName Value="Languages"/> 159 159 </Item26> 160 160 <Item27> 161 <Filename Value=" UFormAbout.pas"/>162 <UnitName Value=" UFormAbout"/>161 <Filename Value="FormAbout.pas"/> 162 <UnitName Value="FormAbout"/> 163 163 </Item27> 164 164 <Item28> 165 <Filename Value=" UAboutDialog.pas"/>166 <HasRegisterProc Value="True"/> 167 <UnitName Value=" UAboutDialog"/>165 <Filename Value="AboutDialog.pas"/> 166 <HasRegisterProc Value="True"/> 167 <UnitName Value="AboutDialog"/> 168 168 </Item28> 169 169 <Item29> 170 <Filename Value=" UPixelPointer.pas"/>171 <UnitName Value=" UPixelPointer"/>170 <Filename Value="PixelPointer.pas"/> 171 <UnitName Value="PixelPointer"/> 172 172 </Item29> 173 <Item30> 174 <Filename Value="DataFile.pas"/> 175 <UnitName Value="DataFile"/> 176 </Item30> 177 <Item31> 178 <Filename Value="TestCase.pas"/> 179 <UnitName Value="TestCase"/> 180 </Item31> 181 <Item32> 182 <Filename Value="Generics.pas"/> 183 <UnitName Value="Generics"/> 184 </Item32> 185 <Item33> 186 <Filename Value="CommonPackage.pas"/> 187 <Type Value="Main Unit"/> 188 <UnitName Value="CommonPackage"/> 189 </Item33> 173 190 </Files> 174 191 <CompatibilityMode Value="True"/> -
trunk/Packages/Common/Common.pas
r144 r145 1 unit UCommon;1 unit Common; 2 2 3 3 interface … … 7 7 {$IFDEF UNIX}baseunix,{$ENDIF} 8 8 Classes, SysUtils, StrUtils, Dialogs, Process, LCLIntf, Graphics, 9 FileUtil ; //, ShFolder, ShellAPI;9 FileUtil, Generics.Collections; //, ShFolder, ShellAPI; 10 10 11 11 type … … 31 31 ExceptionHandler: TExceptionEvent; 32 32 DLLHandle1: HModule; 33 {$IFDEF WINDOWS} 34 GetUserNameEx: procedure (NameFormat: DWORD; 35 lpNameBuffer: LPSTR; nSize: PULONG); stdcall; 36 {$ENDIF} 33 34 {$IFDEF WINDOWS} 35 GetUserNameEx: procedure (NameFormat: DWORD; 36 lpNameBuffer: LPSTR; nSize: PULONG); stdcall; 37 {$ENDIF} 37 38 38 39 const … … 64 65 function GetFileFilterItemExt(Filter: string; Index: Integer): string; 65 66 function IntToBin(Data: Int64; Count: Byte): string; 67 function Implode(Separator: Char; List: TList<string>): string; 66 68 function LastPos(const SubStr: String; const S: String): Integer; 67 69 function LoadFileToStr(const FileName: TFileName): AnsiString; … … 312 314 end; 313 315 316 function Implode(Separator: Char; List: TList<string>): string; 317 var 318 I: Integer; 319 begin 320 Result := ''; 321 for I := 0 to List.Count - 1 do begin 322 Result := Result + List[I]; 323 if I < List.Count - 1 then Result := Result + Separator; 324 end; 325 end; 326 314 327 {$IFDEF WINDOWS} 315 328 function GetUserName: string; -
trunk/Packages/Common/CommonPackage.pas
r144 r145 3 3 } 4 4 5 unit Common ;5 unit CommonPackage; 6 6 7 7 {$warn 5023 off : no warning about unused units} … … 9 9 10 10 uses 11 StopWatch, UCommon, UDebugLog, UDelay, UPrefixMultiplier, UURI, UThreading,12 UMemory, UResetableThread, UPool, ULastOpenedList, URegistry,13 UJobProgressView, UXMLUtils, UApplicationInfo, USyncCounter, UListViewSort,14 UPersistentForm, UFindFile, UScaleDPI, UTheme, UStringTable, UMetaCanvas,15 UGeometric, UTranslator, ULanguages, UFormAbout, UAboutDialog,16 UPixelPointer,LazarusPackageIntf;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 FormAbout, AboutDialog, PixelPointer, DataFile, TestCase, Generics, 16 LazarusPackageIntf; 17 17 18 18 implementation … … 20 20 procedure Register; 21 21 begin 22 RegisterUnit(' UDebugLog', @UDebugLog.Register);23 RegisterUnit(' UPrefixMultiplier', @UPrefixMultiplier.Register);24 RegisterUnit(' ULastOpenedList', @ULastOpenedList.Register);25 RegisterUnit(' UJobProgressView', @UJobProgressView.Register);26 RegisterUnit(' UApplicationInfo', @UApplicationInfo.Register);27 RegisterUnit(' UListViewSort', @UListViewSort.Register);28 RegisterUnit(' UPersistentForm', @UPersistentForm.Register);29 RegisterUnit(' UFindFile', @UFindFile.Register);30 RegisterUnit(' UScaleDPI', @UScaleDPI.Register);31 RegisterUnit(' UTheme', @UTheme.Register);32 RegisterUnit(' UTranslator', @UTranslator.Register);33 RegisterUnit(' UAboutDialog', @UAboutDialog.Register);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('AboutDialog', @AboutDialog.Register); 34 34 end; 35 35 -
trunk/Packages/Common/DebugLog.pas
r144 r145 1 unit UDebugLog;1 unit DebugLog; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, fgl, SyncObjs;6 Classes, SysUtils, FileUtil, Generics.Collections, SyncObjs; 7 7 8 8 type … … 13 13 Group: string; 14 14 Text: string; 15 end; 16 17 TDebugLogItems = class(TObjectList<TDebugLogItem>) 15 18 end; 16 19 … … 27 30 procedure SetMaxCount(const AValue: Integer); 28 31 public 29 Items: T FPGObjectList<TDebugLogItem>;32 Items: TDebugLogItems; 30 33 Lock: TCriticalSection; 31 34 procedure Add(Text: string; Group: string = ''); … … 42 45 43 46 procedure Register; 47 44 48 45 49 implementation … … 115 119 begin 116 120 inherited; 117 Items := T FPGObjectList<TDebugLogItem>.Create;121 Items := TDebugLogItems.Create; 118 122 Lock := TCriticalSection.Create; 119 123 MaxCount := 100; … … 124 128 destructor TDebugLog.Destroy; 125 129 begin 126 Items.Free;127 Lock.Free;130 FreeAndNil(Items); 131 FreeAndNil(Lock); 128 132 inherited; 129 133 end; 130 134 131 135 end. 132 -
trunk/Packages/Common/FindFile.pas
r144 r145 19 19 } 20 20 21 unit UFindFile;21 unit FindFile; 22 22 23 23 interface … … 35 35 private 36 36 s : TStringList; 37 38 37 fSubFolder : boolean; 39 38 fAttr: TFileAttrib; 40 39 fPath : string; 41 40 fFileMask : string; 42 43 41 procedure SetPath(Value: string); 44 42 procedure FileSearch(const inPath : string); … … 46 44 constructor Create(AOwner: TComponent); override; 47 45 destructor Destroy; override; 48 49 46 function SearchForFiles: TStringList; 50 47 published … … 64 61 65 62 procedure Register; 63 66 64 67 65 implementation … … 87 85 begin 88 86 s.Free; 89 inherited Destroy;87 inherited; 90 88 end; 91 89 … … 145 143 SysUtils.FindClose(Rec); 146 144 end; 147 end; 145 end; 148 146 149 147 end. 150 -
trunk/Packages/Common/FormAbout.lfm
r144 r145 1 1 object FormAbout: TFormAbout 2 2 Left = 1014 3 Height = 4023 Height = 349 4 4 Top = 577 5 Width = 7025 Width = 609 6 6 Caption = 'About' 7 ClientHeight = 402 8 ClientWidth = 702 9 DesignTimePPI = 144 10 OnCreate = FormCreate 7 ClientHeight = 349 8 ClientWidth = 609 9 DesignTimePPI = 125 11 10 OnShow = FormShow 12 11 Position = poScreenCenter 13 LCLVersion = '2. 0.10.0'12 LCLVersion = '2.2.4.0' 14 13 object LabelDescription: TLabel 15 Left = 3016 Height = 2 417 Top = 1 3518 Width = 64214 Left = 26 15 Height = 22 16 Top = 117 17 Width = 557 19 18 Align = alTop 20 BorderSpacing.Left = 3021 BorderSpacing.Right = 3022 BorderSpacing.Bottom = 3019 BorderSpacing.Left = 26 20 BorderSpacing.Right = 26 21 BorderSpacing.Bottom = 26 23 22 Caption = 'Description' 24 23 ParentColor = False … … 27 26 end 28 27 object LabelContent: TLabel 29 Left = 3030 Height = 2 431 Top = 1 8932 Width = 64228 Left = 26 29 Height = 22 30 Top = 165 31 Width = 557 33 32 Align = alTop 34 BorderSpacing.Around = 3033 BorderSpacing.Around = 26 35 34 Caption = ' ' 36 35 ParentColor = False … … 39 38 object PanelTop: TPanel 40 39 Left = 0 41 Height = 1 3540 Height = 117 42 41 Top = 0 43 Width = 70242 Width = 609 44 43 Align = alTop 45 44 BevelOuter = bvNone 46 ClientHeight = 1 3547 ClientWidth = 70245 ClientHeight = 117 46 ClientWidth = 609 48 47 FullRepaint = False 49 48 ParentFont = False 50 49 TabOrder = 0 51 50 object LabelAppName: TLabel 52 Left = 10853 Height = 8454 Top = 2055 Width = 56451 Left = 94 52 Height = 73 53 Top = 17 54 Width = 489 56 55 Anchors = [akTop, akLeft, akRight] 57 56 AutoSize = False 58 BorderSpacing.Around = 3057 BorderSpacing.Around = 26 59 58 Caption = 'Title' 60 Font.Height = - 6059 Font.Height = -52 61 60 ParentColor = False 62 61 ParentFont = False … … 64 63 end 65 64 object ImageLogo: TImage 66 Left = 2 467 Height = 7468 Top = 3069 Width = 7265 Left = 21 66 Height = 64 67 Top = 26 68 Width = 62 70 69 Proportional = True 71 70 Stretch = True … … 74 73 object PanelButtons: TPanel 75 74 Left = 0 76 Height = 7577 Top = 32778 Width = 70275 Height = 65 76 Top = 284 77 Width = 609 79 78 Align = alBottom 80 79 BevelOuter = bvNone 81 ClientHeight = 7582 ClientWidth = 70280 ClientHeight = 65 81 ClientWidth = 609 83 82 TabOrder = 1 84 83 object ButtonHomePage: TButton 85 Left = 2 486 Height = 3 887 Top = 2 488 Width = 2 6484 Left = 21 85 Height = 33 86 Top = 21 87 Width = 229 89 88 Anchors = [akLeft, akBottom] 90 89 Caption = 'Home page' … … 94 93 end 95 94 object ButtonClose: TButton 96 Left = 53297 Height = 3 898 Top = 2 499 Width = 1 4095 Left = 461 96 Height = 33 97 Top = 21 98 Width = 122 100 99 Anchors = [akRight, akBottom] 101 100 Caption = 'Close' -
trunk/Packages/Common/FormAbout.pas
r144 r145 1 unit UFormAbout;1 unit FormAbout; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus, 7 StdCtrls, ExtCtrls, UApplicationInfo, UCommon, UTranslator, UTheme;7 StdCtrls, ExtCtrls, ApplicationInfo, Common, Translator, Theme; 8 8 9 9 type … … 20 20 PanelButtons: TPanel; 21 21 procedure ButtonHomePageClick(Sender: TObject); 22 procedure FormCreate(Sender: TObject);23 22 procedure FormShow(Sender: TObject); 24 private25 { private declarations }26 23 public 27 24 AboutDialog: TObject; //TAboutDialog … … 35 32 36 33 uses 37 UAboutDialog;34 AboutDialog; 38 35 39 36 resourcestring … … 77 74 end; 78 75 79 procedure TFormAbout.FormCreate(Sender: TObject);80 begin81 end;82 83 76 end. 84 -
trunk/Packages/Common/Geometric.pas
r144 r145 1 unit UGeometric;1 unit Geometric; 2 2 3 3 interface … … 8 8 type 9 9 TPointArray = array of TPoint; 10 11 { TVector } 12 13 TVector = record 14 Position: TPoint; 15 Direction: TPoint; 16 function GetLength: Double; 17 function GetAngle: Double; 18 procedure SetLength(Value: Double); 19 class function Create(P1, P2: TPoint): TVector; static; 20 end; 10 21 11 22 function Distance(P1, P2: TPoint): Integer; … … 13 24 function AddPoint(const P1, P2: TPoint): TPoint; 14 25 function SubPoint(const P1, P2: TPoint): TPoint; 15 function PointToLineDistance(const P, V, W: TPoint ): Integer;26 function PointToLineDistance(const P, V, W: TPoint; out Intersect: TPoint): Integer; 16 27 function ComparePoint(P1, P2: TPoint): Boolean; 17 28 function RotatePoint(Center, P: TPoint; Angle: Double): TPoint; … … 25 36 function ShiftRect(ARect: TRect; Delta: TPoint): TRect; 26 37 38 27 39 implementation 28 40 … … 49 61 end; 50 62 51 function PointToLineDistance(const P, V, W: TPoint ): Integer;63 function PointToLineDistance(const P, V, W: TPoint; out Intersect: TPoint): Integer; 52 64 var 53 65 l2, t: Double; … … 67 79 if T < 0 then begin 68 80 Result := Distance(P, V); // Beyond the 'v' end of the segment 69 exit; 81 Intersect := V; 82 Exit; 70 83 end 71 84 else if T > 1 then begin 72 85 Result := Distance(P, W); // Beyond the 'w' end of the segment 86 Intersect := W; 73 87 Exit; 74 88 end; … … 76 90 TT.Y := Trunc(V.Y + T * (W.Y - V.Y)); 77 91 Result := Distance(P, TT); 92 Intersect := TT; 78 93 end; 79 94 … … 161 176 end; 162 177 178 { TVector } 179 180 function TVector.GetLength: Double; 181 begin 182 Result := Sqrt(Sqr(Direction.X) + Sqr(Direction.Y)); 183 end; 184 185 function TVector.GetAngle: Double; 186 begin 187 Result := ArcTan2(Direction.Y, Direction.X); 188 end; 189 190 procedure TVector.SetLength(Value: Double); 191 var 192 Angle: Double; 193 begin 194 Angle := GetAngle; 195 Direction := Point(Round(Cos(Angle) * Value), 196 Round(Sin(Angle) * Value)); 197 end; 198 199 class function TVector.Create(P1, P2: TPoint): TVector; 200 begin 201 Result.Position := P1; 202 Result.Direction := Point(P2.X - P1.X, P2.Y - P1.Y); 203 end; 163 204 164 205 end. 165 -
trunk/Packages/Common/JobProgressView.pas
r144 r145 1 unit UJobProgressView;1 unit JobProgressView; 2 2 3 3 interface … … 5 5 uses 6 6 SysUtils, Variants, Classes, Graphics, Controls, Forms, Syncobjs, 7 Dialogs, ComCtrls, StdCtrls, ExtCtrls, fgl, UThreading, Math,7 Dialogs, ComCtrls, StdCtrls, ExtCtrls, Generics.Collections, Threading, Math, 8 8 DateUtils; 9 9 … … 69 69 end; 70 70 71 TJobs = class(T FPGObjectList<TJob>)71 TJobs = class(TObjectList<TJob>) 72 72 end; 73 73 … … 154 154 end; 155 155 156 //var157 // FormJobProgressView: TFormJobProgressView;158 159 156 procedure Register; 160 157 161 158 resourcestring 162 159 SExecuted = 'Executed'; 160 163 161 164 162 implementation … … 184 182 try 185 183 try 186 //raise Exception.Create('Exception in job');187 184 ProgressView.CurrentJob.Method(Job); 188 185 except -
trunk/Packages/Common/Languages.pas
r144 r145 1 unit ULanguages;1 unit Languages; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, fgl;6 Classes, SysUtils, Generics.Collections; 7 7 8 8 type … … 15 15 { TLanguages } 16 16 17 TLanguages = class(T FPGObjectList<TLanguage>)17 TLanguages = class(TObjectList<TLanguage>) 18 18 function SearchByCode(ACode: string): TLanguage; 19 19 procedure AddNew(Code: string; Name: string); … … 443 443 444 444 end. 445 -
trunk/Packages/Common/Languages/DebugLog.cs.po
r144 r145 10 10 "Content-Transfer-Encoding: 8bit\n" 11 11 12 #: udebuglog.sfilenamenotdefined 12 #: debuglog.sfilenamenotdefined 13 #, fuzzy 14 msgctxt "debuglog.sfilenamenotdefined" 13 15 msgid "Filename not defined" 14 16 msgstr "NeurÄen soubor" -
trunk/Packages/Common/Languages/DebugLog.pot
r144 r145 2 2 msgstr "Content-Type: text/plain; charset=UTF-8" 3 3 4 #: udebuglog.sfilenamenotdefined4 #: debuglog.sfilenamenotdefined 5 5 msgid "Filename not defined" 6 6 msgstr "" -
trunk/Packages/Common/Languages/FindFile.cs.po
r144 r145 12 12 "X-Generator: Poedit 1.8.9\n" 13 13 14 #: ufindfile.sdirnotfound 14 #: findfile.sdirnotfound 15 #, fuzzy 16 msgctxt "findfile.sdirnotfound" 15 17 msgid "Directory not found" 16 18 msgstr "AdresáŠnenalezen" -
trunk/Packages/Common/Languages/FindFile.pot
r144 r145 2 2 msgstr "Content-Type: text/plain; charset=UTF-8" 3 3 4 #: ufindfile.sdirnotfound4 #: findfile.sdirnotfound 5 5 msgid "Directory not found" 6 6 msgstr "" -
trunk/Packages/Common/Languages/FormAbout.cs.po
r144 r145 12 12 "X-Generator: Poedit 2.4.1\n" 13 13 14 #: uformabout.slicense 14 #: formabout.slicense 15 #, fuzzy 16 msgctxt "formabout.slicense" 15 17 msgid "License" 16 18 msgstr "Licence" 17 19 18 #: uformabout.sreleasedate 20 #: formabout.sreleasedate 21 #, fuzzy 22 msgctxt "formabout.sreleasedate" 19 23 msgid "Release date" 20 24 msgstr "Datum uvolnÄnÃ" 21 25 22 #: uformabout.sversion 26 #: formabout.sversion 27 #, fuzzy 28 msgctxt "formabout.sversion" 23 29 msgid "Version" 24 30 msgstr "Verze" -
trunk/Packages/Common/Languages/FormAbout.pot
r144 r145 2 2 msgstr "Content-Type: text/plain; charset=UTF-8" 3 3 4 #: uformabout.slicense4 #: formabout.slicense 5 5 msgid "License" 6 6 msgstr "" 7 7 8 #: uformabout.sreleasedate8 #: formabout.sreleasedate 9 9 msgid "Release date" 10 10 msgstr "" 11 11 12 #: uformabout.sversion12 #: formabout.sversion 13 13 msgid "Version" 14 14 msgstr "" -
trunk/Packages/Common/Languages/JobProgressView.cs.po
r144 r145 12 12 "X-Generator: Poedit 2.2\n" 13 13 14 #: ujobprogressview.sestimatedtime 15 #, object-pascal-format 14 #: jobprogressview.sestimatedtime 15 #, object-pascal-format, fuzzy 16 msgctxt "jobprogressview.sestimatedtime" 16 17 msgid "Estimated time: %s" 17 18 msgstr "OdhadovanÃœ Äas: %s" 18 19 19 #: ujobprogressview.sexecuted 20 #: jobprogressview.sexecuted 21 #, fuzzy 22 msgctxt "jobprogressview.sexecuted" 20 23 msgid "Executed" 21 24 msgstr "Vykonané" 22 25 23 #: ujobprogressview.sfinished 26 #: jobprogressview.sfinished 27 #, fuzzy 28 msgctxt "jobprogressview.sfinished" 24 29 msgid "Finished" 25 30 msgstr "DokonÄené" 26 31 27 #: ujobprogressview.spleasewait 32 #: jobprogressview.spleasewait 33 #, fuzzy 34 msgctxt "jobprogressview.spleasewait" 28 35 msgid "Please wait..." 29 36 msgstr "ProsÃm Äekejte..." 30 37 31 #: ujobprogressview.sterminate 38 #: jobprogressview.sterminate 39 #, fuzzy 40 msgctxt "jobprogressview.sterminate" 32 41 msgid "Termination" 33 42 msgstr "PÅeruÅ¡enÃ" 34 43 35 #: ujobprogressview.stotalestimatedtime 36 #, object-pascal-format 44 #: jobprogressview.stotalestimatedtime 45 #, object-pascal-format, fuzzy 46 msgctxt "jobprogressview.stotalestimatedtime" 37 47 msgid "Total estimated time: %s" 38 48 msgstr "CelkovÃœ odhadovanÃœ Äas: %s" -
trunk/Packages/Common/Languages/JobProgressView.pot
r144 r145 2 2 msgstr "Content-Type: text/plain; charset=UTF-8" 3 3 4 #: ujobprogressview.sestimatedtime4 #: jobprogressview.sestimatedtime 5 5 #, object-pascal-format 6 6 msgid "Estimated time: %s" 7 7 msgstr "" 8 8 9 #: ujobprogressview.sexecuted9 #: jobprogressview.sexecuted 10 10 msgid "Executed" 11 11 msgstr "" 12 12 13 #: ujobprogressview.sfinished13 #: jobprogressview.sfinished 14 14 msgid "Finished" 15 15 msgstr "" 16 16 17 #: ujobprogressview.spleasewait17 #: jobprogressview.spleasewait 18 18 msgid "Please wait..." 19 19 msgstr "" 20 20 21 #: ujobprogressview.sterminate21 #: jobprogressview.sterminate 22 22 msgid "Termination" 23 23 msgstr "" 24 24 25 #: ujobprogressview.stotalestimatedtime25 #: jobprogressview.stotalestimatedtime 26 26 #, object-pascal-format 27 27 msgid "Total estimated time: %s" -
trunk/Packages/Common/Languages/Languages.cs.po
r144 r145 10 10 "Content-Transfer-Encoding: 8bit\n" 11 11 12 #: ulanguages.slangauto 12 #: languages.slangauto 13 #, fuzzy 14 msgctxt "languages.slangauto" 13 15 msgid "Automatic" 14 16 msgstr "Automaticky" 15 17 16 #: ulanguages.slang_aa 18 #: languages.slang_aa 19 msgctxt "languages.slang_aa" 17 20 msgid "Afar" 18 21 msgstr "" 19 22 20 #: ulanguages.slang_ab 23 #: languages.slang_ab 24 #, fuzzy 25 msgctxt "languages.slang_ab" 21 26 msgid "Abkhazian" 22 27 msgstr "AbcházÅ¡tina" 23 28 24 #: ulanguages.slang_ae 29 #: languages.slang_ae 30 msgctxt "languages.slang_ae" 25 31 msgid "Avestan" 26 32 msgstr "" 27 33 28 #: ulanguages.slang_af 34 #: languages.slang_af 35 #, fuzzy 36 msgctxt "languages.slang_af" 29 37 msgid "Afrikaans" 30 38 msgstr "AfrikánÅ¡tina" 31 39 32 #: ulanguages.slang_ak 40 #: languages.slang_ak 41 msgctxt "languages.slang_ak" 33 42 msgid "Akan" 34 43 msgstr "" 35 44 36 #: ulanguages.slang_am 45 #: languages.slang_am 46 msgctxt "languages.slang_am" 37 47 msgid "Amharic" 38 48 msgstr "" 39 49 40 #: ulanguages.slang_an 50 #: languages.slang_an 51 msgctxt "languages.slang_an" 41 52 msgid "Aragonese" 42 53 msgstr "" 43 54 44 #: ulanguages.slang_ar 55 #: languages.slang_ar 56 #, fuzzy 57 msgctxt "languages.slang_ar" 45 58 msgid "Arabic" 46 59 msgstr "ArabÅ¡tina" 47 60 48 #: ulanguages.slang_as 61 #: languages.slang_as 62 msgctxt "languages.slang_as" 49 63 msgid "Assamese" 50 64 msgstr "" 51 65 52 #: ulanguages.slang_av 66 #: languages.slang_av 67 msgctxt "languages.slang_av" 53 68 msgid "Avaric" 54 69 msgstr "" 55 70 56 #: ulanguages.slang_ay 71 #: languages.slang_ay 72 msgctxt "languages.slang_ay" 57 73 msgid "Aymara" 58 74 msgstr "" 59 75 60 #: ulanguages.slang_az 76 #: languages.slang_az 77 msgctxt "languages.slang_az" 61 78 msgid "Azerbaijani" 62 79 msgstr "" 63 80 64 #: ulanguages.slang_ba 81 #: languages.slang_ba 82 msgctxt "languages.slang_ba" 65 83 msgid "Bashkir" 66 84 msgstr "" 67 85 68 #: ulanguages.slang_be 86 #: languages.slang_be 87 msgctxt "languages.slang_be" 69 88 msgid "Belarusian" 70 89 msgstr "" 71 90 72 #: ulanguages.slang_bg 91 #: languages.slang_bg 92 #, fuzzy 93 msgctxt "languages.slang_bg" 73 94 msgid "Bulgarian" 74 95 msgstr "MaÄarÅ¡tina" 75 96 76 #: ulanguages.slang_bh 97 #: languages.slang_bh 98 msgctxt "languages.slang_bh" 77 99 msgid "Bihari" 78 100 msgstr "" 79 101 80 #: ulanguages.slang_bi 102 #: languages.slang_bi 103 msgctxt "languages.slang_bi" 81 104 msgid "Bislama" 82 105 msgstr "" 83 106 84 #: ulanguages.slang_bm 107 #: languages.slang_bm 108 msgctxt "languages.slang_bm" 85 109 msgid "Bambara" 86 110 msgstr "" 87 111 88 #: ulanguages.slang_bn 112 #: languages.slang_bn 113 msgctxt "languages.slang_bn" 89 114 msgid "Bengali" 90 115 msgstr "" 91 116 92 #: ulanguages.slang_bo 117 #: languages.slang_bo 118 #, fuzzy 119 msgctxt "languages.slang_bo" 93 120 msgid "Tibetan" 94 121 msgstr "TibetÅ¡tina" 95 122 96 #: ulanguages.slang_br 123 #: languages.slang_br 124 msgctxt "languages.slang_br" 97 125 msgid "Breton" 98 126 msgstr "" 99 127 100 #: ulanguages.slang_bs 128 #: languages.slang_bs 129 msgctxt "languages.slang_bs" 101 130 msgid "Bosnian" 102 131 msgstr "" 103 132 104 #: ulanguages.slang_ca 133 #: languages.slang_ca 134 #, fuzzy 135 msgctxt "languages.slang_ca" 105 136 msgid "Catalan" 106 137 msgstr "KatalánÅ¡tina" 107 138 108 #: ulanguages.slang_ce 139 #: languages.slang_ce 140 msgctxt "languages.slang_ce" 109 141 msgid "Chechen" 110 142 msgstr "" 111 143 112 #: ulanguages.slang_ch 144 #: languages.slang_ch 145 msgctxt "languages.slang_ch" 113 146 msgid "Chamorro" 114 147 msgstr "" 115 148 116 #: ulanguages.slang_co 149 #: languages.slang_co 150 msgctxt "languages.slang_co" 117 151 msgid "Corsican" 118 152 msgstr "" 119 153 120 #: ulanguages.slang_cr 154 #: languages.slang_cr 155 #, fuzzy 156 msgctxt "languages.slang_cr" 121 157 msgid "Cree" 122 158 msgstr "KrÃjÅ¡tina" 123 159 124 #: ulanguages.slang_cs 160 #: languages.slang_cs 161 #, fuzzy 162 msgctxt "languages.slang_cs" 125 163 msgid "Czech" 126 164 msgstr "ÄeÅ¡tina" 127 165 128 #: ulanguages.slang_cv 166 #: languages.slang_cv 167 msgctxt "languages.slang_cv" 129 168 msgid "Chuvash" 130 169 msgstr "" 131 170 132 #: ulanguages.slang_cy 171 #: languages.slang_cy 172 msgctxt "languages.slang_cy" 133 173 msgid "Welsh" 134 174 msgstr "" 135 175 136 #: ulanguages.slang_da 176 #: languages.slang_da 177 #, fuzzy 178 msgctxt "languages.slang_da" 137 179 msgid "Danish" 138 180 msgstr "DánÅ¡tina" 139 181 140 #: ulanguages.slang_de 182 #: languages.slang_de 183 #, fuzzy 184 msgctxt "languages.slang_de" 141 185 msgid "German" 142 186 msgstr "NÄmÄina" 143 187 144 #: ulanguages.slang_de_at 188 #: languages.slang_de_at 189 #, fuzzy 190 msgctxt "languages.slang_de_at" 145 191 msgid "Austrian German" 146 192 msgstr "Australská nÄmÄina" 147 193 148 #: ulanguages.slang_de_ch 194 #: languages.slang_de_ch 195 #, fuzzy 196 msgctxt "languages.slang_de_ch" 149 197 msgid "Swiss German" 150 198 msgstr "Å védská nÄmÄina" 151 199 152 #: ulanguages.slang_dv 200 #: languages.slang_dv 201 msgctxt "languages.slang_dv" 153 202 msgid "Divehi" 154 203 msgstr "" 155 204 156 #: ulanguages.slang_dz 205 #: languages.slang_dz 206 msgctxt "languages.slang_dz" 157 207 msgid "Dzongkha" 158 208 msgstr "" 159 209 160 #: ulanguages.slang_ee 210 #: languages.slang_ee 211 msgctxt "languages.slang_ee" 161 212 msgid "Ewe" 162 213 msgstr "" 163 214 164 #: ulanguages.slang_el 215 #: languages.slang_el 216 #, fuzzy 217 msgctxt "languages.slang_el" 165 218 msgid "Greek" 166 219 msgstr "ÅeÄtina" 167 220 168 #: ulanguages.slang_en 221 #: languages.slang_en 222 #, fuzzy 223 msgctxt "languages.slang_en" 169 224 msgid "English" 170 225 msgstr "AngliÄtina" 171 226 172 #: ulanguages.slang_en_au 227 #: languages.slang_en_au 228 #, fuzzy 229 msgctxt "languages.slang_en_au" 173 230 msgid "Australian English" 174 231 msgstr "Australská angliÄtina" 175 232 176 #: ulanguages.slang_en_ca 233 #: languages.slang_en_ca 234 #, fuzzy 235 msgctxt "languages.slang_en_ca" 177 236 msgid "Canadian English" 178 237 msgstr "Kanadská angliÄtina" 179 238 180 #: ulanguages.slang_en_gb 239 #: languages.slang_en_gb 240 #, fuzzy 241 msgctxt "languages.slang_en_gb" 181 242 msgid "British English" 182 243 msgstr "Britská angliÄtina" 183 244 184 #: ulanguages.slang_en_us 245 #: languages.slang_en_us 246 #, fuzzy 247 msgctxt "languages.slang_en_us" 185 248 msgid "American English" 186 249 msgstr "Americká angliÄtina" 187 250 188 #: ulanguages.slang_eo 251 #: languages.slang_eo 252 #, fuzzy 253 msgctxt "languages.slang_eo" 189 254 msgid "Esperanto" 190 255 msgstr "Esperanto" 191 256 192 #: ulanguages.slang_es 257 #: languages.slang_es 258 #, fuzzy 259 msgctxt "languages.slang_es" 193 260 msgid "Spanish" 194 261 msgstr "Å panÄlÅ¡tina" 195 262 196 #: ulanguages.slang_et 263 #: languages.slang_et 264 #, fuzzy 265 msgctxt "languages.slang_et" 197 266 msgid "Estonian" 198 267 msgstr "EstonÅ¡tina" 199 268 200 #: ulanguages.slang_eu 269 #: languages.slang_eu 270 msgctxt "languages.slang_eu" 201 271 msgid "Basque" 202 272 msgstr "" 203 273 204 #: ulanguages.slang_fa 274 #: languages.slang_fa 275 #, fuzzy 276 msgctxt "languages.slang_fa" 205 277 msgid "Persian" 206 278 msgstr "PerÅ¡tina" 207 279 208 #: ulanguages.slang_ff 280 #: languages.slang_ff 281 msgctxt "languages.slang_ff" 209 282 msgid "Fulah" 210 283 msgstr "" 211 284 212 #: ulanguages.slang_fi 285 #: languages.slang_fi 286 #, fuzzy 287 msgctxt "languages.slang_fi" 213 288 msgid "Finnish" 214 289 msgstr "FinÅ¡tina" 215 290 216 #: ulanguages.slang_fj 291 #: languages.slang_fj 292 msgctxt "languages.slang_fj" 217 293 msgid "Fijian" 218 294 msgstr "" 219 295 220 #: ulanguages.slang_fo 296 #: languages.slang_fo 297 msgctxt "languages.slang_fo" 221 298 msgid "Faroese" 222 299 msgstr "" 223 300 224 #: ulanguages.slang_fr 301 #: languages.slang_fr 302 #, fuzzy 303 msgctxt "languages.slang_fr" 225 304 msgid "French" 226 305 msgstr "FrancouzÅ¡tina" 227 306 228 #: ulanguages.slang_fr_be229 msgctxt " ulanguages.slang_fr_be"307 #: languages.slang_fr_be 308 msgctxt "languages.slang_fr_be" 230 309 msgid "Walloon" 231 310 msgstr "" 232 311 233 #: ulanguages.slang_fy 312 #: languages.slang_fy 313 msgctxt "languages.slang_fy" 234 314 msgid "Frisian" 235 315 msgstr "" 236 316 237 #: ulanguages.slang_ga 317 #: languages.slang_ga 318 #, fuzzy 319 msgctxt "languages.slang_ga" 238 320 msgid "Irish" 239 321 msgstr "IrÅ¡tina" 240 322 241 #: ulanguages.slang_gd 323 #: languages.slang_gd 324 msgctxt "languages.slang_gd" 242 325 msgid "Gaelic" 243 326 msgstr "" 244 327 245 #: ulanguages.slang_gl 328 #: languages.slang_gl 329 msgctxt "languages.slang_gl" 246 330 msgid "Gallegan" 247 331 msgstr "" 248 332 249 #: ulanguages.slang_gn 333 #: languages.slang_gn 334 msgctxt "languages.slang_gn" 250 335 msgid "Guarani" 251 336 msgstr "" 252 337 253 #: ulanguages.slang_gu 338 #: languages.slang_gu 339 msgctxt "languages.slang_gu" 254 340 msgid "Gujarati" 255 341 msgstr "" 256 342 257 #: ulanguages.slang_gv 343 #: languages.slang_gv 344 msgctxt "languages.slang_gv" 258 345 msgid "Manx" 259 346 msgstr "" 260 347 261 #: ulanguages.slang_ha 348 #: languages.slang_ha 349 msgctxt "languages.slang_ha" 262 350 msgid "Hausa" 263 351 msgstr "" 264 352 265 #: ulanguages.slang_he 353 #: languages.slang_he 354 #, fuzzy 355 msgctxt "languages.slang_he" 266 356 msgid "Hebrew" 267 357 msgstr "HebrejÅ¡tina" 268 358 269 #: ulanguages.slang_hi 359 #: languages.slang_hi 360 msgctxt "languages.slang_hi" 270 361 msgid "Hindi" 271 362 msgstr "" 272 363 273 #: ulanguages.slang_ho 364 #: languages.slang_ho 365 msgctxt "languages.slang_ho" 274 366 msgid "Hiri Motu" 275 367 msgstr "" 276 368 277 #: ulanguages.slang_hr 369 #: languages.slang_hr 370 #, fuzzy 371 msgctxt "languages.slang_hr" 278 372 msgid "Croatian" 279 373 msgstr "ChorvatÅ¡tina" 280 374 281 #: ulanguages.slang_ht 375 #: languages.slang_ht 376 msgctxt "languages.slang_ht" 282 377 msgid "Haitian" 283 378 msgstr "" 284 379 285 #: ulanguages.slang_hu 380 #: languages.slang_hu 381 #, fuzzy 382 msgctxt "languages.slang_hu" 286 383 msgid "Hungarian" 287 384 msgstr "MaÄarÅ¡tina" 288 385 289 #: ulanguages.slang_hy 386 #: languages.slang_hy 387 #, fuzzy 388 msgctxt "languages.slang_hy" 290 389 msgid "Armenian" 291 390 msgstr "ArménÅ¡tina" 292 391 293 #: ulanguages.slang_hz 392 #: languages.slang_hz 393 msgctxt "languages.slang_hz" 294 394 msgid "Herero" 295 395 msgstr "" 296 396 297 #: ulanguages.slang_ia 397 #: languages.slang_ia 398 msgctxt "languages.slang_ia" 298 399 msgid "Interlingua" 299 400 msgstr "" 300 401 301 #: ulanguages.slang_id 402 #: languages.slang_id 403 msgctxt "languages.slang_id" 302 404 msgid "Indonesian" 303 405 msgstr "" 304 406 305 #: ulanguages.slang_ie 407 #: languages.slang_ie 408 msgctxt "languages.slang_ie" 306 409 msgid "Interlingue" 307 410 msgstr "" 308 411 309 #: ulanguages.slang_ig 412 #: languages.slang_ig 413 msgctxt "languages.slang_ig" 310 414 msgid "Igbo" 311 415 msgstr "" 312 416 313 #: ulanguages.slang_ii 417 #: languages.slang_ii 418 msgctxt "languages.slang_ii" 314 419 msgid "Sichuan Yi" 315 420 msgstr "" 316 421 317 #: ulanguages.slang_ik 422 #: languages.slang_ik 423 msgctxt "languages.slang_ik" 318 424 msgid "Inupiaq" 319 425 msgstr "" 320 426 321 #: ulanguages.slang_io 427 #: languages.slang_io 428 msgctxt "languages.slang_io" 322 429 msgid "Ido" 323 430 msgstr "" 324 431 325 #: ulanguages.slang_is 432 #: languages.slang_is 433 #, fuzzy 434 msgctxt "languages.slang_is" 326 435 msgid "Icelandic" 327 436 msgstr "IslandÅ¡tina" 328 437 329 #: ulanguages.slang_it 438 #: languages.slang_it 439 #, fuzzy 440 msgctxt "languages.slang_it" 330 441 msgid "Italian" 331 442 msgstr "ItalÅ¡tina" 332 443 333 #: ulanguages.slang_iu 444 #: languages.slang_iu 445 msgctxt "languages.slang_iu" 334 446 msgid "Inuktitut" 335 447 msgstr "" 336 448 337 #: ulanguages.slang_ja 449 #: languages.slang_ja 450 #, fuzzy 451 msgctxt "languages.slang_ja" 338 452 msgid "Japanese" 339 453 msgstr "JaponÅ¡tina" 340 454 341 #: ulanguages.slang_jv 455 #: languages.slang_jv 456 msgctxt "languages.slang_jv" 342 457 msgid "Javanese" 343 458 msgstr "" 344 459 345 #: ulanguages.slang_ka 460 #: languages.slang_ka 461 #, fuzzy 462 msgctxt "languages.slang_ka" 346 463 msgid "Georgian" 347 464 msgstr "GruzÃnÅ¡tina" 348 465 349 #: ulanguages.slang_kg 466 #: languages.slang_kg 467 #, fuzzy 468 msgctxt "languages.slang_kg" 350 469 msgid "Kongo" 351 470 msgstr "KonÅŸÅ¡tina" 352 471 353 #: ulanguages.slang_ki 472 #: languages.slang_ki 473 msgctxt "languages.slang_ki" 354 474 msgid "Kikuyu" 355 475 msgstr "" 356 476 357 #: ulanguages.slang_kj 477 #: languages.slang_kj 478 msgctxt "languages.slang_kj" 358 479 msgid "Kuanyama" 359 480 msgstr "" 360 481 361 #: ulanguages.slang_kk 482 #: languages.slang_kk 483 msgctxt "languages.slang_kk" 362 484 msgid "Kazakh" 363 485 msgstr "" 364 486 365 #: ulanguages.slang_kl 487 #: languages.slang_kl 488 #, fuzzy 489 msgctxt "languages.slang_kl" 366 490 msgid "Greenlandic" 367 491 msgstr "GrónÅ¡tina" 368 492 369 #: ulanguages.slang_km 493 #: languages.slang_km 494 msgctxt "languages.slang_km" 370 495 msgid "Khmer" 371 496 msgstr "" 372 497 373 #: ulanguages.slang_kn 498 #: languages.slang_kn 499 #, fuzzy 500 msgctxt "languages.slang_kn" 374 501 msgid "Kannada" 375 502 msgstr "KannadÅ¡tina" 376 503 377 #: ulanguages.slang_ko 504 #: languages.slang_ko 505 #, fuzzy 506 msgctxt "languages.slang_ko" 378 507 msgid "Korean" 379 508 msgstr "KorejÅ¡tina" 380 509 381 #: ulanguages.slang_kr 510 #: languages.slang_kr 511 msgctxt "languages.slang_kr" 382 512 msgid "Kanuri" 383 513 msgstr "" 384 514 385 #: ulanguages.slang_ks 515 #: languages.slang_ks 516 msgctxt "languages.slang_ks" 386 517 msgid "Kashmiri" 387 518 msgstr "" 388 519 389 #: ulanguages.slang_ku 520 #: languages.slang_ku 521 msgctxt "languages.slang_ku" 390 522 msgid "Kurdish" 391 523 msgstr "" 392 524 393 #: ulanguages.slang_kv 525 #: languages.slang_kv 526 msgctxt "languages.slang_kv" 394 527 msgid "Komi" 395 528 msgstr "" 396 529 397 #: ulanguages.slang_kw 530 #: languages.slang_kw 531 #, fuzzy 532 msgctxt "languages.slang_kw" 398 533 msgid "Cornish" 399 534 msgstr "KornÅ¡tina" 400 535 401 #: ulanguages.slang_ky 536 #: languages.slang_ky 537 msgctxt "languages.slang_ky" 402 538 msgid "Kirghiz" 403 539 msgstr "" 404 540 405 #: ulanguages.slang_la 541 #: languages.slang_la 542 #, fuzzy 543 msgctxt "languages.slang_la" 406 544 msgid "Latin" 407 545 msgstr "Latina" 408 546 409 #: ulanguages.slang_lb 547 #: languages.slang_lb 548 #, fuzzy 549 msgctxt "languages.slang_lb" 410 550 msgid "Luxembourgish" 411 551 msgstr "LucemburÅ¡tina" 412 552 413 #: ulanguages.slang_lg 553 #: languages.slang_lg 554 msgctxt "languages.slang_lg" 414 555 msgid "Ganda" 415 556 msgstr "" 416 557 417 #: ulanguages.slang_li 558 #: languages.slang_li 559 msgctxt "languages.slang_li" 418 560 msgid "Limburgan" 419 561 msgstr "" 420 562 421 #: ulanguages.slang_ln 563 #: languages.slang_ln 564 msgctxt "languages.slang_ln" 422 565 msgid "Lingala" 423 566 msgstr "" 424 567 425 #: ulanguages.slang_lo 568 #: languages.slang_lo 569 #, fuzzy 570 msgctxt "languages.slang_lo" 426 571 msgid "Lao" 427 572 msgstr "LaoÅ¡tina" 428 573 429 #: ulanguages.slang_lt 574 #: languages.slang_lt 575 #, fuzzy 576 msgctxt "languages.slang_lt" 430 577 msgid "Lithuanian" 431 578 msgstr "LitevÅ¡tina" 432 579 433 #: ulanguages.slang_lu 580 #: languages.slang_lu 581 msgctxt "languages.slang_lu" 434 582 msgid "Luba-Katanga" 435 583 msgstr "" 436 584 437 #: ulanguages.slang_lv 585 #: languages.slang_lv 586 #, fuzzy 587 msgctxt "languages.slang_lv" 438 588 msgid "Latvian" 439 589 msgstr "LotyÅ¡tina" 440 590 441 #: ulanguages.slang_mg 591 #: languages.slang_mg 592 msgctxt "languages.slang_mg" 442 593 msgid "Malagasy" 443 594 msgstr "" 444 595 445 #: ulanguages.slang_mh 596 #: languages.slang_mh 597 msgctxt "languages.slang_mh" 446 598 msgid "Marshallese" 447 599 msgstr "" 448 600 449 #: ulanguages.slang_mi 601 #: languages.slang_mi 602 msgctxt "languages.slang_mi" 450 603 msgid "Maori" 451 604 msgstr "" 452 605 453 #: ulanguages.slang_mk 606 #: languages.slang_mk 607 #, fuzzy 608 msgctxt "languages.slang_mk" 454 609 msgid "Macedonian" 455 610 msgstr "MakedonÅ¡tina" 456 611 457 #: ulanguages.slang_ml 612 #: languages.slang_ml 613 msgctxt "languages.slang_ml" 458 614 msgid "Malayalam" 459 615 msgstr "" 460 616 461 #: ulanguages.slang_mn 617 #: languages.slang_mn 618 #, fuzzy 619 msgctxt "languages.slang_mn" 462 620 msgid "Mongolian" 463 621 msgstr "MongolÅ¡tina" 464 622 465 #: ulanguages.slang_mo 623 #: languages.slang_mo 624 #, fuzzy 625 msgctxt "languages.slang_mo" 466 626 msgid "Moldavian" 467 627 msgstr "MoldavÅ¡tina" 468 628 469 #: ulanguages.slang_mr 629 #: languages.slang_mr 630 msgctxt "languages.slang_mr" 470 631 msgid "Marathi" 471 632 msgstr "" 472 633 473 #: ulanguages.slang_ms 634 #: languages.slang_ms 635 msgctxt "languages.slang_ms" 474 636 msgid "Malay" 475 637 msgstr "" 476 638 477 #: ulanguages.slang_mt 639 #: languages.slang_mt 640 msgctxt "languages.slang_mt" 478 641 msgid "Maltese" 479 642 msgstr "" 480 643 481 #: ulanguages.slang_my 644 #: languages.slang_my 645 msgctxt "languages.slang_my" 482 646 msgid "Burmese" 483 647 msgstr "" 484 648 485 #: ulanguages.slang_na 649 #: languages.slang_na 650 msgctxt "languages.slang_na" 486 651 msgid "Nauru" 487 652 msgstr "" 488 653 489 #: ulanguages.slang_nb 654 #: languages.slang_nb 655 msgctxt "languages.slang_nb" 490 656 msgid "Norwegian Bokmaal" 491 657 msgstr "" 492 658 493 #: ulanguages.slang_nd 659 #: languages.slang_nd 660 msgctxt "languages.slang_nd" 494 661 msgid "Ndebele, North" 495 662 msgstr "" 496 663 497 #: ulanguages.slang_ne 664 #: languages.slang_ne 665 msgctxt "languages.slang_ne" 498 666 msgid "Nepali" 499 667 msgstr "" 500 668 501 #: ulanguages.slang_ng 669 #: languages.slang_ng 670 msgctxt "languages.slang_ng" 502 671 msgid "Ndonga" 503 672 msgstr "" 504 673 505 #: ulanguages.slang_nl 674 #: languages.slang_nl 675 #, fuzzy 676 msgctxt "languages.slang_nl" 506 677 msgid "Dutch" 507 678 msgstr "NÄmÄina" 508 679 509 #: ulanguages.slang_nl_be 680 #: languages.slang_nl_be 681 msgctxt "languages.slang_nl_be" 510 682 msgid "Flemish" 511 683 msgstr "" 512 684 513 #: ulanguages.slang_nn 685 #: languages.slang_nn 686 msgctxt "languages.slang_nn" 514 687 msgid "Norwegian Nynorsk" 515 688 msgstr "" 516 689 517 #: ulanguages.slang_no 690 #: languages.slang_no 691 #, fuzzy 692 msgctxt "languages.slang_no" 518 693 msgid "Norwegian" 519 694 msgstr "NorÅ¡tina" 520 695 521 #: ulanguages.slang_nr 696 #: languages.slang_nr 697 msgctxt "languages.slang_nr" 522 698 msgid "Ndebele, South" 523 699 msgstr "" 524 700 525 #: ulanguages.slang_nv 701 #: languages.slang_nv 702 #, fuzzy 703 msgctxt "languages.slang_nv" 526 704 msgid "Navajo" 527 705 msgstr "NavaÅŸÅ¡tina" 528 706 529 #: ulanguages.slang_ny 707 #: languages.slang_ny 708 msgctxt "languages.slang_ny" 530 709 msgid "Chichewa" 531 710 msgstr "" 532 711 533 #: ulanguages.slang_oc 712 #: languages.slang_oc 713 msgctxt "languages.slang_oc" 534 714 msgid "Occitan" 535 715 msgstr "" 536 716 537 #: ulanguages.slang_oj 717 #: languages.slang_oj 718 msgctxt "languages.slang_oj" 538 719 msgid "Ojibwa" 539 720 msgstr "" 540 721 541 #: ulanguages.slang_om 722 #: languages.slang_om 723 msgctxt "languages.slang_om" 542 724 msgid "Oromo" 543 725 msgstr "" 544 726 545 #: ulanguages.slang_or 727 #: languages.slang_or 728 msgctxt "languages.slang_or" 546 729 msgid "Oriya" 547 730 msgstr "" 548 731 549 #: ulanguages.slang_os 732 #: languages.slang_os 733 msgctxt "languages.slang_os" 550 734 msgid "Ossetian" 551 735 msgstr "" 552 736 553 #: ulanguages.slang_pa 737 #: languages.slang_pa 738 msgctxt "languages.slang_pa" 554 739 msgid "Panjabi" 555 740 msgstr "" 556 741 557 #: ulanguages.slang_pi 742 #: languages.slang_pi 743 msgctxt "languages.slang_pi" 558 744 msgid "Pali" 559 745 msgstr "" 560 746 561 #: ulanguages.slang_pl 747 #: languages.slang_pl 748 #, fuzzy 749 msgctxt "languages.slang_pl" 562 750 msgid "Polish" 563 751 msgstr "PolÅ¡tina" 564 752 565 #: ulanguages.slang_ps 753 #: languages.slang_ps 754 msgctxt "languages.slang_ps" 566 755 msgid "Pushto" 567 756 msgstr "" 568 757 569 #: ulanguages.slang_pt 758 #: languages.slang_pt 759 #, fuzzy 760 msgctxt "languages.slang_pt" 570 761 msgid "Portuguese" 571 762 msgstr "PortugalÅ¡tina" 572 763 573 #: ulanguages.slang_pt_br 764 #: languages.slang_pt_br 765 #, fuzzy 766 msgctxt "languages.slang_pt_br" 574 767 msgid "Brazilian Portuguese" 575 768 msgstr "Brazislká portugalÅ¡tina" 576 769 577 #: ulanguages.slang_qu 770 #: languages.slang_qu 771 msgctxt "languages.slang_qu" 578 772 msgid "Quechua" 579 773 msgstr "" 580 774 581 #: ulanguages.slang_rm 775 #: languages.slang_rm 776 msgctxt "languages.slang_rm" 582 777 msgid "Raeto-Romance" 583 778 msgstr "" 584 779 585 #: ulanguages.slang_rn 780 #: languages.slang_rn 781 msgctxt "languages.slang_rn" 586 782 msgid "Rundi" 587 783 msgstr "" 588 784 589 #: ulanguages.slang_ro 785 #: languages.slang_ro 786 #, fuzzy 787 msgctxt "languages.slang_ro" 590 788 msgid "Romanian" 591 789 msgstr "RomÅ¡tina" 592 790 593 #: ulanguages.slang_ru 791 #: languages.slang_ru 792 #, fuzzy 793 msgctxt "languages.slang_ru" 594 794 msgid "Russian" 595 795 msgstr "RuÅ¡tina" 596 796 597 #: ulanguages.slang_rw 797 #: languages.slang_rw 798 msgctxt "languages.slang_rw" 598 799 msgid "Kinyarwanda" 599 800 msgstr "" 600 801 601 #: ulanguages.slang_sa 802 #: languages.slang_sa 803 msgctxt "languages.slang_sa" 602 804 msgid "Sanskrit" 603 805 msgstr "" 604 806 605 #: ulanguages.slang_sc 807 #: languages.slang_sc 808 msgctxt "languages.slang_sc" 606 809 msgid "Sardinian" 607 810 msgstr "" 608 811 609 #: ulanguages.slang_sd 812 #: languages.slang_sd 813 msgctxt "languages.slang_sd" 610 814 msgid "Sindhi" 611 815 msgstr "" 612 816 613 #: ulanguages.slang_se 817 #: languages.slang_se 818 msgctxt "languages.slang_se" 614 819 msgid "Northern Sami" 615 820 msgstr "" 616 821 617 #: ulanguages.slang_sg 822 #: languages.slang_sg 823 msgctxt "languages.slang_sg" 618 824 msgid "Sango" 619 825 msgstr "" 620 826 621 #: ulanguages.slang_si 827 #: languages.slang_si 828 msgctxt "languages.slang_si" 622 829 msgid "Sinhalese" 623 830 msgstr "" 624 831 625 #: ulanguages.slang_sk 832 #: languages.slang_sk 833 #, fuzzy 834 msgctxt "languages.slang_sk" 626 835 msgid "Slovak" 627 836 msgstr "SlovenÅ¡tina" 628 837 629 #: ulanguages.slang_sl 838 #: languages.slang_sl 839 #, fuzzy 840 msgctxt "languages.slang_sl" 630 841 msgid "Slovenian" 631 842 msgstr "SlovinÅ¡tina" 632 843 633 #: ulanguages.slang_sm 844 #: languages.slang_sm 845 msgctxt "languages.slang_sm" 634 846 msgid "Samoan" 635 847 msgstr "" 636 848 637 #: ulanguages.slang_sn 849 #: languages.slang_sn 850 msgctxt "languages.slang_sn" 638 851 msgid "Shona" 639 852 msgstr "" 640 853 641 #: ulanguages.slang_so 854 #: languages.slang_so 855 msgctxt "languages.slang_so" 642 856 msgid "Somali" 643 857 msgstr "" 644 858 645 #: ulanguages.slang_sq 859 #: languages.slang_sq 860 #, fuzzy 861 msgctxt "languages.slang_sq" 646 862 msgid "Albanian" 647 863 msgstr "AlbánÅ¡tina" 648 864 649 #: ulanguages.slang_sr 865 #: languages.slang_sr 866 msgctxt "languages.slang_sr" 650 867 msgid "Serbian" 651 868 msgstr "" 652 869 653 #: ulanguages.slang_ss 870 #: languages.slang_ss 871 msgctxt "languages.slang_ss" 654 872 msgid "Swati" 655 873 msgstr "" 656 874 657 #: ulanguages.slang_st 875 #: languages.slang_st 876 msgctxt "languages.slang_st" 658 877 msgid "Sotho, Southern" 659 878 msgstr "" 660 879 661 #: ulanguages.slang_su 880 #: languages.slang_su 881 #, fuzzy 882 msgctxt "languages.slang_su" 662 883 msgid "Sundanese" 663 884 msgstr "SundÅ¡tina" 664 885 665 #: ulanguages.slang_sv 886 #: languages.slang_sv 887 #, fuzzy 888 msgctxt "languages.slang_sv" 666 889 msgid "Swedish" 667 890 msgstr "Å védÅ¡tina" 668 891 669 #: ulanguages.slang_sw 892 #: languages.slang_sw 893 msgctxt "languages.slang_sw" 670 894 msgid "Swahili" 671 895 msgstr "" 672 896 673 #: ulanguages.slang_ta 897 #: languages.slang_ta 898 msgctxt "languages.slang_ta" 674 899 msgid "Tamil" 675 900 msgstr "" 676 901 677 #: ulanguages.slang_te 902 #: languages.slang_te 903 msgctxt "languages.slang_te" 678 904 msgid "Telugu" 679 905 msgstr "" 680 906 681 #: ulanguages.slang_tg 907 #: languages.slang_tg 908 msgctxt "languages.slang_tg" 682 909 msgid "Tajik" 683 910 msgstr "" 684 911 685 #: ulanguages.slang_th 912 #: languages.slang_th 913 msgctxt "languages.slang_th" 686 914 msgid "Thai" 687 915 msgstr "" 688 916 689 #: ulanguages.slang_ti 917 #: languages.slang_ti 918 msgctxt "languages.slang_ti" 690 919 msgid "Tigrinya" 691 920 msgstr "" 692 921 693 #: ulanguages.slang_tk 922 #: languages.slang_tk 923 msgctxt "languages.slang_tk" 694 924 msgid "Turkmen" 695 925 msgstr "" 696 926 697 #: ulanguages.slang_tl 927 #: languages.slang_tl 928 msgctxt "languages.slang_tl" 698 929 msgid "Tagalog" 699 930 msgstr "" 700 931 701 #: ulanguages.slang_tn 932 #: languages.slang_tn 933 msgctxt "languages.slang_tn" 702 934 msgid "Tswana" 703 935 msgstr "" 704 936 705 #: ulanguages.slang_to 937 #: languages.slang_to 938 msgctxt "languages.slang_to" 706 939 msgid "Tonga" 707 940 msgstr "" 708 941 709 #: ulanguages.slang_tr 942 #: languages.slang_tr 943 #, fuzzy 944 msgctxt "languages.slang_tr" 710 945 msgid "Turkish" 711 946 msgstr "TureÄtina" 712 947 713 #: ulanguages.slang_ts 948 #: languages.slang_ts 949 msgctxt "languages.slang_ts" 714 950 msgid "Tsonga" 715 951 msgstr "" 716 952 717 #: ulanguages.slang_tt 953 #: languages.slang_tt 954 #, fuzzy 955 msgctxt "languages.slang_tt" 718 956 msgid "Tatar" 719 957 msgstr "TatarÅ¡tina" 720 958 721 #: ulanguages.slang_tw 959 #: languages.slang_tw 960 msgctxt "languages.slang_tw" 722 961 msgid "Twi" 723 962 msgstr "" 724 963 725 #: ulanguages.slang_ty 964 #: languages.slang_ty 965 msgctxt "languages.slang_ty" 726 966 msgid "Tahitian" 727 967 msgstr "" 728 968 729 #: ulanguages.slang_ug 969 #: languages.slang_ug 970 msgctxt "languages.slang_ug" 730 971 msgid "Uighur" 731 972 msgstr "" 732 973 733 #: ulanguages.slang_uk 974 #: languages.slang_uk 975 #, fuzzy 976 msgctxt "languages.slang_uk" 734 977 msgid "Ukrainian" 735 978 msgstr "UkrajinÅ¡tina" 736 979 737 #: ulanguages.slang_ur 980 #: languages.slang_ur 981 msgctxt "languages.slang_ur" 738 982 msgid "Urdu" 739 983 msgstr "" 740 984 741 #: ulanguages.slang_uz 985 #: languages.slang_uz 986 msgctxt "languages.slang_uz" 742 987 msgid "Uzbek" 743 988 msgstr "" 744 989 745 #: ulanguages.slang_ve 990 #: languages.slang_ve 991 msgctxt "languages.slang_ve" 746 992 msgid "Venda" 747 993 msgstr "" 748 994 749 #: ulanguages.slang_vi 995 #: languages.slang_vi 996 #, fuzzy 997 msgctxt "languages.slang_vi" 750 998 msgid "Vietnamese" 751 999 msgstr "VietnamÅ¡tina" 752 1000 753 #: ulanguages.slang_vo 1001 #: languages.slang_vo 1002 msgctxt "languages.slang_vo" 754 1003 msgid "Volapuk" 755 1004 msgstr "" 756 1005 757 #: ulanguages.slang_wa758 msgctxt " ulanguages.slang_wa"1006 #: languages.slang_wa 1007 msgctxt "languages.slang_wa" 759 1008 msgid "Walloon" 760 1009 msgstr "" 761 1010 762 #: ulanguages.slang_wo 1011 #: languages.slang_wo 1012 msgctxt "languages.slang_wo" 763 1013 msgid "Wolof" 764 1014 msgstr "" 765 1015 766 #: ulanguages.slang_xh 1016 #: languages.slang_xh 1017 msgctxt "languages.slang_xh" 767 1018 msgid "Xhosa" 768 1019 msgstr "" 769 1020 770 #: ulanguages.slang_yi 1021 #: languages.slang_yi 1022 msgctxt "languages.slang_yi" 771 1023 msgid "Yiddish" 772 1024 msgstr "" 773 1025 774 #: ulanguages.slang_yo 1026 #: languages.slang_yo 1027 msgctxt "languages.slang_yo" 775 1028 msgid "Yoruba" 776 1029 msgstr "" 777 1030 778 #: ulanguages.slang_za 1031 #: languages.slang_za 1032 msgctxt "languages.slang_za" 779 1033 msgid "Zhuang" 780 1034 msgstr "" 781 1035 782 #: ulanguages.slang_zh 1036 #: languages.slang_zh 1037 #, fuzzy 1038 msgctxt "languages.slang_zh" 783 1039 msgid "Chinese" 784 1040 msgstr "ÄÃnÅ¡tina" 785 1041 786 #: ulanguages.slang_zu 1042 #: languages.slang_zu 1043 #, fuzzy 1044 msgctxt "languages.slang_zu" 787 1045 msgid "Zulu" 788 1046 msgstr "ZuluÅ¡tina" -
trunk/Packages/Common/Languages/Languages.pot
r144 r145 2 2 msgstr "Content-Type: text/plain; charset=UTF-8" 3 3 4 #: ulanguages.slangauto4 #: languages.slangauto 5 5 msgid "Automatic" 6 6 msgstr "" 7 7 8 #: ulanguages.slang_aa8 #: languages.slang_aa 9 9 msgid "Afar" 10 10 msgstr "" 11 11 12 #: ulanguages.slang_ab12 #: languages.slang_ab 13 13 msgid "Abkhazian" 14 14 msgstr "" 15 15 16 #: ulanguages.slang_ae16 #: languages.slang_ae 17 17 msgid "Avestan" 18 18 msgstr "" 19 19 20 #: ulanguages.slang_af20 #: languages.slang_af 21 21 msgid "Afrikaans" 22 22 msgstr "" 23 23 24 #: ulanguages.slang_ak24 #: languages.slang_ak 25 25 msgid "Akan" 26 26 msgstr "" 27 27 28 #: ulanguages.slang_am28 #: languages.slang_am 29 29 msgid "Amharic" 30 30 msgstr "" 31 31 32 #: ulanguages.slang_an32 #: languages.slang_an 33 33 msgid "Aragonese" 34 34 msgstr "" 35 35 36 #: ulanguages.slang_ar36 #: languages.slang_ar 37 37 msgid "Arabic" 38 38 msgstr "" 39 39 40 #: ulanguages.slang_as40 #: languages.slang_as 41 41 msgid "Assamese" 42 42 msgstr "" 43 43 44 #: ulanguages.slang_av44 #: languages.slang_av 45 45 msgid "Avaric" 46 46 msgstr "" 47 47 48 #: ulanguages.slang_ay48 #: languages.slang_ay 49 49 msgid "Aymara" 50 50 msgstr "" 51 51 52 #: ulanguages.slang_az52 #: languages.slang_az 53 53 msgid "Azerbaijani" 54 54 msgstr "" 55 55 56 #: ulanguages.slang_ba56 #: languages.slang_ba 57 57 msgid "Bashkir" 58 58 msgstr "" 59 59 60 #: ulanguages.slang_be60 #: languages.slang_be 61 61 msgid "Belarusian" 62 62 msgstr "" 63 63 64 #: ulanguages.slang_bg64 #: languages.slang_bg 65 65 msgid "Bulgarian" 66 66 msgstr "" 67 67 68 #: ulanguages.slang_bh68 #: languages.slang_bh 69 69 msgid "Bihari" 70 70 msgstr "" 71 71 72 #: ulanguages.slang_bi72 #: languages.slang_bi 73 73 msgid "Bislama" 74 74 msgstr "" 75 75 76 #: ulanguages.slang_bm76 #: languages.slang_bm 77 77 msgid "Bambara" 78 78 msgstr "" 79 79 80 #: ulanguages.slang_bn80 #: languages.slang_bn 81 81 msgid "Bengali" 82 82 msgstr "" 83 83 84 #: ulanguages.slang_bo84 #: languages.slang_bo 85 85 msgid "Tibetan" 86 86 msgstr "" 87 87 88 #: ulanguages.slang_br88 #: languages.slang_br 89 89 msgid "Breton" 90 90 msgstr "" 91 91 92 #: ulanguages.slang_bs92 #: languages.slang_bs 93 93 msgid "Bosnian" 94 94 msgstr "" 95 95 96 #: ulanguages.slang_ca96 #: languages.slang_ca 97 97 msgid "Catalan" 98 98 msgstr "" 99 99 100 #: ulanguages.slang_ce100 #: languages.slang_ce 101 101 msgid "Chechen" 102 102 msgstr "" 103 103 104 #: ulanguages.slang_ch104 #: languages.slang_ch 105 105 msgid "Chamorro" 106 106 msgstr "" 107 107 108 #: ulanguages.slang_co108 #: languages.slang_co 109 109 msgid "Corsican" 110 110 msgstr "" 111 111 112 #: ulanguages.slang_cr112 #: languages.slang_cr 113 113 msgid "Cree" 114 114 msgstr "" 115 115 116 #: ulanguages.slang_cs116 #: languages.slang_cs 117 117 msgid "Czech" 118 118 msgstr "" 119 119 120 #: ulanguages.slang_cv120 #: languages.slang_cv 121 121 msgid "Chuvash" 122 122 msgstr "" 123 123 124 #: ulanguages.slang_cy124 #: languages.slang_cy 125 125 msgid "Welsh" 126 126 msgstr "" 127 127 128 #: ulanguages.slang_da128 #: languages.slang_da 129 129 msgid "Danish" 130 130 msgstr "" 131 131 132 #: ulanguages.slang_de132 #: languages.slang_de 133 133 msgid "German" 134 134 msgstr "" 135 135 136 #: ulanguages.slang_de_at136 #: languages.slang_de_at 137 137 msgid "Austrian German" 138 138 msgstr "" 139 139 140 #: ulanguages.slang_de_ch140 #: languages.slang_de_ch 141 141 msgid "Swiss German" 142 142 msgstr "" 143 143 144 #: ulanguages.slang_dv144 #: languages.slang_dv 145 145 msgid "Divehi" 146 146 msgstr "" 147 147 148 #: ulanguages.slang_dz148 #: languages.slang_dz 149 149 msgid "Dzongkha" 150 150 msgstr "" 151 151 152 #: ulanguages.slang_ee152 #: languages.slang_ee 153 153 msgid "Ewe" 154 154 msgstr "" 155 155 156 #: ulanguages.slang_el156 #: languages.slang_el 157 157 msgid "Greek" 158 158 msgstr "" 159 159 160 #: ulanguages.slang_en160 #: languages.slang_en 161 161 msgid "English" 162 162 msgstr "" 163 163 164 #: ulanguages.slang_en_au164 #: languages.slang_en_au 165 165 msgid "Australian English" 166 166 msgstr "" 167 167 168 #: ulanguages.slang_en_ca168 #: languages.slang_en_ca 169 169 msgid "Canadian English" 170 170 msgstr "" 171 171 172 #: ulanguages.slang_en_gb172 #: languages.slang_en_gb 173 173 msgid "British English" 174 174 msgstr "" 175 175 176 #: ulanguages.slang_en_us176 #: languages.slang_en_us 177 177 msgid "American English" 178 178 msgstr "" 179 179 180 #: ulanguages.slang_eo180 #: languages.slang_eo 181 181 msgid "Esperanto" 182 182 msgstr "" 183 183 184 #: ulanguages.slang_es184 #: languages.slang_es 185 185 msgid "Spanish" 186 186 msgstr "" 187 187 188 #: ulanguages.slang_et188 #: languages.slang_et 189 189 msgid "Estonian" 190 190 msgstr "" 191 191 192 #: ulanguages.slang_eu192 #: languages.slang_eu 193 193 msgid "Basque" 194 194 msgstr "" 195 195 196 #: ulanguages.slang_fa196 #: languages.slang_fa 197 197 msgid "Persian" 198 198 msgstr "" 199 199 200 #: ulanguages.slang_ff200 #: languages.slang_ff 201 201 msgid "Fulah" 202 202 msgstr "" 203 203 204 #: ulanguages.slang_fi204 #: languages.slang_fi 205 205 msgid "Finnish" 206 206 msgstr "" 207 207 208 #: ulanguages.slang_fj208 #: languages.slang_fj 209 209 msgid "Fijian" 210 210 msgstr "" 211 211 212 #: ulanguages.slang_fo212 #: languages.slang_fo 213 213 msgid "Faroese" 214 214 msgstr "" 215 215 216 #: ulanguages.slang_fr216 #: languages.slang_fr 217 217 msgid "French" 218 218 msgstr "" 219 219 220 #: ulanguages.slang_fr_be221 msgctxt " ulanguages.slang_fr_be"220 #: languages.slang_fr_be 221 msgctxt "languages.slang_fr_be" 222 222 msgid "Walloon" 223 223 msgstr "" 224 224 225 #: ulanguages.slang_fy225 #: languages.slang_fy 226 226 msgid "Frisian" 227 227 msgstr "" 228 228 229 #: ulanguages.slang_ga229 #: languages.slang_ga 230 230 msgid "Irish" 231 231 msgstr "" 232 232 233 #: ulanguages.slang_gd233 #: languages.slang_gd 234 234 msgid "Gaelic" 235 235 msgstr "" 236 236 237 #: ulanguages.slang_gl237 #: languages.slang_gl 238 238 msgid "Gallegan" 239 239 msgstr "" 240 240 241 #: ulanguages.slang_gn241 #: languages.slang_gn 242 242 msgid "Guarani" 243 243 msgstr "" 244 244 245 #: ulanguages.slang_gu245 #: languages.slang_gu 246 246 msgid "Gujarati" 247 247 msgstr "" 248 248 249 #: ulanguages.slang_gv249 #: languages.slang_gv 250 250 msgid "Manx" 251 251 msgstr "" 252 252 253 #: ulanguages.slang_ha253 #: languages.slang_ha 254 254 msgid "Hausa" 255 255 msgstr "" 256 256 257 #: ulanguages.slang_he257 #: languages.slang_he 258 258 msgid "Hebrew" 259 259 msgstr "" 260 260 261 #: ulanguages.slang_hi261 #: languages.slang_hi 262 262 msgid "Hindi" 263 263 msgstr "" 264 264 265 #: ulanguages.slang_ho265 #: languages.slang_ho 266 266 msgid "Hiri Motu" 267 267 msgstr "" 268 268 269 #: ulanguages.slang_hr269 #: languages.slang_hr 270 270 msgid "Croatian" 271 271 msgstr "" 272 272 273 #: ulanguages.slang_ht273 #: languages.slang_ht 274 274 msgid "Haitian" 275 275 msgstr "" 276 276 277 #: ulanguages.slang_hu277 #: languages.slang_hu 278 278 msgid "Hungarian" 279 279 msgstr "" 280 280 281 #: ulanguages.slang_hy281 #: languages.slang_hy 282 282 msgid "Armenian" 283 283 msgstr "" 284 284 285 #: ulanguages.slang_hz285 #: languages.slang_hz 286 286 msgid "Herero" 287 287 msgstr "" 288 288 289 #: ulanguages.slang_ia289 #: languages.slang_ia 290 290 msgid "Interlingua" 291 291 msgstr "" 292 292 293 #: ulanguages.slang_id293 #: languages.slang_id 294 294 msgid "Indonesian" 295 295 msgstr "" 296 296 297 #: ulanguages.slang_ie297 #: languages.slang_ie 298 298 msgid "Interlingue" 299 299 msgstr "" 300 300 301 #: ulanguages.slang_ig301 #: languages.slang_ig 302 302 msgid "Igbo" 303 303 msgstr "" 304 304 305 #: ulanguages.slang_ii305 #: languages.slang_ii 306 306 msgid "Sichuan Yi" 307 307 msgstr "" 308 308 309 #: ulanguages.slang_ik309 #: languages.slang_ik 310 310 msgid "Inupiaq" 311 311 msgstr "" 312 312 313 #: ulanguages.slang_io313 #: languages.slang_io 314 314 msgid "Ido" 315 315 msgstr "" 316 316 317 #: ulanguages.slang_is317 #: languages.slang_is 318 318 msgid "Icelandic" 319 319 msgstr "" 320 320 321 #: ulanguages.slang_it321 #: languages.slang_it 322 322 msgid "Italian" 323 323 msgstr "" 324 324 325 #: ulanguages.slang_iu325 #: languages.slang_iu 326 326 msgid "Inuktitut" 327 327 msgstr "" 328 328 329 #: ulanguages.slang_ja329 #: languages.slang_ja 330 330 msgid "Japanese" 331 331 msgstr "" 332 332 333 #: ulanguages.slang_jv333 #: languages.slang_jv 334 334 msgid "Javanese" 335 335 msgstr "" 336 336 337 #: ulanguages.slang_ka337 #: languages.slang_ka 338 338 msgid "Georgian" 339 339 msgstr "" 340 340 341 #: ulanguages.slang_kg341 #: languages.slang_kg 342 342 msgid "Kongo" 343 343 msgstr "" 344 344 345 #: ulanguages.slang_ki345 #: languages.slang_ki 346 346 msgid "Kikuyu" 347 347 msgstr "" 348 348 349 #: ulanguages.slang_kj349 #: languages.slang_kj 350 350 msgid "Kuanyama" 351 351 msgstr "" 352 352 353 #: ulanguages.slang_kk353 #: languages.slang_kk 354 354 msgid "Kazakh" 355 355 msgstr "" 356 356 357 #: ulanguages.slang_kl357 #: languages.slang_kl 358 358 msgid "Greenlandic" 359 359 msgstr "" 360 360 361 #: ulanguages.slang_km361 #: languages.slang_km 362 362 msgid "Khmer" 363 363 msgstr "" 364 364 365 #: ulanguages.slang_kn365 #: languages.slang_kn 366 366 msgid "Kannada" 367 367 msgstr "" 368 368 369 #: ulanguages.slang_ko369 #: languages.slang_ko 370 370 msgid "Korean" 371 371 msgstr "" 372 372 373 #: ulanguages.slang_kr373 #: languages.slang_kr 374 374 msgid "Kanuri" 375 375 msgstr "" 376 376 377 #: ulanguages.slang_ks377 #: languages.slang_ks 378 378 msgid "Kashmiri" 379 379 msgstr "" 380 380 381 #: ulanguages.slang_ku381 #: languages.slang_ku 382 382 msgid "Kurdish" 383 383 msgstr "" 384 384 385 #: ulanguages.slang_kv385 #: languages.slang_kv 386 386 msgid "Komi" 387 387 msgstr "" 388 388 389 #: ulanguages.slang_kw389 #: languages.slang_kw 390 390 msgid "Cornish" 391 391 msgstr "" 392 392 393 #: ulanguages.slang_ky393 #: languages.slang_ky 394 394 msgid "Kirghiz" 395 395 msgstr "" 396 396 397 #: ulanguages.slang_la397 #: languages.slang_la 398 398 msgid "Latin" 399 399 msgstr "" 400 400 401 #: ulanguages.slang_lb401 #: languages.slang_lb 402 402 msgid "Luxembourgish" 403 403 msgstr "" 404 404 405 #: ulanguages.slang_lg405 #: languages.slang_lg 406 406 msgid "Ganda" 407 407 msgstr "" 408 408 409 #: ulanguages.slang_li409 #: languages.slang_li 410 410 msgid "Limburgan" 411 411 msgstr "" 412 412 413 #: ulanguages.slang_ln413 #: languages.slang_ln 414 414 msgid "Lingala" 415 415 msgstr "" 416 416 417 #: ulanguages.slang_lo417 #: languages.slang_lo 418 418 msgid "Lao" 419 419 msgstr "" 420 420 421 #: ulanguages.slang_lt421 #: languages.slang_lt 422 422 msgid "Lithuanian" 423 423 msgstr "" 424 424 425 #: ulanguages.slang_lu425 #: languages.slang_lu 426 426 msgid "Luba-Katanga" 427 427 msgstr "" 428 428 429 #: ulanguages.slang_lv429 #: languages.slang_lv 430 430 msgid "Latvian" 431 431 msgstr "" 432 432 433 #: ulanguages.slang_mg433 #: languages.slang_mg 434 434 msgid "Malagasy" 435 435 msgstr "" 436 436 437 #: ulanguages.slang_mh437 #: languages.slang_mh 438 438 msgid "Marshallese" 439 439 msgstr "" 440 440 441 #: ulanguages.slang_mi441 #: languages.slang_mi 442 442 msgid "Maori" 443 443 msgstr "" 444 444 445 #: ulanguages.slang_mk445 #: languages.slang_mk 446 446 msgid "Macedonian" 447 447 msgstr "" 448 448 449 #: ulanguages.slang_ml449 #: languages.slang_ml 450 450 msgid "Malayalam" 451 451 msgstr "" 452 452 453 #: ulanguages.slang_mn453 #: languages.slang_mn 454 454 msgid "Mongolian" 455 455 msgstr "" 456 456 457 #: ulanguages.slang_mo457 #: languages.slang_mo 458 458 msgid "Moldavian" 459 459 msgstr "" 460 460 461 #: ulanguages.slang_mr461 #: languages.slang_mr 462 462 msgid "Marathi" 463 463 msgstr "" 464 464 465 #: ulanguages.slang_ms465 #: languages.slang_ms 466 466 msgid "Malay" 467 467 msgstr "" 468 468 469 #: ulanguages.slang_mt469 #: languages.slang_mt 470 470 msgid "Maltese" 471 471 msgstr "" 472 472 473 #: ulanguages.slang_my473 #: languages.slang_my 474 474 msgid "Burmese" 475 475 msgstr "" 476 476 477 #: ulanguages.slang_na477 #: languages.slang_na 478 478 msgid "Nauru" 479 479 msgstr "" 480 480 481 #: ulanguages.slang_nb481 #: languages.slang_nb 482 482 msgid "Norwegian Bokmaal" 483 483 msgstr "" 484 484 485 #: ulanguages.slang_nd485 #: languages.slang_nd 486 486 msgid "Ndebele, North" 487 487 msgstr "" 488 488 489 #: ulanguages.slang_ne489 #: languages.slang_ne 490 490 msgid "Nepali" 491 491 msgstr "" 492 492 493 #: ulanguages.slang_ng493 #: languages.slang_ng 494 494 msgid "Ndonga" 495 495 msgstr "" 496 496 497 #: ulanguages.slang_nl497 #: languages.slang_nl 498 498 msgid "Dutch" 499 499 msgstr "" 500 500 501 #: ulanguages.slang_nl_be501 #: languages.slang_nl_be 502 502 msgid "Flemish" 503 503 msgstr "" 504 504 505 #: ulanguages.slang_nn505 #: languages.slang_nn 506 506 msgid "Norwegian Nynorsk" 507 507 msgstr "" 508 508 509 #: ulanguages.slang_no509 #: languages.slang_no 510 510 msgid "Norwegian" 511 511 msgstr "" 512 512 513 #: ulanguages.slang_nr513 #: languages.slang_nr 514 514 msgid "Ndebele, South" 515 515 msgstr "" 516 516 517 #: ulanguages.slang_nv517 #: languages.slang_nv 518 518 msgid "Navajo" 519 519 msgstr "" 520 520 521 #: ulanguages.slang_ny521 #: languages.slang_ny 522 522 msgid "Chichewa" 523 523 msgstr "" 524 524 525 #: ulanguages.slang_oc525 #: languages.slang_oc 526 526 msgid "Occitan" 527 527 msgstr "" 528 528 529 #: ulanguages.slang_oj529 #: languages.slang_oj 530 530 msgid "Ojibwa" 531 531 msgstr "" 532 532 533 #: ulanguages.slang_om533 #: languages.slang_om 534 534 msgid "Oromo" 535 535 msgstr "" 536 536 537 #: ulanguages.slang_or537 #: languages.slang_or 538 538 msgid "Oriya" 539 539 msgstr "" 540 540 541 #: ulanguages.slang_os541 #: languages.slang_os 542 542 msgid "Ossetian" 543 543 msgstr "" 544 544 545 #: ulanguages.slang_pa545 #: languages.slang_pa 546 546 msgid "Panjabi" 547 547 msgstr "" 548 548 549 #: ulanguages.slang_pi549 #: languages.slang_pi 550 550 msgid "Pali" 551 551 msgstr "" 552 552 553 #: ulanguages.slang_pl553 #: languages.slang_pl 554 554 msgid "Polish" 555 555 msgstr "" 556 556 557 #: ulanguages.slang_ps557 #: languages.slang_ps 558 558 msgid "Pushto" 559 559 msgstr "" 560 560 561 #: ulanguages.slang_pt561 #: languages.slang_pt 562 562 msgid "Portuguese" 563 563 msgstr "" 564 564 565 #: ulanguages.slang_pt_br565 #: languages.slang_pt_br 566 566 msgid "Brazilian Portuguese" 567 567 msgstr "" 568 568 569 #: ulanguages.slang_qu569 #: languages.slang_qu 570 570 msgid "Quechua" 571 571 msgstr "" 572 572 573 #: ulanguages.slang_rm573 #: languages.slang_rm 574 574 msgid "Raeto-Romance" 575 575 msgstr "" 576 576 577 #: ulanguages.slang_rn577 #: languages.slang_rn 578 578 msgid "Rundi" 579 579 msgstr "" 580 580 581 #: ulanguages.slang_ro581 #: languages.slang_ro 582 582 msgid "Romanian" 583 583 msgstr "" 584 584 585 #: ulanguages.slang_ru585 #: languages.slang_ru 586 586 msgid "Russian" 587 587 msgstr "" 588 588 589 #: ulanguages.slang_rw589 #: languages.slang_rw 590 590 msgid "Kinyarwanda" 591 591 msgstr "" 592 592 593 #: ulanguages.slang_sa593 #: languages.slang_sa 594 594 msgid "Sanskrit" 595 595 msgstr "" 596 596 597 #: ulanguages.slang_sc597 #: languages.slang_sc 598 598 msgid "Sardinian" 599 599 msgstr "" 600 600 601 #: ulanguages.slang_sd601 #: languages.slang_sd 602 602 msgid "Sindhi" 603 603 msgstr "" 604 604 605 #: ulanguages.slang_se605 #: languages.slang_se 606 606 msgid "Northern Sami" 607 607 msgstr "" 608 608 609 #: ulanguages.slang_sg609 #: languages.slang_sg 610 610 msgid "Sango" 611 611 msgstr "" 612 612 613 #: ulanguages.slang_si613 #: languages.slang_si 614 614 msgid "Sinhalese" 615 615 msgstr "" 616 616 617 #: ulanguages.slang_sk617 #: languages.slang_sk 618 618 msgid "Slovak" 619 619 msgstr "" 620 620 621 #: ulanguages.slang_sl621 #: languages.slang_sl 622 622 msgid "Slovenian" 623 623 msgstr "" 624 624 625 #: ulanguages.slang_sm625 #: languages.slang_sm 626 626 msgid "Samoan" 627 627 msgstr "" 628 628 629 #: ulanguages.slang_sn629 #: languages.slang_sn 630 630 msgid "Shona" 631 631 msgstr "" 632 632 633 #: ulanguages.slang_so633 #: languages.slang_so 634 634 msgid "Somali" 635 635 msgstr "" 636 636 637 #: ulanguages.slang_sq637 #: languages.slang_sq 638 638 msgid "Albanian" 639 639 msgstr "" 640 640 641 #: ulanguages.slang_sr641 #: languages.slang_sr 642 642 msgid "Serbian" 643 643 msgstr "" 644 644 645 #: ulanguages.slang_ss645 #: languages.slang_ss 646 646 msgid "Swati" 647 647 msgstr "" 648 648 649 #: ulanguages.slang_st649 #: languages.slang_st 650 650 msgid "Sotho, Southern" 651 651 msgstr "" 652 652 653 #: ulanguages.slang_su653 #: languages.slang_su 654 654 msgid "Sundanese" 655 655 msgstr "" 656 656 657 #: ulanguages.slang_sv657 #: languages.slang_sv 658 658 msgid "Swedish" 659 659 msgstr "" 660 660 661 #: ulanguages.slang_sw661 #: languages.slang_sw 662 662 msgid "Swahili" 663 663 msgstr "" 664 664 665 #: ulanguages.slang_ta665 #: languages.slang_ta 666 666 msgid "Tamil" 667 667 msgstr "" 668 668 669 #: ulanguages.slang_te669 #: languages.slang_te 670 670 msgid "Telugu" 671 671 msgstr "" 672 672 673 #: ulanguages.slang_tg673 #: languages.slang_tg 674 674 msgid "Tajik" 675 675 msgstr "" 676 676 677 #: ulanguages.slang_th677 #: languages.slang_th 678 678 msgid "Thai" 679 679 msgstr "" 680 680 681 #: ulanguages.slang_ti681 #: languages.slang_ti 682 682 msgid "Tigrinya" 683 683 msgstr "" 684 684 685 #: ulanguages.slang_tk685 #: languages.slang_tk 686 686 msgid "Turkmen" 687 687 msgstr "" 688 688 689 #: ulanguages.slang_tl689 #: languages.slang_tl 690 690 msgid "Tagalog" 691 691 msgstr "" 692 692 693 #: ulanguages.slang_tn693 #: languages.slang_tn 694 694 msgid "Tswana" 695 695 msgstr "" 696 696 697 #: ulanguages.slang_to697 #: languages.slang_to 698 698 msgid "Tonga" 699 699 msgstr "" 700 700 701 #: ulanguages.slang_tr701 #: languages.slang_tr 702 702 msgid "Turkish" 703 703 msgstr "" 704 704 705 #: ulanguages.slang_ts705 #: languages.slang_ts 706 706 msgid "Tsonga" 707 707 msgstr "" 708 708 709 #: ulanguages.slang_tt709 #: languages.slang_tt 710 710 msgid "Tatar" 711 711 msgstr "" 712 712 713 #: ulanguages.slang_tw713 #: languages.slang_tw 714 714 msgid "Twi" 715 715 msgstr "" 716 716 717 #: ulanguages.slang_ty717 #: languages.slang_ty 718 718 msgid "Tahitian" 719 719 msgstr "" 720 720 721 #: ulanguages.slang_ug721 #: languages.slang_ug 722 722 msgid "Uighur" 723 723 msgstr "" 724 724 725 #: ulanguages.slang_uk725 #: languages.slang_uk 726 726 msgid "Ukrainian" 727 727 msgstr "" 728 728 729 #: ulanguages.slang_ur729 #: languages.slang_ur 730 730 msgid "Urdu" 731 731 msgstr "" 732 732 733 #: ulanguages.slang_uz733 #: languages.slang_uz 734 734 msgid "Uzbek" 735 735 msgstr "" 736 736 737 #: ulanguages.slang_ve737 #: languages.slang_ve 738 738 msgid "Venda" 739 739 msgstr "" 740 740 741 #: ulanguages.slang_vi741 #: languages.slang_vi 742 742 msgid "Vietnamese" 743 743 msgstr "" 744 744 745 #: ulanguages.slang_vo745 #: languages.slang_vo 746 746 msgid "Volapuk" 747 747 msgstr "" 748 748 749 #: ulanguages.slang_wa750 msgctxt " ulanguages.slang_wa"749 #: languages.slang_wa 750 msgctxt "languages.slang_wa" 751 751 msgid "Walloon" 752 752 msgstr "" 753 753 754 #: ulanguages.slang_wo754 #: languages.slang_wo 755 755 msgid "Wolof" 756 756 msgstr "" 757 757 758 #: ulanguages.slang_xh758 #: languages.slang_xh 759 759 msgid "Xhosa" 760 760 msgstr "" 761 761 762 #: ulanguages.slang_yi762 #: languages.slang_yi 763 763 msgid "Yiddish" 764 764 msgstr "" 765 765 766 #: ulanguages.slang_yo766 #: languages.slang_yo 767 767 msgid "Yoruba" 768 768 msgstr "" 769 769 770 #: ulanguages.slang_za770 #: languages.slang_za 771 771 msgid "Zhuang" 772 772 msgstr "" 773 773 774 #: ulanguages.slang_zh774 #: languages.slang_zh 775 775 msgid "Chinese" 776 776 msgstr "" 777 777 778 #: ulanguages.slang_zu778 #: languages.slang_zu 779 779 msgid "Zulu" 780 780 msgstr "" -
trunk/Packages/Common/Languages/Pool.cs.po
r144 r145 10 10 "Content-Transfer-Encoding: 8bit\n" 11 11 12 #: upool.sobjectpoolempty 12 #: pool.sobjectpoolempty 13 #, fuzzy 14 msgctxt "pool.sobjectpoolempty" 13 15 msgid "Object pool is empty" 14 16 msgstr "ZásobnÃk objektů je prázdnÃœ" 15 17 16 #: upool.sreleaseerror 18 #: pool.sreleaseerror 19 #, fuzzy 20 msgctxt "pool.sreleaseerror" 17 21 msgid "Unknown object for release from pool" 18 22 msgstr "NeznÃœmÃœ objekt pro uvolnÄnà ze zásobnÃku" -
trunk/Packages/Common/Languages/Pool.pot
r144 r145 2 2 msgstr "Content-Type: text/plain; charset=UTF-8" 3 3 4 #: upool.sobjectpoolempty4 #: pool.sobjectpoolempty 5 5 msgid "Object pool is empty" 6 6 msgstr "" 7 7 8 #: upool.sreleaseerror8 #: pool.sreleaseerror 9 9 msgid "Unknown object for release from pool" 10 10 msgstr "" -
trunk/Packages/Common/Languages/ResetableThread.cs.po
r144 r145 10 10 "Content-Transfer-Encoding: 8bit\n" 11 11 12 #: uresetablethread.swaiterror 12 #: resetablethread.swaiterror 13 #, fuzzy 14 msgctxt "resetablethread.swaiterror" 13 15 msgid "WaitFor error" 14 16 msgstr "Chyba WaitFor" -
trunk/Packages/Common/Languages/ResetableThread.pot
r144 r145 2 2 msgstr "Content-Type: text/plain; charset=UTF-8" 3 3 4 #: uresetablethread.swaiterror4 #: resetablethread.swaiterror 5 5 msgid "WaitFor error" 6 6 msgstr "" -
trunk/Packages/Common/Languages/ScaleDPI.cs.po
r144 r145 12 12 "X-Generator: Poedit 1.8.9\n" 13 13 14 #: uscaledpi.swrongdpi 15 #, object-pascal-format 14 #: scaledpi.swrongdpi 15 #, object-pascal-format, fuzzy 16 msgctxt "scaledpi.swrongdpi" 16 17 msgid "Wrong DPI [%d,%d]" 17 18 msgstr "Chybné DPI [%d,%d]" -
trunk/Packages/Common/Languages/ScaleDPI.pot
r144 r145 2 2 msgstr "Content-Type: text/plain; charset=UTF-8" 3 3 4 #: uscaledpi.swrongdpi4 #: scaledpi.swrongdpi 5 5 #, object-pascal-format 6 6 msgid "Wrong DPI [%d,%d]" -
trunk/Packages/Common/Languages/Threading.cs.po
r144 r145 10 10 "Content-Transfer-Encoding: 8bit\n" 11 11 12 #: uthreading.scurrentthreadnotfound 13 #, object-pascal-format 12 #: threading.scurrentthreadnotfound 13 #, object-pascal-format, fuzzy 14 msgctxt "threading.scurrentthreadnotfound" 14 15 msgid "Current thread ID %d not found in virtual thread list." 15 16 msgstr "Aktuálnà vlákno ID %d nenalezeno v seznamu virtuálnÃch vláken." -
trunk/Packages/Common/Languages/Threading.pot
r144 r145 2 2 msgstr "Content-Type: text/plain; charset=UTF-8" 3 3 4 #: uthreading.scurrentthreadnotfound4 #: threading.scurrentthreadnotfound 5 5 #, object-pascal-format 6 6 msgid "Current thread ID %d not found in virtual thread list." -
trunk/Packages/Common/LastOpenedList.pas
r144 r145 1 unit ULastOpenedList;1 unit LastOpenedList; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, Registry, URegistry, Menus, XMLConf, DOM;6 Classes, SysUtils, Registry, RegistryEx, Menus, XMLConf, DOM; 7 7 8 8 type … … 194 194 195 195 end. 196 -
trunk/Packages/Common/ListViewSort.pas
r144 r145 1 unit UListViewSort;1 unit ListViewSort; 2 2 3 3 // Date: 2019-05-17 … … 7 7 uses 8 8 {$IFDEF Windows}Windows, CommCtrl, LMessages, {$ENDIF}Classes, Graphics, ComCtrls, SysUtils, 9 Controls, DateUtils, Dialogs, fgl,Forms, Grids, StdCtrls, ExtCtrls,10 LclIntf, LclType, LResources ;9 Controls, DateUtils, Dialogs, Forms, Grids, StdCtrls, ExtCtrls, 10 LclIntf, LclType, LResources, Generics.Collections, Generics.Defaults; 11 11 12 12 type … … 17 17 TCompareEvent = function (Item1, Item2: TObject): Integer of object; 18 18 TListFilterEvent = procedure (ListViewSort: TListViewSort) of object; 19 20 TObjects = TObjectList<TObject>; 19 21 20 22 { TListViewSort } … … 50 52 {$ENDIF} 51 53 public 52 List: TFPGObjectList<TObject>;53 Source: TFPGObjectList<TObject>;54 Source: TObjects; 55 List: TObjects; 54 56 constructor Create(AOwner: TComponent); override; 55 57 destructor Destroy; override; … … 147 149 destructor TListViewEx.Destroy; 148 150 begin 149 inherited Destroy;151 inherited; 150 152 end; 151 153 … … 336 338 ListViewSortCompare: TCompareEvent; 337 339 338 function ListViewCompare(const Item1, Item2: TObject): Integer;340 function ListViewCompare(constref Item1, Item2: TObject): Integer; 339 341 begin 340 342 Result := ListViewSortCompare(Item1, Item2); … … 347 349 ListViewSortCompare := Compare; 348 350 if (List.Count > 0) then 349 List.Sort( ListViewCompare);351 List.Sort(TComparer<TObject>.Construct(ListViewCompare)); 350 352 end; 351 353 … … 353 355 begin 354 356 if Assigned(FOnFilter) then FOnFilter(Self) 355 else if Assigned(Source) then 356 List.Assign(Source) else 357 else if Assigned(Source) then begin 357 358 List.Clear; 359 List.AddRange(Source); 360 end else List.Clear; 358 361 if ListView.Items.Count <> List.Count then 359 362 ListView.Items.Count := List.Count; … … 410 413 begin 411 414 inherited; 412 List := T FPGObjectList<TObject>.Create;413 List. FreeObjects := False;415 List := TObjects.Create; 416 List.OwnsObjects := False; 414 417 end; 415 418 416 419 destructor TListViewSort.Destroy; 417 420 begin 418 List.Free;421 FreeAndNil(List); 419 422 inherited; 420 423 end; -
trunk/Packages/Common/Memory.pas
r144 r145 1 unit UMemory;1 unit Memory; 2 2 3 3 interface … … 42 42 end; 43 43 44 44 45 implementation 45 46 … … 48 49 procedure TPositionMemory.SetSize(AValue: Integer); 49 50 begin 50 inherited SetSize(AValue);51 inherited; 51 52 if FPosition > FSize then FPosition := FSize; 52 53 end; … … 105 106 begin 106 107 Size := 0; 107 inherited Destroy;108 inherited; 108 109 end; 109 110 … … 119 120 120 121 end. 121 -
trunk/Packages/Common/MetaCanvas.pas
r144 r145 1 unit UMetaCanvas;1 unit MetaCanvas; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, Graphics, Types, fgl;6 Classes, SysUtils, Graphics, Types, Generics.Collections; 7 7 8 8 type … … 17 17 end; 18 18 19 TCanvasObjects = class(T FPGObjectList<TCanvasObject>)19 TCanvasObjects = class(TObjectList<TCanvasObject>) 20 20 end; 21 21 … … 63 63 64 64 TCanvasPolygon = class(TCanvasObject) 65 Pen: TPen; 66 Brush: TBrush; 67 Points: array of TPoint; 68 procedure Paint(Canvas: TCanvas); override; 69 procedure Zoom(Factor: Double); override; 70 procedure Move(Delta: TPoint); override; 71 constructor Create; 72 destructor Destroy; override; 73 end; 74 75 { TCanvasPolyline } 76 77 TCanvasPolyline = class(TCanvasObject) 78 Pen: TPen; 79 Brush: TBrush; 80 Points: array of TPoint; 81 procedure Paint(Canvas: TCanvas); override; 82 procedure Zoom(Factor: Double); override; 83 procedure Move(Delta: TPoint); override; 84 constructor Create; 85 destructor Destroy; override; 86 end; 87 88 { TCanvasPolyBezier } 89 90 TCanvasPolyBezier = class(TCanvasObject) 65 91 Pen: TPen; 66 92 Brush: TBrush; … … 133 159 procedure DoMoveTo(X, Y: Integer); override; 134 160 procedure DoLineTo(X, Y: Integer); override; 161 procedure DoPolyline(const Points: array of TPoint); override; 162 procedure DoPolyBezier(Points: PPoint; NumPts: Integer; 163 Filled: Boolean = False; Continuous: Boolean = False); override; 135 164 public 136 165 Objects: TCanvasObjects; … … 141 170 procedure TextOut(X,Y: Integer; const Text: String); override; 142 171 procedure Polygon(Points: PPoint; NumPts: Integer; Winding: Boolean = False); override; 172 procedure Polyline(Points: PPoint; NumPts: Integer); override; 173 procedure PolyBezier(Points: PPoint; NumPts: Integer; 174 Filled: Boolean = False; Continuous: Boolean = True); override; 143 175 procedure Ellipse(x1, y1, x2, y2: Integer); override; 144 176 procedure StretchDraw(const DestRect: TRect; SrcGraphic: TGraphic); override; … … 159 191 160 192 uses 161 UGeometric, LCLIntf; 193 Geometric, LCLIntf; 194 195 { TCanvasPolyBezier } 196 197 procedure TCanvasPolyBezier.Paint(Canvas: TCanvas); 198 begin 199 Canvas.Pen.Assign(Pen); 200 Canvas.Brush.Assign(Brush); 201 Canvas.PolyBezier(Points); 202 end; 203 204 procedure TCanvasPolyBezier.Zoom(Factor: Double); 205 var 206 I: Integer; 207 begin 208 for I := 0 to High(Points) do 209 Points[I] := Point(Trunc(Points[I].X * Factor), 210 Trunc(Points[I].Y * Factor)); 211 Pen.Width := Trunc(Pen.Width * Factor); 212 end; 213 214 procedure TCanvasPolyBezier.Move(Delta: TPoint); 215 var 216 I: Integer; 217 begin 218 for I := 0 to High(Points) do 219 Points[I] := AddPoint(Points[I], Delta); 220 end; 221 222 constructor TCanvasPolyBezier.Create; 223 begin 224 Pen := TPen.Create; 225 Brush := TBrush.Create; 226 end; 227 228 destructor TCanvasPolyBezier.Destroy; 229 begin 230 FreeAndNil(Brush); 231 FreeAndNil(Pen); 232 inherited; 233 end; 234 235 { TCanvasPolyline } 236 237 procedure TCanvasPolyline.Paint(Canvas: TCanvas); 238 begin 239 Canvas.Pen.Assign(Pen); 240 Canvas.Brush.Assign(Brush); 241 Canvas.Polyline(Points); 242 end; 243 244 procedure TCanvasPolyline.Zoom(Factor: Double); 245 var 246 I: Integer; 247 begin 248 for I := 0 to High(Points) do 249 Points[I] := Point(Trunc(Points[I].X * Factor), 250 Trunc(Points[I].Y * Factor)); 251 Pen.Width := Trunc(Pen.Width * Factor); 252 end; 253 254 procedure TCanvasPolyline.Move(Delta: TPoint); 255 var 256 I: Integer; 257 begin 258 for I := 0 to High(Points) do 259 Points[I] := AddPoint(Points[I], Delta); 260 end; 261 262 constructor TCanvasPolyline.Create; 263 begin 264 Pen := TPen.Create; 265 Brush := TBrush.Create; 266 end; 267 268 destructor TCanvasPolyline.Destroy; 269 begin 270 FreeAndNil(Brush); 271 FreeAndNil(Pen); 272 inherited; 273 end; 162 274 163 275 { TCanvasPie } … … 304 416 destructor TCanvasPolygon.Destroy; 305 417 begin 306 Brush.Free;307 Pen.Free;418 FreeAndNil(Brush); 419 FreeAndNil(Pen); 308 420 inherited; 309 421 end; … … 511 623 APoints[I] := Points[I]; 512 624 DoPolygon(APoints); 625 end; 626 627 procedure TMetaCanvas.Polyline(Points: PPoint; NumPts: Integer); 628 var 629 APoints: array of TPoint; 630 I: Integer; 631 begin 632 APoints := nil; 633 SetLength(APoints, NumPts); 634 for I := 0 to High(APoints) do 635 APoints[I] := Points[I]; 636 DoPolyline(APoints); 637 end; 638 639 procedure TMetaCanvas.PolyBezier(Points: PPoint; NumPts: Integer; 640 Filled: Boolean; Continuous: Boolean); 641 begin 642 DoPolyBezier(Points, NumPts, Filled, Continuous); 513 643 end; 514 644 … … 580 710 end; 581 711 712 procedure TMetaCanvas.DoPolyline(const Points: array of TPoint); 713 var 714 NewObj: TCanvasPolyline; 715 I: Integer; 716 begin 717 NewObj := TCanvasPolyline.Create; 718 NewObj.Brush.Assign(Brush); 719 NewObj.Pen.Assign(Pen); 720 SetLength(NewObj.Points, Length(Points)); 721 for I := 0 to High(Points) do 722 NewObj.Points[I] := Points[I]; 723 Objects.Add(NewObj); 724 end; 725 726 procedure TMetaCanvas.DoPolyBezier(Points: PPoint; NumPts: Integer; 727 Filled: Boolean; Continuous: Boolean); 728 var 729 NewObj: TCanvasPolyBezier; 730 I: Integer; 731 begin 732 NewObj := TCanvasPolyBezier.Create; 733 NewObj.Brush.Assign(Brush); 734 NewObj.Pen.Assign(Pen); 735 SetLength(NewObj.Points, NumPts); 736 for I := 0 to High(NewObj.Points) do 737 NewObj.Points[I] := Points[I]; 738 Objects.Add(NewObj); 739 end; 740 582 741 procedure TMetaCanvas.FillRect(const ARect: TRect); 583 742 begin … … 664 823 665 824 end. 666 -
trunk/Packages/Common/PersistentForm.pas
r144 r145 1 unit UPersistentForm; 2 3 // Date: 2020-11-26 1 unit PersistentForm; 4 2 5 3 interface 6 4 7 5 uses 8 Classes, SysUtils, Forms, URegistry, LCLIntf, Registry, Controls, ComCtrls,6 Classes, SysUtils, Forms, RegistryEx, LCLIntf, Registry, Controls, ComCtrls, 9 7 ExtCtrls, LCLType; 10 8 … … 21 19 procedure SaveControl(Control: TControl); 22 20 public 23 FormNormalSize: TRect;24 21 FormRestoredSize: TRect; 25 22 FormWindowState: TWindowState; … … 155 152 RootKey := RegistryContext.RootKey; 156 153 OpenKey(RegistryContext.Key + '\Forms\' + Form.Name, True); 157 // Normal size 158 FormNormalSize.Left := ReadIntegerWithDefault('NormalLeft', FormNormalSize.Left); 159 FormNormalSize.Top := ReadIntegerWithDefault('NormalTop', FormNormalSize.Top); 160 FormNormalSize.Right := ReadIntegerWithDefault('NormalWidth', FormNormalSize.Right - FormNormalSize.Left) 161 + FormNormalSize.Left; 162 FormNormalSize.Bottom := ReadIntegerWithDefault('NormalHeight', FormNormalSize.Bottom - FormNormalSize.Top) 163 + FormNormalSize.Top; 154 164 155 // Restored size 165 156 FormRestoredSize.Left := ReadIntegerWithDefault('RestoredLeft', FormRestoredSize.Left); … … 169 160 FormRestoredSize.Bottom := ReadIntegerWithDefault('RestoredHeight', FormRestoredSize.Bottom - FormRestoredSize.Top) 170 161 + FormRestoredSize.Top; 162 171 163 // Other state 172 164 FormWindowState := TWindowState(ReadIntegerWithDefault('WindowState', Integer(FormWindowState))); … … 183 175 RootKey := RegistryContext.RootKey; 184 176 OpenKey(RegistryContext.Key + '\Forms\' + Form.Name, True); 185 // Normal state 186 WriteInteger('NormalWidth', FormNormalSize.Right - FormNormalSize.Left); 187 WriteInteger('NormalHeight', FormNormalSize.Bottom - FormNormalSize.Top); 188 WriteInteger('NormalTop', FormNormalSize.Top); 189 WriteInteger('NormalLeft', FormNormalSize.Left); 190 // Restored state 177 178 // Restored size 191 179 WriteInteger('RestoredWidth', FormRestoredSize.Right - FormRestoredSize.Left); 192 180 WriteInteger('RestoredHeight', FormRestoredSize.Bottom - FormRestoredSize.Top); 193 181 WriteInteger('RestoredTop', FormRestoredSize.Top); 194 182 WriteInteger('RestoredLeft', FormRestoredSize.Left); 183 195 184 // Other state 196 185 WriteInteger('WindowState', Integer(FormWindowState)); … … 257 246 begin 258 247 Self.Form := Form; 248 259 249 // Set default 260 FormNormalSize := Bounds((Screen.Width - Form.Width) div 2,261 (Screen.Height - Form.Height) div 2, Form.Width, Form.Height);262 250 FormRestoredSize := Bounds((Screen.Width - Form.Width) div 2, 263 251 (Screen.Height - Form.Height) div 2, Form.Width, Form.Height); … … 267 255 LoadFromRegistry(RegistryContext); 268 256 269 if not EqualRect(FormNormalSize, FormRestoredSize) or 270 DefaultMaximized then begin 257 if (FormWindowState = wsMaximized) or DefaultMaximized then begin 271 258 // Restore to maximized state 272 259 Form.WindowState := wsNormal; … … 277 264 // Restore to normal state 278 265 Form.WindowState := wsNormal; 279 if FEntireVisible then Form NormalSize := CheckEntireVisible(FormNormalSize)266 if FEntireVisible then FormRestoredSize := CheckEntireVisible(FormRestoredSize) 280 267 else if FMinVisiblePart > 0 then 281 FormNormalSize := CheckPartVisible(FormNormalSize, FMinVisiblePart);282 if not EqualRect(Form NormalSize, Form.BoundsRect) then283 Form.BoundsRect := Form NormalSize;268 FormRestoredSize := CheckPartVisible(FormRestoredSize, FMinVisiblePart); 269 if not EqualRect(FormRestoredSize, Form.BoundsRect) then 270 Form.BoundsRect := FormRestoredSize; 284 271 end; 285 272 if FormFullScreen then SetFullScreen(True); … … 290 277 begin 291 278 Self.Form := Form; 292 FormNormalSize := Bounds(Form.Left, Form.Top, Form.Width, Form.Height); 293 if not FormFullScreen then 294 FormRestoredSize := Bounds(Form.RestoredLeft, Form.RestoredTop, Form.RestoredWidth, 295 Form.RestoredHeight); 296 FormWindowState := Form.WindowState; 279 if not FormFullScreen then begin 280 FormWindowState := Form.WindowState; 281 if FormWindowState = wsMaximized then begin 282 FormRestoredSize := Bounds(Form.RestoredLeft, Form.RestoredTop, Form.RestoredWidth, 283 Form.RestoredHeight); 284 end else 285 if FormWindowState = wsNormal then begin 286 FormRestoredSize := Bounds(Form.Left, Form.Top, Form.Width, Form.Height); 287 end; 288 end; 297 289 SaveToRegistry(RegistryContext); 298 290 SaveControl(Form); … … 312 304 if State then begin 313 305 FormFullScreen := True; 314 FormNormalSize := Form.BoundsRect; 315 FormRestoredSize := Bounds(Form.RestoredLeft, Form.RestoredTop, Form.RestoredWidth, 316 Form.RestoredHeight); 306 if Form.WindowState = wsMaximized then begin 307 FormRestoredSize := Bounds(Form.RestoredLeft, Form.RestoredTop, Form.RestoredWidth, 308 Form.RestoredHeight); 309 end else 310 if Form.WindowState = wsNormal then begin 311 FormRestoredSize := Bounds(Form.Left, Form.Top, Form.Width, Form.Height); 312 end; 317 313 FormWindowState := Form.WindowState; 314 Form.WindowState := wsMaximized; 315 Form.WindowState := wsNormal; 318 316 ShowWindow(Form.Handle, SW_SHOWFULLSCREEN); 319 317 {$IFDEF WINDOWS} … … 327 325 ShowWindow(Form.Handle, SW_SHOWNORMAL); 328 326 if FormWindowState = wsNormal then begin 329 Form.BoundsRect := FormNormalSize; 327 Form.WindowState := wsNormal; 328 Form.BoundsRect := FormRestoredSize; 330 329 end else 331 330 if FormWindowState = wsMaximized then begin … … 337 336 338 337 end. 339 -
trunk/Packages/Common/PixelPointer.pas
r144 r145 1 unit UPixelPointer;1 unit PixelPointer; 2 2 3 3 interface … … 15 15 private 16 16 procedure SetRGB(AValue: Cardinal); 17 function GetRGB: Cardinal; 17 function GetRGB: Cardinal; 18 18 public 19 19 property RGB: Cardinal read GetRGB write SetRGB; … … 59 59 function Color32ToColor(Color: TColor32): TColor; 60 60 function ColorToColor32(Color: TColor): TColor32; 61 61 62 62 63 implementation … … 309 310 end; 310 311 311 312 312 end. 313 -
trunk/Packages/Common/Pool.pas
r144 r145 1 unit UPool;1 unit Pool; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, syncobjs, fgl, UThreading;6 Classes, SysUtils, syncobjs, Generics.Collections, Threading; 7 7 8 8 type … … 20 20 function NewItemObject: TObject; virtual; 21 21 public 22 Items: T FPGObjectList<TObject>;23 FreeItems: T FPGObjectList<TObject>;22 Items: TObjectList<TObject>; 23 FreeItems: TObjectList<TObject>; 24 24 function Acquire: TObject; virtual; 25 25 procedure Release(Item: TObject); virtual; … … 106 106 constructor TThreadedPool.Create; 107 107 begin 108 inherited Create;108 inherited; 109 109 Lock := TCriticalSection.Create; 110 110 end; … … 114 114 TotalCount := 0; 115 115 Lock.Free; 116 inherited Destroy;116 inherited; 117 117 end; 118 118 … … 183 183 begin 184 184 inherited; 185 Items := T FPGObjectList<TObject>.Create;186 FreeItems := T FPGObjectList<TObject>.Create;187 FreeItems. FreeObjects := False;185 Items := TObjectList<TObject>.Create; 186 FreeItems := TObjectList<TObject>.Create; 187 FreeItems.OwnsObjects := False; 188 188 FReleaseEvent := TEvent.Create(nil, False, False, ''); 189 189 end; … … 199 199 200 200 end. 201 -
trunk/Packages/Common/PrefixMultiplier.pas
r144 r145 1 unit UPrefixMultiplier;1 unit PrefixMultiplier; 2 2 3 3 // Date: 2010-06-01 … … 31 31 ( 32 32 (ShortText: 'y'; FullText: 'yocto'; Value: 1e-24), 33 33 (ShortText: 'z'; FullText: 'zepto'; Value: 1e-21), 34 34 (ShortText: 'a'; FullText: 'atto'; Value: 1e-18), 35 35 (ShortText: 'f'; FullText: 'femto'; Value: 1e-15), … … 52 52 ( 53 53 (ShortText: 'ys'; FullText: 'yocto'; Value: 1e-24), 54 54 (ShortText: 'zs'; FullText: 'zepto'; Value: 1e-21), 55 55 (ShortText: 'as'; FullText: 'atto'; Value: 1e-18), 56 56 (ShortText: 'fs'; FullText: 'femto'; Value: 1e-15), … … 124 124 125 125 end. 126 -
trunk/Packages/Common/RegistryEx.pas
r144 r145 1 unit URegistry;1 unit RegistryEx; 2 2 3 3 interface … … 46 46 HKEY_CURRENT_CONFIG, HKEY_DYN_DATA); 47 47 48 48 49 implementation 49 50 50 51 51 { TRegistryContext } -
trunk/Packages/Common/ResetableThread.pas
r144 r145 1 unit UResetableThread;1 unit ResetableThread; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, syncobjs, UThreading, UPool;6 Classes, SysUtils, syncobjs, Threading, Pool; 7 7 8 8 type … … 165 165 FreeAndNil(FStopEvent); 166 166 FreeAndNil(FLock); 167 inherited Destroy;167 inherited; 168 168 end; 169 169 … … 284 284 constructor TThreadPool.Create; 285 285 begin 286 inherited Create;286 inherited; 287 287 end; 288 288 … … 291 291 TotalCount := 0; 292 292 WaitForEmpty; 293 inherited Destroy;293 inherited; 294 294 end; 295 295 296 296 end. 297 -
trunk/Packages/Common/ScaleDPI.pas
r144 r145 1 unit UScaleDPI;1 unit ScaleDPI; 2 2 3 3 { See: http://wiki.lazarus.freepascal.org/High_DPI } … … 6 6 7 7 uses 8 Classes, Forms, Graphics, Controls, ComCtrls, LCLType, SysUtils, fgl; 8 Classes, Forms, Graphics, Controls, ComCtrls, LCLType, SysUtils, 9 Generics.Collections; 9 10 10 11 type … … 26 27 end; 27 28 28 TControlDimensions = class(T FPGObjectList<TControlDimension>)29 TControlDimensions = class(TObjectList<TControlDimension>) 29 30 end; 30 31 -
trunk/Packages/Common/StopWatch.pas
r144 r145 5 5 6 6 uses 7 {$IFDEF W indows}Windows,{$ENDIF}7 {$IFDEF WINDOWS}Windows,{$ENDIF} 8 8 SysUtils, DateUtils; 9 9 … … 32 32 end; 33 33 34 34 35 implementation 35 36 … … 40 41 fIsRunning := False; 41 42 42 {$IFDEF W indows}43 {$IFDEF WINDOWS} 43 44 fIsHighResolution := QueryPerformanceFrequency(fFrequency) ; 44 45 {$ELSE} -
trunk/Packages/Common/StringTable.pas
r144 r145 1 unit UStringTable;1 unit StringTable; 2 2 3 3 interface … … 69 69 end; 70 70 71 72 71 end. 73 -
trunk/Packages/Common/SyncCounter.pas
r144 r145 1 unit USyncCounter;1 unit SyncCounter; 2 2 3 3 interface … … 23 23 procedure Assign(Source: TSyncCounter); 24 24 end; 25 25 26 26 27 implementation … … 77 78 78 79 end. 79 -
trunk/Packages/Common/Theme.pas
r144 r145 1 unit UTheme;1 unit Theme; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, Graphics, ComCtrls, Controls, ExtCtrls, Menus, StdCtrls, 7 Spin, Forms, fgl, Grids;7 Spin, Forms, Generics.Collections, Grids; 8 8 9 9 type … … 19 19 { TThemes } 20 20 21 TThemes = class(T FPGObjectList<TTheme>)21 TThemes = class(TObjectList<TTheme>) 22 22 function AddNew(Name: string): TTheme; 23 23 function FindByName(Name: string): TTheme; … … 48 48 49 49 procedure Register; 50 50 51 51 52 implementation … … 185 186 end; 186 187 187 188 188 end. -
trunk/Packages/Common/Threading.pas
r144 r145 1 unit UThreading;1 unit Threading; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, Forms, fgl, SyncObjs;6 Classes, SysUtils, Forms, Generics.Collections, SyncObjs; 7 7 8 8 type 9 9 TExceptionEvent = procedure (Sender: TObject; E: Exception) of object; 10 10 TMethodCall = procedure of object; 11 12 11 13 12 { TVirtualThread } … … 100 99 { TThreadList } 101 100 102 TThreadList = class(T FPGObjectList<TVirtualThread>)101 TThreadList = class(TObjectList<TVirtualThread>) 103 102 function FindById(Id: TThreadID): TVirtualThread; 104 103 constructor Create; virtual; … … 293 292 end; 294 293 FThread.Free; 295 inherited Destroy;294 inherited; 296 295 end; 297 296 … … 359 358 ThreadListLock := TCriticalSection.Create; 360 359 ThreadList := TThreadList.Create; 361 ThreadList. FreeObjects := False;360 ThreadList.OwnsObjects := False; 362 361 363 362 finalization … … 367 366 368 367 end. 369 -
trunk/Packages/Common/Translator.pas
r144 r145 1 unit UTranslator;1 unit Translator; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, Forms, ExtCtrls, Controls, fgl,LazFileUtils, LazUTF8,7 Translations, TypInfo, Dialogs, FileUtil, LCLProc, ULanguages, LCLType,8 LCLVersion ;6 Classes, SysUtils, Forms, ExtCtrls, Controls, LazFileUtils, LazUTF8, 7 Translations, TypInfo, Dialogs, FileUtil, LCLProc, Languages, LCLType, 8 LCLVersion, Generics.Collections; 9 9 10 10 type 11 11 THandleStringEvent = function (AValue: string): string of object; 12 12 13 TPoFiles = class(T FPGObjectList<TPOFile>)13 TPoFiles = class(TObjectList<TPOFile>) 14 14 end; 15 15 … … 25 25 { TComponentExcludesList } 26 26 27 TComponentExcludesList = class(T FPGObjectList<TComponentExcludes>)27 TComponentExcludesList = class(TObjectList<TComponentExcludes>) 28 28 function FindByClassType(AClassType: TClass): TComponentExcludes; 29 29 procedure DumpToStrings(Strings: TStrings); … … 288 288 Item := Component.ClassType; 289 289 while Assigned(Item) do begin 290 //ShowMessage(Component.Name + ', ' + Component.ClassName + ', ' + Item.ClassName + ', ' + PropertyName);291 290 Excludes := ComponentExcludes.FindByClassType(Item.ClassType); 292 291 if Assigned(Excludes) then begin … … 570 569 end; 571 570 572 573 571 end. 574 -
trunk/Packages/Common/URI.pas
r144 r145 1 unit U URI;1 unit URI; 2 2 3 3 // Date: 2011-04-04 … … 83 83 end; 84 84 85 85 86 implementation 86 87 … … 181 182 begin 182 183 Items.Free; 183 inherited Destroy;184 inherited; 184 185 end; 185 186 … … 230 231 begin 231 232 Path.Free; 232 inherited Destroy;233 inherited; 233 234 end; 234 235 … … 241 242 Fragment := TURI(Source).Fragment; 242 243 Query := TURI(Source).Query; 243 end else inherited Assign(Source);244 end else inherited; 244 245 end; 245 246 … … 289 290 destructor TURL.Destroy; 290 291 begin 291 inherited Destroy;292 inherited; 292 293 end; 293 294 … … 342 343 begin 343 344 Directory.Free; 344 inherited Destroy; 345 end; 346 345 inherited; 346 end; 347 347 348 348 end. 349 -
trunk/Packages/Common/XML.pas
r144 r145 1 unit UXMLUtils;1 unit XML; 2 2 3 3 interface … … 14 14 procedure WriteString(Node: TDOMNode; Name: string; Value: string); 15 15 procedure WriteDateTime(Node: TDOMNode; Name: string; Value: TDateTime); 16 procedure WriteDouble(Node: TDOMNode; Name: string; Value: Double); 16 17 function ReadInteger(Node: TDOMNode; Name: string; DefaultValue: Integer): Integer; 17 18 function ReadInt64(Node: TDOMNode; Name: string; DefaultValue: Int64): Int64; … … 19 20 function ReadString(Node: TDOMNode; Name: string; DefaultValue: string): string; 20 21 function ReadDateTime(Node: TDOMNode; Name: string; DefaultValue: TDateTime): TDateTime; 22 function ReadDouble(Node: TDOMNode; Name: string; DefaultValue: Double): Double; 21 23 procedure ReadXMLFileParser(out Doc: TXMLDocument; FileName: string); 22 24 23 25 24 26 implementation 27 28 function ReadDouble(Node: TDOMNode; Name: string; DefaultValue: Double): Double; 29 var 30 NewNode: TDOMNode; 31 begin 32 Result := DefaultValue; 33 NewNode := Node.FindNode(DOMString(Name)); 34 if Assigned(NewNode) then 35 Result := StrToFloat(string(NewNode.TextContent)); 36 end; 25 37 26 38 procedure ReadXMLFileParser(out Doc: TXMLDocument; FileName: string); … … 200 212 end; 201 213 214 procedure WriteDouble(Node: TDOMNode; Name: string; Value: Double); 215 var 216 NewNode: TDOMNode; 217 begin 218 NewNode := Node.OwnerDocument.CreateElement(DOMString(Name)); 219 NewNode.TextContent := DOMString(FloatToStr(Value)); 220 Node.AppendChild(NewNode); 221 end; 222 202 223 function ReadInteger(Node: TDOMNode; Name: string; DefaultValue: Integer): Integer; 203 224 var … … 252 273 253 274 end. 254 -
trunk/Project.pas
r144 r145 1 unit UProject;1 unit Project; 2 2 3 3 interface -
trunk/Target.pas
r144 r145 1 unit UTarget;1 unit Target; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, StrUtils, Registry, URegistry, fgl, Dialogs,6 Classes, SysUtils, StrUtils, Registry, RegistryEx, fgl, Dialogs, 7 7 FileUtil, Process, Menus, LazFileUtils; 8 8 -
trunk/Target/TargetC.pas
r144 r145 1 unit UTargetC;1 unit TargetC; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UTarget, UBFTarget, Process, Dialogs,6 Classes, SysUtils, FileUtil, Target, BFTarget, Process, Dialogs, 7 7 LazFileUtils; 8 8 -
trunk/Target/TargetCSharp.pas
r144 r145 1 unit UTargetCSharp;1 unit TargetCSharp; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UTarget, UBFTarget, Dialogs;6 Classes, SysUtils, FileUtil, Target, BFTarget, Dialogs; 7 7 8 8 type -
trunk/Target/TargetDelphi.pas
r144 r145 1 unit UTargetDelphi;1 unit TargetDelphi; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UTarget, UBFTarget;6 Classes, SysUtils, Target, BFTarget; 7 7 8 8 type -
trunk/Target/TargetFPC.pas
r144 r145 1 unit UTargetFPC;1 unit TargetFPC; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UTarget, UBFTarget;6 Classes, SysUtils, Target, BFTarget; 7 7 8 8 type -
trunk/Target/TargetInterpretter.pas
r144 r145 1 unit UTargetInterpretter;1 unit TargetInterpretter; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, Dialogs, Forms, UTarget, UBFTarget, Math;6 Classes, SysUtils, Dialogs, Forms, Target, BFTarget, Math; 7 7 8 8 type -
trunk/Target/TargetJava.pas
r144 r145 1 unit UTargetJava;1 unit TargetJava; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UTarget, UBFTarget, Dialogs;6 Classes, SysUtils, FileUtil, Target, BFTarget, Dialogs; 7 7 8 8 type -
trunk/Target/TargetJavascript.pas
r144 r145 1 unit UTargetJavascript;1 unit TargetJavascript; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UTarget, UBFTarget, Dialogs, LazFileUtils,6 Classes, SysUtils, FileUtil, Target, BFTarget, Dialogs, LazFileUtils, 7 7 Process, LCLIntf; 8 8 -
trunk/Target/TargetPHP.pas
r144 r145 1 unit UTargetPHP;1 unit TargetPHP; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UTarget, UBFTarget;6 Classes, SysUtils, Target, BFTarget; 7 7 8 8 type -
trunk/Target/TargetPython.pas
r144 r145 1 unit UTargetPython;1 unit TargetPython; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UTarget, UBFTarget;6 Classes, SysUtils, Target, BFTarget; 7 7 8 8 type
Note:
See TracChangeset
for help on using the changeset viewer.