Changeset 16
- Timestamp:
- Feb 11, 2012, 7:12:30 PM (13 years ago)
- Location:
- trunk
- Files:
-
- 1 added
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Languages/LazFuckIDE.cs.po
r15 r16 13 13 #, fuzzy 14 14 #| msgid "Runtime" 15 msgctxt "tinterpreterform.caption" 15 16 msgid "Interpretter" 16 17 msgstr "BÄh" … … 71 72 msgstr "O programu" 72 73 73 #: tmainform.abreakpointset.caption 74 msgid "Breakpoint set" 75 msgstr "Nastavit bod pÅeruÅ¡enÃ" 76 77 #: tmainform.abreakpointunset.caption 78 msgid "Unset breakpoint" 79 msgstr "ZruÅ¡it bod pÅeruÅ¡enÃ" 74 #: tmainform.abreakpointtoggle.caption 75 msgid "Toggle breakpoint" 76 msgstr "" 80 77 81 78 #: tmainform.acompile.caption … … 86 83 msgid "Exit" 87 84 msgstr "UkonÄit" 85 86 #: tmainform.aformatsource.caption 87 msgid "Format source" 88 msgstr "" 88 89 89 90 #: tmainform.ahelp.caption … … 150 151 151 152 #: tmainform.aviewinterpretter.caption 153 msgctxt "tmainform.aviewinterpretter.caption" 152 154 msgid "Interpretter" 153 155 msgstr "Interpretr" … … 179 181 msgstr "" 180 182 183 #: tmainform.menuitem24.caption 184 msgid "Tools" 185 msgstr "" 186 181 187 #: tmainform.menuitem40.caption 182 188 msgid "Target" -
trunk/Languages/LazFuckIDE.po
r15 r16 3 3 4 4 #: tinterpreterform.caption 5 msgctxt "tinterpreterform.caption" 5 6 msgid "Interpretter" 6 7 msgstr "" … … 61 62 msgstr "" 62 63 63 #: tmainform.abreakpointset.caption 64 msgid "Breakpoint set" 65 msgstr "" 66 67 #: tmainform.abreakpointunset.caption 68 msgid "Unset breakpoint" 64 #: tmainform.abreakpointtoggle.caption 65 msgid "Toggle breakpoint" 69 66 msgstr "" 70 67 … … 75 72 #: tmainform.aexit.caption 76 73 msgid "Exit" 74 msgstr "" 75 76 #: tmainform.aformatsource.caption 77 msgid "Format source" 77 78 msgstr "" 78 79 … … 140 141 141 142 #: tmainform.aviewinterpretter.caption 143 msgctxt "tmainform.aviewinterpretter.caption" 142 144 msgid "Interpretter" 143 145 msgstr "" … … 169 171 msgstr "" 170 172 173 #: tmainform.menuitem24.caption 174 msgid "Tools" 175 msgstr "" 176 171 177 #: tmainform.menuitem40.caption 172 178 msgid "Target" -
trunk/UApplicationInfo.pas
r4 r16 53 53 Name := 'LazFuck'; 54 54 Identification := 1; 55 ReleaseDate := EncodeDate(2012, 2, 9);55 ReleaseDate := EncodeDate(2012, 2, 11); 56 56 MajorVersion := 0; 57 57 MinorVersion := 1; -
trunk/UMainForm.lfm
r15 r16 28 28 OnMouseDown = MemoSourceMouseDown 29 29 ParentFont = False 30 PopupMenu = PopupMenuSource 30 31 ScrollBars = ssAutoBoth 31 32 TabOrder = 0 … … 99 100 Action = AOptions 100 101 end 102 object ToolButton9: TToolButton 103 Left = 172 104 Top = 2 105 Action = ABreakpointToggle 106 end 101 107 end 102 108 object TabControl1: TTabControl … … 519 525 0000000000000000000000000000000000000000000000000000 520 526 } 527 end 528 end 529 object MenuItem24: TMenuItem 530 Caption = 'Tools' 531 object MenuItem25: TMenuItem 532 Action = AFormatSource 521 533 end 522 534 end … … 702 714 Caption = 'Step out' 703 715 end 704 object ABreakpointSet: TAction 705 Caption = 'Breakpoint set' 706 end 707 object ABreakpointUnset: TAction 708 Caption = 'Unset breakpoint' 716 object ABreakpointToggle: TAction 717 Caption = 'Toggle breakpoint' 718 ImageIndex = 12 719 OnExecute = ABreakpointToggleExecute 709 720 end 710 721 object AOptions: TAction … … 712 723 ImageIndex = 2 713 724 OnExecute = AOptionsExecute 725 end 726 object AFormatSource: TAction 727 Caption = 'Format source' 728 OnExecute = AFormatSourceExecute 714 729 end 715 730 end … … 718 733 top = 96 719 734 Bitmap = { 720 4C690 C0000001000000010000000000000000000000000000000000000000000735 4C690D0000001000000010000000000000000000000000000000000000000000 721 736 0000000000000000000000000000000000000000000000000000000000000000 722 737 000000000000000000000000000000000000000000FF000000FF000000FF0000 … … 1102 1117 0000000000000000000000000000000000000000000000000000000000000000 1103 1118 0000000000000000000000000000000000000000000000000000000000000000 1104 0000000000000000000000000000 1119 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 1120 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 1121 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 1122 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 1123 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000A4000000A6000000 1124 A9200000AA7E0000AAB20000AAC80000AAB20000AA7E0000A9200000A6000000 1125 A400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000A4000000A6410A0A 1126 AEC13F3FD5E76060EDF86A6AF3FE6060ECF83E3ED4E70A0AADC10000A6410000 1127 A400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000A3200A0AABC15555 1128 E3F35A5AE2FF5656DEFF5656DEFF5656DEFF5959E1FF5050DEF30909AAC10000 1129 A320FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000009E7E3939CCE64A4A 1130 D2FF4545CDFF4545CDFF4545CDFF4545CDFF4545CDFF4848D0FF3131C3E60000 1131 9E7EFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000009AB24A4AD4F83737 1132 BFFF3737BFFF3131BAFF2727B0FF1C1CA6FF1616A0FF12129CFF2323AEF80000 1133 9AB2FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000095C84848D0FE2E2E 1134 B8FF1D1DADFF1212A5FF1111A4FF1111A4FF1111A4FF1111A4FF1B1BADFE0000 1135 95C8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000008FB23434C3F81414 1136 B2FF1111B1FF1111B1FF1111B1FF1111B1FF1111B1FF1111B1FF1414B0F80000 1137 8FB2FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000897E1818AFE61414 1138 C1FF1111BFFF1111BFFF1111BFFF1111BFFF1111BFFF1111BFFF0A0AA6E60000 1139 897EFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000008420030389C11515 1140 BFF31212CDFF1111CCFF1111CCFF1111CCFF1111CCFF0E0EBCF3020288C10000 1141 8420FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000008100000078410202 1142 7DC10A0AA8E70F0FCAF81111D5FE0F0FCAF80A0AA8E702027DC1000078410000 1143 8100FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000008100000075000000 1144 64200000607E000060B2000060C8000060B20000607E00006420000075000000 1145 8100FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 1146 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 1147 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 1148 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 1149 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 1150 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 1151 FF00FFFFFF00FFFFFF00FFFFFF00 1105 1152 } 1106 1153 end … … 1122 1169 top = 216 1123 1170 end 1171 object PopupMenuSource: TPopupMenu 1172 Images = ImageList1 1173 left = 128 1174 top = 126 1175 object MenuItem23: TMenuItem 1176 Action = ABreakpointToggle 1177 end 1178 end 1124 1179 end -
trunk/UMainForm.lrt
r15 r16 7 7 TMAINFORM.MENUITEM21.CAPTION=New Item21 8 8 TMAINFORM.MENUITEM17.CAPTION=- 9 TMAINFORM.MENUITEM24.CAPTION=Tools 9 10 TMAINFORM.MENUITEM18.CAPTION=View 10 11 TMAINFORM.MENUITEM10.CAPTION=Help … … 27 28 TMAINFORM.AINTERPRETTERRUNTOCURSOR.CAPTION=Run to cursor 28 29 TMAINFORM.AINTERPRETTERSTEPOUT.CAPTION=Step out 29 TMAINFORM.ABREAKPOINTSET.CAPTION=Breakpoint set 30 TMAINFORM.ABREAKPOINTUNSET.CAPTION=Unset breakpoint 30 TMAINFORM.ABREAKPOINTTOGGLE.CAPTION=Toggle breakpoint 31 31 TMAINFORM.AOPTIONS.CAPTION=Options 32 TMAINFORM.AFORMATSOURCE.CAPTION=Format source -
trunk/UMainForm.pas
r15 r16 7 7 uses 8 8 Classes, SysUtils, FileUtil, SynEdit, Forms, Controls, Graphics, Dialogs, 9 Menus, ActnList, StdCtrls, ComCtrls, UBrainFuck, UCoolTranslator, 9 Menus, ActnList, StdCtrls, ComCtrls, UBrainFuck, UCoolTranslator, StrUtils, 10 10 SpecializedList; 11 11 … … 17 17 ACompile: TAction; 18 18 AAbout: TAction; 19 ABreakpoint Set: TAction;20 A BreakpointUnset: TAction;19 ABreakpointToggle: TAction; 20 AFormatSource: TAction; 21 21 AOptions: TAction; 22 22 AInterpretterStepOut: TAction; … … 55 55 MenuItem20: TMenuItem; 56 56 MenuItem22: TMenuItem; 57 MenuItem23: TMenuItem; 58 MenuItem24: TMenuItem; 59 MenuItem25: TMenuItem; 57 60 MenuItem40: TMenuItem; 58 61 MenuItem21: TMenuItem; … … 65 68 MenuItem9: TMenuItem; 66 69 OpenDialog1: TOpenDialog; 70 PopupMenuSource: TPopupMenu; 67 71 SaveDialog1: TSaveDialog; 68 72 StatusBar1: TStatusBar; … … 77 81 ToolButton7: TToolButton; 78 82 ToolButton8: TToolButton; 83 ToolButton9: TToolButton; 84 procedure ABreakpointToggleExecute(Sender: TObject); 79 85 procedure ACompileExecute(Sender: TObject); 80 86 procedure AExitExecute(Sender: TObject); 87 procedure AFormatSourceExecute(Sender: TObject); 81 88 procedure AOptionsExecute(Sender: TObject); 82 89 procedure AProgramPauseExecute(Sender: TObject); … … 230 237 end; 231 238 239 procedure TMainForm.AFormatSourceExecute(Sender: TObject); 240 var 241 Source: string; 242 NewSource: string; 243 Indent: Integer; 244 I: Integer; 245 const 246 IndentText = ' '; 247 begin 248 Source := MemoSource.Text; 249 NewSource := ''; 250 Indent := 0; 251 for I := 1 to Length(Source) do begin 252 if Source[I] = '[' then begin 253 NewSource := NewSource + LineEnding + DupeString(IndentText, Indent) + Source[I] + LineEnding ; 254 Inc(Indent); 255 NewSource := NewSource + DupeString(IndentText, Indent); 256 end 257 else if Source[I] = ']' then begin 258 Dec(Indent); 259 NewSource := NewSource + LineEnding + DupeString(IndentText, Indent) + Source[I] + LineEnding + DupeString(IndentText, Indent); 260 end 261 else if Ord(Source[I]) > $20 then 262 NewSource := NewSource + Source[I]; 263 end; 264 MemoSource.Text := NewSource; 265 end; 266 232 267 procedure TMainForm.AOptionsExecute(Sender: TObject); 233 268 begin … … 245 280 CompiledForm.MemoCompiled.Text := BrainFuckCompiler.Output; 246 281 CompiledForm.Show; 282 end; 283 284 procedure TMainForm.ABreakpointToggleExecute(Sender: TObject); 285 begin 286 //BreakPoints.Add(); 247 287 end; 248 288
Note:
See TracChangeset
for help on using the changeset viewer.