Changeset 48
- Timestamp:
- Jul 12, 2012, 9:15:02 AM (12 years ago)
- Location:
- trunk
- Files:
-
- 6 added
- 14 edited
-
Forms/UFormMain.lfm (modified) (10 diffs)
-
Forms/UFormMain.lrt (modified) (1 diff)
-
Forms/UFormMain.pas (modified) (7 diffs)
-
Forms/UFormSourceCode.lfm (modified) (5 diffs)
-
Forms/UFormTargetCode.lfm (modified) (1 diff)
-
Images/Icons/Targets (added)
-
Images/Icons/Targets/Delphi.png (added)
-
Images/Icons/Targets/GCC.png (added)
-
Images/Icons/Targets/Java.png (added)
-
Images/Icons/Targets/Monitor.png (added)
-
Images/Icons/Targets/PHP.png (added)
-
Languages/LazFuckIDE.cs.po (modified) (1 diff)
-
Languages/LazFuckIDE.po (modified) (1 diff)
-
LazFuckIDE.lpi (modified) (2 diffs)
-
Target/UTarget.pas (modified) (4 diffs)
-
Target/UTargetC.pas (modified) (1 diff)
-
Target/UTargetDelphi.pas (modified) (3 diffs)
-
Target/UTargetInterpretter.pas (modified) (1 diff)
-
Target/UTargetJava.pas (modified) (1 diff)
-
Target/UTargetPHP.pas (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.lfm
r47 r48 1 1 object MainForm: TMainForm 2 Left = 2 132 Left = 236 3 3 Height = 430 4 Top = 984 Top = 144 5 5 Width = 670 6 6 Caption = 'LazFuck' … … 36 36 Top = 0 37 37 Width = 670 38 Images = ImageList 138 Images = ImageListMain 39 39 ParentShowHint = False 40 40 ShowHint = True … … 49 49 Top = 2 50 50 Action = AProjectOpen 51 DropdownMenu = PopupMenuRecentFiles 52 Style = tbsDropDown 51 53 end 52 54 object ToolButton3: TToolButton 53 Left = 4755 Left = 59 54 56 Top = 2 55 57 Action = AProjectSave 56 58 end 57 59 object ToolButton4: TToolButton 58 Left = 7060 Left = 82 59 61 Top = 2 60 62 Action = AProjectClose 61 63 end 62 64 object ToolButton5: TToolButton 63 Left = 1 1665 Left = 128 64 66 Top = 2 65 67 Width = 10 … … 67 69 end 68 70 object ToolButton6: TToolButton 69 Left = 1 4971 Left = 161 70 72 Top = 2 71 73 Action = AProgramRun 72 74 end 73 75 object ToolButton7: TToolButton 74 Left = 1 2676 Left = 138 75 77 Top = 2 76 78 Action = AProgramCompile 77 79 end 78 80 object ToolButton8: TToolButton 79 Left = 9381 Left = 105 80 82 Top = 2 81 83 Action = AOptions 82 84 end 83 85 object ToolButton9: TToolButton 84 Left = 2 1886 Left = 230 85 87 Top = 2 86 88 Action = ABreakpointToggle 87 89 end 88 90 object ToolButton10: TToolButton 89 Left = 1 7291 Left = 184 90 92 Top = 2 91 93 Action = AProgramPause 92 94 end 93 95 object ToolButton11: TToolButton 94 Left = 19596 Left = 207 95 97 Top = 2 96 98 Action = AProgramStop 97 99 end 98 100 object ToolButton12: TToolButton 99 Left = 2 41101 Left = 253 100 102 Top = 2 101 103 Action = AProgramStepOver 102 104 end 103 105 object ToolButton13: TToolButton 104 Left = 2 64106 Left = 276 105 107 Top = 2 106 108 Action = AProgramStepInto 107 109 end 108 110 object ToolButton14: TToolButton 109 Left = 2 87111 Left = 299 110 112 Top = 2 111 113 Action = AProgramStepOut 112 114 end 113 115 object ToolButton15: TToolButton 114 Left = 3 10116 Left = 322 115 117 Top = 2 116 118 Action = AProgramRunToCursor 119 end 120 object ToolButtonTarget: TToolButton 121 Left = 345 122 Top = 2 123 Caption = 'ToolButtonTarget' 124 DropdownMenu = PopupMenuTargets 125 Style = tbsDropDown 117 126 end 118 127 end … … 256 265 end 257 266 object MainMenu1: TMainMenu 258 Images = ImageList 1267 Images = ImageListMain 259 268 left = 216 260 269 top = 136 … … 836 845 object MenuItem28: TMenuItem 837 846 Action = FormSourceCode.AGenerateNumber 838 Bitmap.Data = {839 36040000424D3604000000000000360000002800000010000000100000000100840 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF841 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF842 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF843 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF844 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF845 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF846 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF847 FF000000008B000000B7FFFFFF000000008B000000FF000000FF000000FF0000848 008BFFFFFF00000000B7000000FF000000B7FFFFFF00FFFFFF00FFFFFF00FFFF849 FF000000008B000000B7FFFFFF0000000063000000FF00000063FFFFFF00FFFF850 FF0000000063000000B700000020000000FF00000063FFFFFF00FFFFFF00FFFF851 FF000000008B000000B7FFFFFF00FFFFFF00000000FF000000FF00000020FFFF852 FF00FFFFFF00FFFFFF00FFFFFF00000000FF0000008BFFFFFF00FFFFFF00FFFF853 FF000000008B000000B7FFFFFF00FFFFFF0000000040000000FF000000B7FFFF854 FF00FFFFFF00FFFFFF00FFFFFF00000000FF00000063FFFFFF00FFFFFF00FFFF855 FF000000008B000000B7FFFFFF00FFFFFF00FFFFFF000000008B000000FF0000856 0040FFFFFF00FFFFFF00000000FF00000040FFFFFF00FFFFFF00000000200000857 00B70000008B000000B7FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF0000858 008BFFFFFF00FFFFFF0000000020000000FF00000020FFFFFF00000000200000859 00FF000000FF000000B7FFFFFF00FFFFFF00FFFFFF00FFFFFF000000008B0000860 008BFFFFFF00FFFFFF00FFFFFF00000000FF00000040FFFFFF00FFFFFF000000861 0040000000FF000000B7FFFFFF0000000063000000B7FFFFFF00000000B70000862 0063000000630000008B00000020000000FF00000020FFFFFF00FFFFFF00FFFF863 FF0000000063000000B7FFFFFF00FFFFFF00000000FF000000FF000000B7FFFF864 FF00FFFFFF00000000FF000000FF0000008BFFFFFF00FFFFFF00FFFFFF00FFFF865 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF866 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF867 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF868 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF869 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF870 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF871 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF872 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00873 }874 847 end 875 848 end … … 966 939 end 967 940 object ActionList1: TActionList 968 Images = ImageList 1941 Images = ImageListMain 969 942 left = 216 970 943 top = 240 … … 1104 1077 end 1105 1078 end 1106 object ImageList 1: TImageList1079 object ImageListMain: TImageList 1107 1080 left = 216 1108 1081 top = 72 1109 1082 Bitmap = { 1110 4C691 500000010000000100000000000000000000000000000000000000000001083 4C691A0000001000000010000000000000000000000000000000000000000000 1111 1084 0000000000000000000000000000000000000000000000000000000000000000 1112 1085 000000000000000000000000000000000000000000FF000000FF000000FF0000 … … 1780 1753 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 1781 1754 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 1782 FF00FFFFFF00FFFFFF00FFFFFF00 1755 FF00FFFFFF00FFFFFF00FFFFFF00C08080FFC08080FFC08080FFC08080FFC080 1756 80FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC080 1757 80FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC080 1758 80FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC080 1759 80FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC080 1760 80FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC080 1761 80FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC080 1762 80FFD7D7D7FFD7D7D7FFD7D7D7FFC08080FFC08080FFC08080FFC08080FFC080 1763 80FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC080 1764 80FFD7D7D7FF000000FFD7D7D7FFC08080FFC08080FFC08080FFC08080FFC080 1765 80FFC08080FFC08080FFC08080FFC08080FFD7D7D7FFD7D7D7FFD7D7D7FFC080 1766 80FFD7D7D7FF000000FFD7D7D7FFD7D7D7FFC08080FFC08080FFD7D7D7FFD7D7 1767 D7FFD7D7D7FFC08080FFC08080FFD7D7D7FF000000FF000000FF000000FFD7D7 1768 D7FFD7D7D7FF000000FF000000FF000000FFD7D7D7FFD7D7D7FF000000FF0000 1769 00FF000000FFD7D7D7FFD7D7D7FFD7D7D7FF000000FFD7D7D7FFD7D7D7FF0000 1770 00FFD7D7D7FF000000FFD7D7D7FFD7D7D7FF000000FFD7D7D7FF000000FFD7D7 1771 D7FFD7D7D7FF000000FFD7D7D7FFD7D7D7FF000000FFD7D7D7FFD7D7D7FF0000 1772 00FFD7D7D7FF000000FFD7D7D7FFD7D7D7FF000000FFD7D7D7FF000000FFD7D7 1773 D7FFD7D7D7FF000000FFD7D7D7FFD7D7D7FF000000FFD7D7D7FFD7D7D7FF0000 1774 00FFD7D7D7FF000000FFD7D7D7FFD7D7D7FF000000FFD7D7D7FF000000FFD7D7 1775 D7FFD7D7D7FF000000FFD7D7D7FFD7D7D7FF000000FF000000FF000000FFD7D7 1776 D7FFD7D7D7FF000000FFD7D7D7FFD7D7D7FF000000FFD7D7D7FF000000FF0000 1777 00FF000000FFD7D7D7FFD7D7D7FFD7D7D7FF000000FFD7D7D7FFD7D7D7FFC080 1778 80FFC08080FFD7D7D7FFC08080FFC08080FFD7D7D7FFD7D7D7FF000000FFD7D7 1779 D7FFD7D7D7FFC08080FFC08080FFD7D7D7FF000000FFD7D7D7FFC08080FFC080 1780 80FFC08080FFC08080FFC08080FFC08080FFC08080FFD7D7D7FF000000FFD7D7 1781 D7FFC08080FFC08080FFC08080FFD7D7D7FFD7D7D7FFD7D7D7FFC08080FFC080 1782 80FFC08080FFC08080FFC08080FFC08080FFC08080FFD7D7D7FFD7D7D7FFD7D7 1783 D7FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC080 1784 80FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC080 1785 80FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC080 1786 80FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC08080FFC080 1787 80FFC08080FFC08080FFC08080FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00241C 1788 E21E241CE26E241CE2AF241CE2BF241CE2BF241CE29F241CE25EFFFFFF00FFFF 1789 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002B23E3812C24 1790 E3FF2B23E3FF4C46E8FF8D89F0FF615BEAFF2820E3FF2B23E3FF2D25E3DF3129 1791 E442FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002A22E3BF2A22E3FF2820 1792 E2FF635DEAFFCECCF9FFFFFFFFFFE7E6FCFF7C77EEFF2D26E3FF271FE2FF2A22 1793 E3FF2E27E362FFFFFF00FFFFFF00FFFFFF002C24E3912A22E3FF332BE4FF9995 1794 F1FFF5F4FEFFFBFBFEFFF6F6FEFFF8F8FEFFFCFCFFFFB6B3F5FF433CE6FF241C 1795 E2FF2A22E3FF3028E442FFFFFF00241CE22E2C24E3FF261EE2FF241CE2FF241C 1796 E2FF241CE2FF241CE2FF241CE2FF241CE2FF241CE2FF241CE2FF241CE2FF261E 1797 E2FF251DE2FF2B23E3DFFFFFFF00241CE29F2921E3FF241CE2FFEBEAFCFFFFFF 1798 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF261E 1799 E2FF231BE2FF271FE3FF231BE22E241CE2CF2720E2FF241CE2FF3C35E5FFEFEE 1800 FDFF645FEBFF3D36E5FFEFEFFDFF231BE2FF908CF0FFD4D2F9FF231BE2FF231B 1801 E2FF231BE2FF241CE2FF231BE27E241CE2FF271FE2FF241CE2FF453FE6FFEFEE 1802 FDFF6D68ECFF4841E7FFEFEFFDFF2B23E3FF9793F1FFD6D4FAFF231BE2FF231B 1803 E2FF231BE2FF231BE2FF231BE27E241CE2FF261FE2FF231BE2FF453EE6FFEFEE 1804 FDFF6D68ECFF4841E7FFEFEFFDFF2B23E3FF9793F1FFD6D4FAFF231BE2FF231B 1805 E1FF231BE1FF231BE1FF231BE17E231BE2DF261EE2FF4D68F9FF6981FBFFF3F4 1806 FFFF8598FCFF667EFBFFF3F4FFFF4E6AFAFFA8B5FDFFDDE2FEFF4E6AFAFF4E6A 1807 FAFF4255F3FF231BE1FF231BE17E231BE29F271FE3FF4961F7FFCFD7FEFFFBFB 1808 FFFFE4E8FEFFDCE2FEFFFBFBFFFFD6DDFEFFECF0FEFFFAFAFFFFCDD5FEFF4E6A 1809 FAFF3E4DF1FF261FE1FF231BE12E231BE22E2A22E3FF3B47EFFF5C76FAFF96A7 1810 FCFFA2B1FCFFA3B2FCFF9CACFCFFA5B3FCFFA1B0FCFF9EADFCFF778CFBFF4E6A 1811 FAFF3134E9FF2B23E2DFFFFFFF00FFFFFF002C24E3912A24E5FFE2E6FEFFE6EA 1812 FEFFE5E9FEFFE5E9FEFFE5E9FEFFE5E9FEFFE5E9FEFFE5E9FEFFE8EBFEFF4051 1813 F2FF2820E2FF3730E442FFFFFF00FFFFFF00231BE20E2B23E3CF2C29E5FF4153 1814 F3FF4E6AFAFF4E6AFAFF4E6AFAFF4E6AFAFF4E6AFAFF4D69FAFF3B47EFFF2923 1815 E3FF332BE362FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002D26E2912B23 1816 E2FF3032E7FF3B48EFFF4356F4FF4152F2FF3944EEFF2D2BE5FF2C24E2DF352E 1817 E354FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005049 1818 E726342DE374241CE1BF231BE1BF231BE1BF251DE19F3730E464FFFFFF00FFFF 1819 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 1820 FF00FFC2FFFFC5C2FFFF838183FFA4A1A4FFC5C2FFFFC5C2FFFFA4A1A4FF8381 1821 83FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFC2 1822 FFFFC5C2FFFFA4A1A4FF838183FFFF00FFFFFF00FFFFFF00FFFFFFC2FFFF8381 1823 83FFA4A1A4FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFC2FFFFC5C2 1824 FFFFC5C2FFFFFFC2FFFF838183FF838183FF008183FF008183FF838183FF8381 1825 83FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFC2FFFFC5C2FFFFC5C2 1826 FFFFFFC2FFFFFF00FFFF004041FF008183FF000000FF008183FF000000FFFFC2 1827 FFFFFFC2FFFFFFFFFF00FFFFFF00FFFFFF00FFC2FFFFFFC2FFFFC5C2FFFFFFC2 1828 FFFFFFC2FFFF000000FF004041FF008183FF008183FF008183FF008183FF0040 1829 41FF004041FFFFC2FFFFFFFFFF00FFFFFF00FFC2FFFFC5C2FFFFC5C2FFFFFFC2 1830 FFFF000000FF004041FF008183FF008183FF008183FF008183FF008183FF0081 1831 83FF008183FFFFC2FFFFFFFFFF00FFFFFF00FFC2FFFFC5C2FFFFC5C2FFFFFFC2 1832 FFFF000000FF004041FF008183FF008183FF008183FF000000FF008183FF0081 1833 83FF008183FFFFC2FFFFFFFFFF00FFC2FFFFFFC2FFFFC5C2FFFFC5C2FFFFC5C2 1834 FFFF004041FF008183FF008183FF008183FF008183FFFF00FFFF000000FF0040 1835 41FFC5C2FFFFC5C2FFFFFFC2FFFFFFC2FFFFFFC2FFFFC5C2FFFFC5C2FFFFC5C2 1836 FFFFC5C2FFFFC5C2FFFF008183FF008183FF004041FFFF00FFFFFF00FFFFC5C2 1837 FFFFC5C2FFFFC5C2FFFFFFC2FFFFFFC2FFFFFFC2FFFFC5C2FFFFC5C2FFFFC5C2 1838 FFFFC5C2FFFFC5C2FFFFC5C2FFFFC5C2FFFFC5C2FFFFC5C2FFFFC5C2FFFFC5C2 1839 FFFFC5C2FFFFC5C2FFFFFFC2FFFFFFC2FFFFFFC2FFFFC5C2FFFFC5C2FFFF0000 1840 00FF000000FFC5C2FFFFC5C2FFFF000000FF000000FFC5C2FFFFC5C2FFFF0000 1841 00FF000000FFC5C2FFFFFFC2FFFFFFFFFF00FFC2FFFFC5C2FFFF000000FFC5C2 1842 FFFFC5C2FFFFC5C2FFFF000000FFC5C2FFFFC5C2FFFFC5C2FFFF000000FFC5C2 1843 FFFFC5C2FFFFC5C2FFFFFFC2FFFFFFFFFF00FFC2FFFFC5C2FFFF000000FFC5C2 1844 FFFF000000FFC5C2FFFF000000FFC5C2FFFFC5C2FFFFC5C2FFFF000000FFC5C2 1845 FFFFC5C2FFFFC5C2FFFFFFFFFF00FFFFFF00FFC2FFFFC5C2FFFFC5C2FFFF0000 1846 00FF000000FFC5C2FFFFC5C2FFFF000000FF000000FFC5C2FFFFC5C2FFFF0000 1847 00FF000000FFFFC2FFFFFFFFFF00FFFFFF00FFFFFF00FFC2FFFFC5C2FFFFC5C2 1848 FFFFC5C2FFFFC5C2FFFFC5C2FFFFC5C2FFFFC5C2FFFFC5C2FFFFC5C2FFFFC5C2 1849 FFFFFFC2FFFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFC2FFFFC5C2 1850 FFFFC5C2FFFFC5C2FFFFC5C2FFFFC5C2FFFFC5C2FFFFC5C2FFFFFFC2FFFFFFC2 1851 FFFFFFFFFF00FFFFFF00FFFFFF00E9E2D9FFD3C4B3FFC8B59FFFC8B59FFFC8B5 1852 9FFFC8B59FFFC8B59FFFC8B59FFFC8B59FFFC8B59FFFC8B59FFFC8B59FFFC8B5 1853 9FFFC8B59FFFD3C4B3FFE9E2D9FFD0C1B0FFDEDAD5FFF5F5F5FFF7F7F7FFF7F7 1854 F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF4F4F4FFF7F7F7FFF7F7F7FFF7F7 1855 F7FFF5F5F5FFDEDAD5FFD0C1B0FFBFAC96FFEDEDEDFFFCFCFCFFFDFDFDFFFDFD 1856 FDFFFDFDFDFFFDFDFDFFFCFCFCFFF4F4F4FFC4D9F0FFFAFAFAFFFDFDFDFFFDFD 1857 FDFFFCFCFCFFEDEDEDFFBFAC96FFBAA790FFECECECFFFBFBFBFFFBFBFBFFFBFB 1858 FBFFFBFBFBFFFAFAFAFFF3F3F3FF8CBBEDFF398EECFFF5F5F5FFFBFBFBFFFBFB 1859 FBFFFBFBFBFFECECECFFBAA790FFB5A189FFE9E9E9FFF9F9F9FFF9F9F9FFF9F9 1860 F9FFF9F9F9FFF0F0F0FF89B8EAFF2785EBFFEFEFEFFFBAD1EBFFF5F5F5FFF9F9 1861 F9FFF9F9F9FFE9E9E9FFB5A189FFAF9B82FFE7E7E7FFF6F6F6FFF6F6F6FFF6F6 1862 F6FFF3F3F3FF94BDE8FF1B7FE9FFE7E7E7FF82B4E8FF2784EAFFF3F3F3FFF6F6 1863 F6FFF6F6F6FFE7E7E7FFAF9B82FFA8947CFFE4E4E4FFF3F3F3FFF3F3F3FFF3F3 1864 F3FFF0F0F0FF147BE9FFF0F0F0FF147BE9FF147BE9FFF0F0F0FFF0F0F0FFF3F3 1865 F3FFF3F3F3FFE4E4E4FFA8947CFFA28D75FFE1E1E1FFF0F0F0FFF0F0F0FFF0F0 1866 F0FFECECECFF348AE9FFE1E1E1FF0D76E8FFECECECFFECECECFFE3E3E3FFE6E6 1867 E6FFEEEEEEFFE1E1E1FFA28D75FF9B876DFFDEDEDEFFEDEDEDFFE9E9E9FFDDDD 1868 DDFFDDDDDDFFDEDEDEFF2582E4FF81B0E0FFDEDEDEFFE3E3E3FFA59077FFAE9E 1869 89FFE2E2E2FFDCDCDCFF9B876DFF948165FFDCDCDCFFEAEAEAFFE6E6E6FF947B 1870 5AFF977E5EFF9D8669FF957C5CFF947B5AFF9D8669FFBAAC9BFFE6E6E6FF947B 1871 5AFFAF9E88FFD8D8D8FF948165FF8E7A5EFFD9D9D9FFE7E7E7FFE3E3E3FFE3E3 1872 E3FFCAC2B7FFC9C2B6FFC9C2B6FFC6BDB0FFC7BDB0FFDDDBD8FFD8D8D8FF977F 1873 60FFAF9E89FFD5D5D5FF8E7A5EFF877357FFD6D6D6FFE4E4E4FFE4E4E4FFE0E0 1874 E0FF9B8468FF937A59FF937A5AFF937A59FF9B8468FFE0E0E0FF967E5FFFAE9D 1875 87FFE0E0E0FFD4D4D4FF877357FF816D50FFDBDBDBFFE7E7E7FFDFDFDFFFDCDC 1876 DCFFD9D9D9FFD9D9D9FFD9D9D9FFD9D9D9FFD9D9D9FFD9D9D9FFD9D9D9FFE5E5 1877 E5FFE7E7E7FFDBDBDBFF816D50FF7D6749FFDFDFDFFFE8E8E8FFC7BBABFFB4A0 1878 87FFA68D6FFFA68D6FFFA68D6FFFA68D6FFFA68D6FFFA68D6FFFA68D6FFFEAEA 1879 EAFFECECECFFDFDFDFFF7D6749FF887459FFB5B0AAFFE8E8E8FFE7E7E7FFE7E7 1880 E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7 1881 E7FFEAEAEAFFB5B0AAFF887459FFC6BDB1008F7D65FF735D3EFF735D3EFF735D 1882 3EFF735D3EFF735D3EFF735D3EFF735D3EFF735D3EFF735D3EFF735D3EFF735D 1883 3EFF735D3EFF8F7D65FFC6BDB100FF00FF00FF00FF00FF00FF00FF00FF00FF00 1884 FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 1885 FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 1886 FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 1887 FF00FF00FF00FF00FF00FF00FF00FF00FF00D6B5A5FFD6B5A5FFD6B5A5FFD6B5 1888 A5FFC6ADA5FFC6ADA5FFC6ADA5FFC6ADA5FFC6ADA5FFC6ADA5FFC6ADA5FFC6AD 1889 A5FFC6ADA5FFFF00FF00FF00FF00D6B5A5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 1890 FFFFFFF7F7FFFFF7F7FFFFF7F7FFFFF7F7FFFFF7F7FFFFEFE7FFFFEFE7FFFFEF 1891 E7FFFFEFE7FF634A31FFFF00FF00D6B5A5FFFFFFFFFFD69C84FFD69484FFC694 1892 73FFD68C73FFD68C63FFC68463FFC67B52FFC67342FFC66B42FFC66B42FFD67B 1893 42FFFFEFE7FF634A31FFFF00FF00D6B5A5FFFFFFFFFFC69473FFFFDED6FFFFDE 1894 D6FFFFD6C6FFFFCEB5FFFFCEB5FFFFC6A5FFFFC6A5FFFFB594FFFFB584FFE77B 1895 42FFFFEFE7FF634A31FFFF00FF00D6B5A5FFFFFFFFFFC69473FFFFDED6FFFFEF 1896 E7FFFFEFE7FFFFEFE7FFFFC6A5FFFFC6A5FFFFB594FFFFB594FFF79C73FFE77B 1897 42FFFFEFE7FF634A31FFFF00FF00C6ADA5FFFFF7F7FFC69473FFFFD6C6FFFFD6 1898 C6FFFFCEB5FFFFC6A5FFFFC6A5FFFFB594FFF7A584FFF79C73FFF79C73FFE773 1899 42FFFFEFE7FF634A31FFFF00FF00C6ADA5FFFFF7F7FFC69473FFFFD6C6FFFFEF 1900 E7FFFFEFE7FFFFEFE7FFFFE7D6FFFFDED6FFFFDED6FFFFDED6FFE78C63FFE773 1901 42FFFFE7D6FF634A31FFFF00FF00C6ADA5FFFFF7F7FFC69473FFFFCEB5FFFFC6 1902 A5FFFFC6A5FFFFB594FFF7A584FFF7A584FFF79C73FFE78C63FFE78463FFE773 1903 42FFFFDED6FF634A31FFFF00FF00C6ADA5FFFFF7F7FFC69473FFFFCEB5FFFFEF 1904 E7FFFFE7D6FFFFDED6FFFFDED6FFFFDED6FFFFD6C6FFFFD6C6FFD67B52FFE773 1905 42FFFFDED6FF634A31FFFF00FF00C6ADA5FFFFF7F7FFC69473FFFFC6A5FFF7B5 1906 94FFF7A584FFF79C73FFF79C73FFE78C63FFE78463FFD67B52FFD67352FFE773 1907 42FFFFDED6FF634A31FFFF00FF00C6ADA5FFFFEFE7FFD69484FFE7A584FFF7A5 1908 84FFF79C73FFF79C73FFE78C63FFE78463FFE78452FFE78442FFE77B42FFE784 1909 52FFFFDED6FF634A31FFFF00FF00C6ADA5FFFFEFE7FFFFEFE7FFFFEFE7FFFFEF 1910 E7FFFFEFE7FFFFEFE7FFFFEFE7FFFFE7D6FFFFDED6FFFFDED6FFFFDED6FFFFDE 1911 D6FFFFDED6FF634A31FFFF00FF00FF00FF00634A31FF634A31FF634A31FF634A 1912 31FF634A31FF634A31FF634A31FF634A31FF634A31FF634A31FF634A31FF634A 1913 31FF634A31FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 1914 FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 1915 FF00FF00FF00FF00FF00FF00FF00 1783 1916 } 1784 1917 end … … 1823 1956 top = 296 1824 1957 end 1958 object PopupMenuRecentFiles: TPopupMenu 1959 left = 56 1960 top = 64 1961 end 1962 object PopupMenuTargets: TPopupMenu 1963 Images = ImageListMain 1964 left = 56 1965 top = 119 1966 end 1825 1967 end -
trunk/Forms/UFormMain.lrt
r47 r48 1 1 TMAINFORM.CAPTION=LazFuck 2 TMAINFORM.TOOLBUTTONTARGET.CAPTION=ToolButtonTarget 2 3 TMAINFORM.TABSHEETDEBUG.CAPTION=Debug 3 4 TMAINFORM.TABSHEETSOURCE.CAPTION=Source code -
trunk/Forms/UFormMain.pas
r47 r48 44 44 ActionList1: TActionList; 45 45 CoolTranslator1: TCoolTranslator; 46 ImageList 1: TImageList;46 ImageListMain: TImageList; 47 47 MainMenu1: TMainMenu; 48 48 MenuItem1: TMenuItem; … … 86 86 PanelOutput: TPanel; 87 87 PanelInput: TPanel; 88 PopupMenuTargets: TPopupMenu; 89 PopupMenuRecentFiles: TPopupMenu; 88 90 SaveDialog1: TSaveDialog; 89 91 Splitter1: TSplitter; … … 106 108 ToolButton14: TToolButton; 107 109 ToolButton15: TToolButton; 110 ToolButtonTarget: TToolButton; 108 111 ToolButton2: TToolButton; 109 112 ToolButton3: TToolButton; … … 223 226 I: Integer; 224 227 begin 228 if Sender is TMenuItem then 225 229 with TMenuItem(Sender) do begin 226 230 CurrentTarget := TTarget(Targets[MenuIndex]); … … 252 256 FCurrentTarget.OnChangeState := TargetStateChanged; 253 257 FCurrentTarget.Messages.OnChange := MessagesChanged; 258 UpdateTargetList; 254 259 UpdateInterface; 255 260 end; … … 293 298 begin 294 299 LastOpenedList.LoadToMenuItem(MenuItemOpenRecent, AProjectOpenRecentExecute); 300 LastOpenedList.LoadToMenuItem(PopupMenuRecentFiles.Items, AProjectOpenRecentExecute); 295 301 end; 296 302 … … 378 384 var 379 385 I: Integer; 380 NewMenuItem: TMenuItem; 381 begin 382 MenuItemTarget.Clear; 383 for I := 0 to Targets.Count - 1 do begin 384 NewMenuItem := TMenuItem.Create(MenuItemTarget); 385 NewMenuItem.Caption := TTarget(Targets[I]).Name; 386 NewMenuItem.OnClick := MenuItemTargetClick; 387 if TTarget(Targets[I]) = CurrentTarget then NewMenuItem.Checked := True; 388 MenuItemTarget.Add(NewMenuItem); 386 begin 387 Targets.LoadToMenuItem(MenuItemTarget, MenuItemTargetClick, CurrentTarget); 388 Targets.LoadToMenuItem(PopupMenuTargets.Items, MenuItemTargetClick, CurrentTarget); 389 390 // Update toolbutton 391 I := Targets.IndexOf(CurrentTarget); 392 if I <> -1 then 393 with TTarget(Targets[I]) do begin 394 ToolButtonTarget.ImageIndex := ImageIndex; 395 ToolButtonTarget.Caption := Name; 396 ToolButtonTarget.OnClick := MenuItemTargetClick(); 389 397 end; 390 398 end; -
trunk/Forms/UFormSourceCode.lfm
r47 r48 27 27 end 28 28 object PopupMenuSource: TPopupMenu 29 Images = MainForm.ImageList 129 Images = MainForm.ImageListMain 30 30 left = 128 31 31 top = 112 … … 38 38 object MenuItem21: TMenuItem 39 39 Action = AGenerateNumber 40 end41 object MenuItem29: TMenuItem42 Action = MainForm.AShowTargetPosition43 40 Bitmap.Data = { 44 41 36040000424D3604000000000000360000002800000010000000100000000100 … … 78 75 } 79 76 end 77 object MenuItem29: TMenuItem 78 Action = MainForm.AShowTargetPosition 79 Bitmap.Data = { 80 36040000424D3604000000000000360000002800000010000000100000000100 81 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF 82 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 83 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 84 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 85 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 86 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 87 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 88 FF000000008B000000B7FFFFFF000000008B000000FF000000FF000000FF0000 89 008BFFFFFF00000000B7000000FF000000B7FFFFFF00FFFFFF00FFFFFF00FFFF 90 FF000000008B000000B7FFFFFF0000000063000000FF00000063FFFFFF00FFFF 91 FF0000000063000000B700000020000000FF00000063FFFFFF00FFFFFF00FFFF 92 FF000000008B000000B7FFFFFF00FFFFFF00000000FF000000FF00000020FFFF 93 FF00FFFFFF00FFFFFF00FFFFFF00000000FF0000008BFFFFFF00FFFFFF00FFFF 94 FF000000008B000000B7FFFFFF00FFFFFF0000000040000000FF000000B7FFFF 95 FF00FFFFFF00FFFFFF00FFFFFF00000000FF00000063FFFFFF00FFFFFF00FFFF 96 FF000000008B000000B7FFFFFF00FFFFFF00FFFFFF000000008B000000FF0000 97 0040FFFFFF00FFFFFF00000000FF00000040FFFFFF00FFFFFF00000000200000 98 00B70000008B000000B7FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF0000 99 008BFFFFFF00FFFFFF0000000020000000FF00000020FFFFFF00000000200000 100 00FF000000FF000000B7FFFFFF00FFFFFF00FFFFFF00FFFFFF000000008B0000 101 008BFFFFFF00FFFFFF00FFFFFF00000000FF00000040FFFFFF00FFFFFF000000 102 0040000000FF000000B7FFFFFF0000000063000000B7FFFFFF00000000B70000 103 0063000000630000008B00000020000000FF00000020FFFFFF00FFFFFF00FFFF 104 FF0000000063000000B7FFFFFF00FFFFFF00000000FF000000FF000000B7FFFF 105 FF00FFFFFF00000000FF000000FF0000008BFFFFFF00FFFFFF00FFFFFF00FFFF 106 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 107 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 108 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 109 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 110 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 111 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 112 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 113 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 114 } 115 end 80 116 object MenuItem36: TMenuItem 81 117 Action = AShrinkSource … … 86 122 object MenuItem2: TMenuItem 87 123 Action = ACopyToClipboard 124 Bitmap.Data = { 125 36040000424D3604000000000000360000002800000010000000100000000100 126 2000000000000004000064000000640000000000000000000000000000000000 127 0000000000000000000000000000000000000000000000000000000000000000 128 0000000000000000000000000000000000000000000000000000000000000000 129 00000000000000000000000000000000000000000000840000FF840000FF8400 130 00FF840000FF840000FF840000FF840000FF840000FF840000FF000000000000 131 00000000000000000000000000000000000000000000840000FFFFFFFFFFFFFF 132 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FF000000000000 133 00000000000000000000000000000000000000000000840000FFFFFFFFFF0000 134 00FF000000FF000000FF000000FF000000FFFFFFFFFF840000FF000000000000 135 00FF000000FF000000FF000000FF000000FF000000FF840000FFFFFFFFFFFFFF 136 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FF000000000000 137 00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FFFFFFFFFF0000 138 00FF000000FF000000FF000000FF000000FFFFFFFFFF840000FF000000000000 139 00FFFFFFFFFF000000FF000000FF000000FF000000FF840000FFFFFFFFFFFFFF 140 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FF000000000000 141 00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FFFFFFFFFF0000 142 00FF000000FFFFFFFFFF840000FF840000FF840000FF840000FF000000000000 143 00FFFFFFFFFF000000FF000000FF000000FF000000FF840000FFFFFFFFFFFFFF 144 FFFFFFFFFFFFFFFFFFFF840000FFFFFFFFFF840000FF00000000000000000000 145 00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FFFFFFFFFFFFFF 146 FFFFFFFFFFFFFFFFFFFF840000FF840000FF0000000000000000000000000000 147 00FFFFFFFFFF000000FF000000FFFFFFFFFF000000FF840000FF840000FF8400 148 00FF840000FF840000FF840000FF000000000000000000000000000000000000 149 00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFF000000FF0000 150 0000000000000000000000000000000000000000000000000000000000000000 151 00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF000000000000 152 0000000000000000000000000000000000000000000000000000000000000000 153 00FF000000FF000000FF000000FF000000FF000000FF00000000000000000000 154 0000000000000000000000000000000000000000000000000000000000000000 155 0000000000000000000000000000000000000000000000000000000000000000 156 0000000000000000000000000000000000000000000000000000000000000000 157 0000000000000000000000000000000000000000000000000000000000000000 158 0000000000000000000000000000000000000000000000000000 159 } 88 160 end 89 161 object MenuItem3: TMenuItem 90 162 Action = APasteFromClipboard 163 Bitmap.Data = { 164 36040000424D3604000000000000360000002800000010000000100000000100 165 2000000000000004000064000000640000000000000000000000FF00FF00FF00 166 FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 167 FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 168 FF00FF00FF00FF00FF00FF00FF00FF00FF00840000FF840000FF840000FF8400 169 00FF840000FF840000FF840000FF840000FF840000FF840000FFFF00FF000000 170 00FF000000FF000000FF000000FF000000FF840000FFFFFFFFFFFFFFFFFFFFFF 171 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FF000000FF8484 172 84FF008484FF848484FF008484FF848484FF840000FFFFFFFFFF000000FF0000 173 00FF000000FF000000FF000000FF000000FFFFFFFFFF840000FF000000FF0084 174 84FF848484FF008484FF848484FF008484FF840000FFFFFFFFFFFFFFFFFFFFFF 175 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FF000000FF8484 176 84FF008484FF848484FF008484FF848484FF840000FFFFFFFFFF000000FF0000 177 00FF000000FFFFFFFFFF840000FF840000FF840000FF840000FF000000FF0084 178 84FF848484FF008484FF848484FF008484FF840000FFFFFFFFFFFFFFFFFFFFFF 179 FFFFFFFFFFFFFFFFFFFF840000FFFFFFFFFF840000FFFF00FF00000000FF8484 180 84FF008484FF848484FF008484FF848484FF840000FFFFFFFFFFFFFFFFFFFFFF 181 FFFFFFFFFFFFFFFFFFFF840000FF840000FFFF00FF00FF00FF00000000FF0084 182 84FF848484FF008484FF848484FF008484FF840000FF840000FF840000FF8400 183 00FF840000FF840000FF840000FF000000FFFF00FF00FF00FF00000000FF8484 184 84FF008484FF848484FF008484FF848484FF008484FF848484FF008484FF8484 185 84FF008484FF848484FF008484FF000000FFFF00FF00FF00FF00000000FF0084 186 84FF848484FF000000FF000000FF000000FF000000FF000000FF000000FF0000 187 00FF000000FF848484FF848484FF000000FFFF00FF00FF00FF00000000FF8484 188 84FF848484FF000000FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 189 FF00000000FF848484FF008484FF000000FFFF00FF00FF00FF00000000FF0084 190 84FF848484FF008484FF000000FF00FFFFFF000000FF000000FF00FFFFFF0000 191 00FF848484FF008484FF848484FF000000FFFF00FF00FF00FF00FF00FF000000 192 00FF000000FF000000FF000000FF000000FF00FFFFFF00FFFFFF000000FF0000 193 00FF000000FF000000FF000000FFFF00FF00FF00FF00FF00FF00FF00FF00FF00 194 FF00FF00FF00FF00FF00FF00FF00000000FF000000FF000000FF000000FFFF00 195 FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 196 FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 197 FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 198 } 91 199 end 92 200 object MenuItem6: TMenuItem 93 201 Action = ACutToClipboard 202 Bitmap.Data = { 203 36040000424D3604000000000000360000002800000010000000100000000100 204 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF 205 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 206 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 207 FF00FFFFFF00FFFFFF00800000FF800000FFFFFFFF00FFFFFF00FFFFFF00FFFF 208 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 209 FF00FFFFFF00800000FFFFFFFF00FFFFFF00800000FFFFFFFF00FFFFFF008000 210 00FF800000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 211 FF00FFFFFF00800000FFFFFFFF00FFFFFF00800000FFFFFFFF00800000FFFFFF 212 FF00FFFFFF00800000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 213 FF00FFFFFF00800000FFFFFFFF00FFFFFF00800000FFFFFFFF00800000FFFFFF 214 FF00FFFFFF00800000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 215 FF00FFFFFF00FFFFFF00800000FF800000FF800000FFFFFFFF00800000FFFFFF 216 FF00FFFFFF00800000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 217 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00800000FFFFFFFF00800000FF8000 218 00FF800000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 219 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00800000FF000000FF800000FFFFFF 220 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 221 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FFFFFFFF00FFFF 222 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 223 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FF000000FFFFFF 224 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 225 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FFFFFFFF00000000FFFFFF 226 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 227 FF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00000000FF0000 228 00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 229 FF00FFFFFF00FFFFFF00FFFFFF00000000FFFFFFFF00FFFFFF00FFFFFF000000 230 00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 231 FF00FFFFFF00FFFFFF00FFFFFF00000000FFFFFFFF00FFFFFF00FFFFFF000000 232 00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 233 FF00FFFFFF00FFFFFF00FFFFFF00000000FFFFFFFF00FFFFFF00FFFFFF000000 234 00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 235 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 236 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 237 } 94 238 end 95 239 object MenuItem4: TMenuItem 96 240 Action = AClear 241 Bitmap.Data = { 242 36040000424D3604000000000000360000002800000010000000100000000100 243 2000000000000004000064000000640000000000000000000000000000000000 244 0000000000000000000000000000000000000000000000000000000000000000 245 0000000000000000000000000000000000000000000000000000000000000000 246 0000000000000000000000000000000000000000000000000000000000000000 247 0000000000000000000000000000000000000000000000000000000000000000 248 0000000000000000000000000000000000000000000000000000000000000000 249 00000000000000000000000000003A3AE2FFC0C0C0FF00000000000000000000 250 0000000000003A3AE2FFC0C0C0FF000000000000000000000000000000000000 251 0000000000000000000000000000000000000000000000000000000000000000 252 00003A3AE2FF3A3AE2FF3A3AE2FFC0C0C0FF0000000000000000000000000000 253 000000000000000000003A3AE2FFC0C0C0FF0000000000000000000000000000 254 00003A3AE2FF3A3AE2FF3A3AE2FFC0C0C0FF0000000000000000000000000000 255 0000000000003A3AE2FFC0C0C0FF000000000000000000000000000000000000 256 0000000000003838E0FF3838E0FF3838E0FFC0C0C0FF00000000000000000000 257 00003838E0FF3838E0FFC0C0C0FF000000000000000000000000000000000000 258 000000000000000000003535DDFF3535DDFF3535DDFFC0C0C0FF000000003535 259 DDFF3535DDFFC0C0C0FF00000000000000000000000000000000000000000000 260 00000000000000000000000000003232DAFF3232DAFF3232DAFF3232DAFF3232 261 DAFFC0C0C0FF0000000000000000000000000000000000000000000000000000 262 0000000000000000000000000000000000002F2FD7FF2F2FD7FF2F2FD7FFC0C0 263 C0FF000000000000000000000000000000000000000000000000000000000000 264 00000000000000000000000000002C2CD4FF2C2CD4FF2C2CD4FF2C2CD4FF2C2C 265 D4FFC0C0C0FF0000000000000000000000000000000000000000000000000000 266 000000000000000000002929D1FF2929D1FF2929D1FFC0C0C0FF000000002929 267 D1FFC0C0C0FF0000000000000000000000000000000000000000000000000000 268 00002626CEFF2626CEFF2626CEFF2626CEFFC0C0C0FF00000000000000000000 269 00002626CEFF2626CEFFC0C0C0FF000000000000000000000000000000002020 270 C8FF2020C8FF2020C8FF2020C8FFC0C0C0FF0000000000000000000000000000 271 0000000000002020C8FF2020C8FFC0C0C0FF0000000000000000000000001818 272 C0FF1818C0FFC0C0C0FF00000000000000000000000000000000000000000000 273 000000000000000000001818C0FF1818C0FFC0C0C0FF00000000000000000000 274 0000000000000000000000000000000000000000000000000000000000000000 275 0000000000000000000000000000000000000000000000000000 276 } 97 277 end 98 278 object MenuItem5: TMenuItem … … 101 281 end 102 282 object ActionList1: TActionList 103 Images = MainForm.ImageList 1283 Images = MainForm.ImageListMain 104 284 left = 128 105 285 top = 56 -
trunk/Forms/UFormTargetCode.lfm
r47 r48 20 20 end 21 21 object PopupMenuTarget: TPopupMenu 22 Images = MainForm.ImageList 122 Images = MainForm.ImageListMain 23 23 left = 84 24 24 top = 100 -
trunk/Languages/LazFuckIDE.cs.po
r47 r48 458 458 msgstr "CÃlovÃœ kód" 459 459 460 #: tmainform.toolbuttontarget.caption 461 msgid "ToolButtonTarget" 462 msgstr "" 463 460 464 #: toptionsform.buttoncancel.caption 461 465 msgid "Cancel" -
trunk/Languages/LazFuckIDE.po
r47 r48 447 447 msgstr "" 448 448 449 #: tmainform.toolbuttontarget.caption 450 msgid "ToolButtonTarget" 451 msgstr "" 452 449 453 #: toptionsform.buttoncancel.caption 450 454 msgid "Cancel" -
trunk/LazFuckIDE.lpi
r46 r48 191 191 <IsPartOfProject Value="True"/> 192 192 <ComponentName Value="FormSourceCode"/> 193 <HasResources Value="True"/> 193 194 <ResourceBaseClass Value="Form"/> 194 195 <UnitName Value="UFormSourceCode"/> … … 198 199 <IsPartOfProject Value="True"/> 199 200 <ComponentName Value="FormTargetCode"/> 201 <HasResources Value="True"/> 200 202 <ResourceBaseClass Value="Form"/> 201 203 <UnitName Value="UFormTargetCode"/> -
trunk/Target/UTarget.pas
r47 r48 7 7 uses 8 8 Classes, SysUtils, StrUtils, Registry, URegistry, SpecializedList, Dialogs, 9 FileUtil, Process ;9 FileUtil, Process, Menus; 10 10 11 11 type … … 86 86 Name: string; 87 87 ProgramName: string; 88 ImageIndex: Integer; 88 89 Optimization: TCompilerOptimization; 89 90 CompilerPath: string; … … 126 127 procedure SaveToRegistry(Root: HKEY; Key: string); 127 128 function FindByName(Name: string): TTarget; 129 procedure LoadToMenuItem(MenuItem: TMenuItem; Action: TNotifyEvent; 130 CurrentTarget: TTarget); 128 131 end; 129 132 … … 286 289 if I < Count then Result := TTarget(Items[I]) 287 290 else Result := nil; 291 end; 292 293 procedure TTargetList.LoadToMenuItem(MenuItem: TMenuItem; Action: TNotifyEvent 294 ; CurrentTarget: TTarget); 295 var 296 NewMenuItem: TMenuItem; 297 I: Integer; 298 begin 299 if Assigned(MenuItem) then begin 300 MenuItem.Clear; 301 for I := 0 to Count - 1 do begin 302 NewMenuItem := TMenuItem.Create(MenuItem); 303 NewMenuItem.Caption := TTarget(Items[I]).Name; 304 NewMenuItem.OnClick := Action; 305 NewMenuItem.ImageIndex := TTarget(Items[I]).ImageIndex; 306 if TTarget(Items[I]) = CurrentTarget then NewMenuItem.Checked := True; 307 MenuItem.Add(NewMenuItem); 308 end; 309 end; 288 310 end; 289 311 -
trunk/Target/UTargetC.pas
r41 r48 32 32 SourceExtension := '.c'; 33 33 CompiledExtension := '.exe'; 34 ImageIndex := 23; 34 35 Capabilities := [tcCompile, tcRun]; 35 36 {$IFDEF Windows} -
trunk/Target/UTargetDelphi.pas
r41 r48 29 29 Name := 'Delphi'; 30 30 SourceExtension := '.pas'; 31 ImageIndex := 22; 31 32 CompiledExtension := '.exe'; 32 33 Capabilities := [tcCompile, tcRun]; … … 49 50 Inc(I) 50 51 end; 52 end; 53 54 function CheckClear: Boolean; 55 begin 56 Result := (FSourceCode[I] = '[') and (Length(FSourceCode) >= I + 2) and 57 (FSourceCode[I + 1] = '-') and (FSourceCode[I + 2] = ']'); 51 58 end; 52 59 … … 89 96 ',': AddLine('Read(ReadChar); Memory[Pos] := Ord(ReadChar);'); 90 97 '[': begin 91 AddLine('while Memory[Pos] <> 0 do begin'); 92 Inc(Indent); 98 if CheckClear then begin 99 AddLine('Memory[Pos] := 0;'); 100 Inc(I, 2); 101 end else begin 102 AddLine('while Memory[Pos] <> 0 do begin'); 103 Inc(Indent); 104 end; 93 105 end; 94 106 ']': begin -
trunk/Target/UTargetInterpretter.pas
r47 r48 447 447 inherited; 448 448 Name := 'Interpretter'; 449 ImageIndex := 25; 449 450 Capabilities := [tcRun, tcPause, tcStop, tcCompile, tcStepOut, tcStepInto, 450 451 tcStepOver, tcRunToCursor]; -
trunk/Target/UTargetJava.pas
r41 r48 31 31 SourceExtension := '.java'; 32 32 CompiledExtension := '.class'; 33 ImageIndex := 24; 33 34 Capabilities := [tcCompile, tcRun]; 34 35 {$IFDEF Windows} -
trunk/Target/UTargetPHP.pas
r42 r48 30 30 Name := 'PHP'; 31 31 SourceExtension := '.php'; 32 ImageIndex := 21; 32 33 Capabilities := [tcCompile, tcRun]; 33 34 {$IFDEF Windows}
Note:
See TracChangeset
for help on using the changeset viewer.
