Changeset 48 for trunk


Ignore:
Timestamp:
Jul 12, 2012, 9:15:02 AM (12 years ago)
Author:
chronos
Message:
  • Added: Tool button with drop down menu of available targets.
  • Added Target list have icons.
Location:
trunk
Files:
6 added
14 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormMain.lfm

    r47 r48  
    11object MainForm: TMainForm
    2   Left = 213
     2  Left = 236
    33  Height = 430
    4   Top = 98
     4  Top = 144
    55  Width = 670
    66  Caption = 'LazFuck'
     
    3636    Top = 0
    3737    Width = 670
    38     Images = ImageList1
     38    Images = ImageListMain
    3939    ParentShowHint = False
    4040    ShowHint = True
     
    4949      Top = 2
    5050      Action = AProjectOpen
     51      DropdownMenu = PopupMenuRecentFiles
     52      Style = tbsDropDown
    5153    end
    5254    object ToolButton3: TToolButton
    53       Left = 47
     55      Left = 59
    5456      Top = 2
    5557      Action = AProjectSave
    5658    end
    5759    object ToolButton4: TToolButton
    58       Left = 70
     60      Left = 82
    5961      Top = 2
    6062      Action = AProjectClose
    6163    end
    6264    object ToolButton5: TToolButton
    63       Left = 116
     65      Left = 128
    6466      Top = 2
    6567      Width = 10
     
    6769    end
    6870    object ToolButton6: TToolButton
    69       Left = 149
     71      Left = 161
    7072      Top = 2
    7173      Action = AProgramRun
    7274    end
    7375    object ToolButton7: TToolButton
    74       Left = 126
     76      Left = 138
    7577      Top = 2
    7678      Action = AProgramCompile
    7779    end
    7880    object ToolButton8: TToolButton
    79       Left = 93
     81      Left = 105
    8082      Top = 2
    8183      Action = AOptions
    8284    end
    8385    object ToolButton9: TToolButton
    84       Left = 218
     86      Left = 230
    8587      Top = 2
    8688      Action = ABreakpointToggle
    8789    end
    8890    object ToolButton10: TToolButton
    89       Left = 172
     91      Left = 184
    9092      Top = 2
    9193      Action = AProgramPause
    9294    end
    9395    object ToolButton11: TToolButton
    94       Left = 195
     96      Left = 207
    9597      Top = 2
    9698      Action = AProgramStop
    9799    end
    98100    object ToolButton12: TToolButton
    99       Left = 241
     101      Left = 253
    100102      Top = 2
    101103      Action = AProgramStepOver
    102104    end
    103105    object ToolButton13: TToolButton
    104       Left = 264
     106      Left = 276
    105107      Top = 2
    106108      Action = AProgramStepInto
    107109    end
    108110    object ToolButton14: TToolButton
    109       Left = 287
     111      Left = 299
    110112      Top = 2
    111113      Action = AProgramStepOut
    112114    end
    113115    object ToolButton15: TToolButton
    114       Left = 310
     116      Left = 322
    115117      Top = 2
    116118      Action = AProgramRunToCursor
     119    end
     120    object ToolButtonTarget: TToolButton
     121      Left = 345
     122      Top = 2
     123      Caption = 'ToolButtonTarget'
     124      DropdownMenu = PopupMenuTargets
     125      Style = tbsDropDown
    117126    end
    118127  end
     
    256265  end
    257266  object MainMenu1: TMainMenu
    258     Images = ImageList1
     267    Images = ImageListMain
    259268    left = 216
    260269    top = 136
     
    836845      object MenuItem28: TMenuItem
    837846        Action = FormSourceCode.AGenerateNumber
    838         Bitmap.Data = {
    839           36040000424D3604000000000000360000002800000010000000100000000100
    840           2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
    841           FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    842           FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    843           FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    844           FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    845           FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    846           FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    847           FF000000008B000000B7FFFFFF000000008B000000FF000000FF000000FF0000
    848           008BFFFFFF00000000B7000000FF000000B7FFFFFF00FFFFFF00FFFFFF00FFFF
    849           FF000000008B000000B7FFFFFF0000000063000000FF00000063FFFFFF00FFFF
    850           FF0000000063000000B700000020000000FF00000063FFFFFF00FFFFFF00FFFF
    851           FF000000008B000000B7FFFFFF00FFFFFF00000000FF000000FF00000020FFFF
    852           FF00FFFFFF00FFFFFF00FFFFFF00000000FF0000008BFFFFFF00FFFFFF00FFFF
    853           FF000000008B000000B7FFFFFF00FFFFFF0000000040000000FF000000B7FFFF
    854           FF00FFFFFF00FFFFFF00FFFFFF00000000FF00000063FFFFFF00FFFFFF00FFFF
    855           FF000000008B000000B7FFFFFF00FFFFFF00FFFFFF000000008B000000FF0000
    856           0040FFFFFF00FFFFFF00000000FF00000040FFFFFF00FFFFFF00000000200000
    857           00B70000008B000000B7FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF0000
    858           008BFFFFFF00FFFFFF0000000020000000FF00000020FFFFFF00000000200000
    859           00FF000000FF000000B7FFFFFF00FFFFFF00FFFFFF00FFFFFF000000008B0000
    860           008BFFFFFF00FFFFFF00FFFFFF00000000FF00000040FFFFFF00FFFFFF000000
    861           0040000000FF000000B7FFFFFF0000000063000000B7FFFFFF00000000B70000
    862           0063000000630000008B00000020000000FF00000020FFFFFF00FFFFFF00FFFF
    863           FF0000000063000000B7FFFFFF00FFFFFF00000000FF000000FF000000B7FFFF
    864           FF00FFFFFF00000000FF000000FF0000008BFFFFFF00FFFFFF00FFFFFF00FFFF
    865           FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    866           FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    867           FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    868           FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    869           FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    870           FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    871           FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    872           FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
    873         }
    874847      end
    875848    end
     
    966939  end
    967940  object ActionList1: TActionList
    968     Images = ImageList1
     941    Images = ImageListMain
    969942    left = 216
    970943    top = 240
     
    11041077    end
    11051078  end
    1106   object ImageList1: TImageList
     1079  object ImageListMain: TImageList
    11071080    left = 216
    11081081    top = 72
    11091082    Bitmap = {
    1110       4C69150000001000000010000000000000000000000000000000000000000000
     1083      4C691A0000001000000010000000000000000000000000000000000000000000
    11111084      0000000000000000000000000000000000000000000000000000000000000000
    11121085      000000000000000000000000000000000000000000FF000000FF000000FF0000
     
    17801753      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    17811754      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
    17831916    }
    17841917  end
     
    18231956    top = 296
    18241957  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
    18251967end
  • trunk/Forms/UFormMain.lrt

    r47 r48  
    11TMAINFORM.CAPTION=LazFuck
     2TMAINFORM.TOOLBUTTONTARGET.CAPTION=ToolButtonTarget
    23TMAINFORM.TABSHEETDEBUG.CAPTION=Debug
    34TMAINFORM.TABSHEETSOURCE.CAPTION=Source code
  • trunk/Forms/UFormMain.pas

    r47 r48  
    4444    ActionList1: TActionList;
    4545    CoolTranslator1: TCoolTranslator;
    46     ImageList1: TImageList;
     46    ImageListMain: TImageList;
    4747    MainMenu1: TMainMenu;
    4848    MenuItem1: TMenuItem;
     
    8686    PanelOutput: TPanel;
    8787    PanelInput: TPanel;
     88    PopupMenuTargets: TPopupMenu;
     89    PopupMenuRecentFiles: TPopupMenu;
    8890    SaveDialog1: TSaveDialog;
    8991    Splitter1: TSplitter;
     
    106108    ToolButton14: TToolButton;
    107109    ToolButton15: TToolButton;
     110    ToolButtonTarget: TToolButton;
    108111    ToolButton2: TToolButton;
    109112    ToolButton3: TToolButton;
     
    223226  I: Integer;
    224227begin
     228  if Sender is TMenuItem then
    225229  with TMenuItem(Sender) do begin
    226230    CurrentTarget := TTarget(Targets[MenuIndex]);
     
    252256  FCurrentTarget.OnChangeState := TargetStateChanged;
    253257  FCurrentTarget.Messages.OnChange := MessagesChanged;
     258  UpdateTargetList;
    254259  UpdateInterface;
    255260end;
     
    293298begin
    294299  LastOpenedList.LoadToMenuItem(MenuItemOpenRecent, AProjectOpenRecentExecute);
     300  LastOpenedList.LoadToMenuItem(PopupMenuRecentFiles.Items, AProjectOpenRecentExecute);
    295301end;
    296302
     
    378384var
    379385  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);
     386begin
     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();
    389397  end;
    390398end;
  • trunk/Forms/UFormSourceCode.lfm

    r47 r48  
    2727  end
    2828  object PopupMenuSource: TPopupMenu
    29     Images = MainForm.ImageList1
     29    Images = MainForm.ImageListMain
    3030    left = 128
    3131    top = 112
     
    3838    object MenuItem21: TMenuItem
    3939      Action = AGenerateNumber
    40     end
    41     object MenuItem29: TMenuItem
    42       Action = MainForm.AShowTargetPosition
    4340      Bitmap.Data = {
    4441        36040000424D3604000000000000360000002800000010000000100000000100
     
    7875      }
    7976    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
    80116    object MenuItem36: TMenuItem
    81117      Action = AShrinkSource
     
    86122    object MenuItem2: TMenuItem
    87123      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      }
    88160    end
    89161    object MenuItem3: TMenuItem
    90162      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      }
    91199    end
    92200    object MenuItem6: TMenuItem
    93201      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      }
    94238    end
    95239    object MenuItem4: TMenuItem
    96240      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      }
    97277    end
    98278    object MenuItem5: TMenuItem
     
    101281  end
    102282  object ActionList1: TActionList
    103     Images = MainForm.ImageList1
     283    Images = MainForm.ImageListMain
    104284    left = 128
    105285    top = 56
  • trunk/Forms/UFormTargetCode.lfm

    r47 r48  
    2020  end
    2121  object PopupMenuTarget: TPopupMenu
    22     Images = MainForm.ImageList1
     22    Images = MainForm.ImageListMain
    2323    left = 84
    2424    top = 100
  • trunk/Languages/LazFuckIDE.cs.po

    r47 r48  
    458458msgstr "CílovÜ kód"
    459459
     460#: tmainform.toolbuttontarget.caption
     461msgid "ToolButtonTarget"
     462msgstr ""
     463
    460464#: toptionsform.buttoncancel.caption
    461465msgid "Cancel"
  • trunk/Languages/LazFuckIDE.po

    r47 r48  
    447447msgstr ""
    448448
     449#: tmainform.toolbuttontarget.caption
     450msgid "ToolButtonTarget"
     451msgstr ""
     452
    449453#: toptionsform.buttoncancel.caption
    450454msgid "Cancel"
  • trunk/LazFuckIDE.lpi

    r46 r48  
    191191        <IsPartOfProject Value="True"/>
    192192        <ComponentName Value="FormSourceCode"/>
     193        <HasResources Value="True"/>
    193194        <ResourceBaseClass Value="Form"/>
    194195        <UnitName Value="UFormSourceCode"/>
     
    198199        <IsPartOfProject Value="True"/>
    199200        <ComponentName Value="FormTargetCode"/>
     201        <HasResources Value="True"/>
    200202        <ResourceBaseClass Value="Form"/>
    201203        <UnitName Value="UFormTargetCode"/>
  • trunk/Target/UTarget.pas

    r47 r48  
    77uses
    88  Classes, SysUtils, StrUtils, Registry, URegistry, SpecializedList, Dialogs,
    9   FileUtil, Process;
     9  FileUtil, Process, Menus;
    1010
    1111type
     
    8686    Name: string;
    8787    ProgramName: string;
     88    ImageIndex: Integer;
    8889    Optimization: TCompilerOptimization;
    8990    CompilerPath: string;
     
    126127    procedure SaveToRegistry(Root: HKEY; Key: string);
    127128    function FindByName(Name: string): TTarget;
     129    procedure LoadToMenuItem(MenuItem: TMenuItem; Action: TNotifyEvent;
     130      CurrentTarget: TTarget);
    128131  end;
    129132
     
    286289  if I < Count then Result := TTarget(Items[I])
    287290    else Result := nil;
     291end;
     292
     293procedure TTargetList.LoadToMenuItem(MenuItem: TMenuItem; Action: TNotifyEvent
     294  ; CurrentTarget: TTarget);
     295var
     296  NewMenuItem: TMenuItem;
     297  I: Integer;
     298begin
     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;
    288310end;
    289311
  • trunk/Target/UTargetC.pas

    r41 r48  
    3232  SourceExtension := '.c';
    3333  CompiledExtension := '.exe';
     34  ImageIndex := 23;
    3435  Capabilities := [tcCompile, tcRun];
    3536  {$IFDEF Windows}
  • trunk/Target/UTargetDelphi.pas

    r41 r48  
    2929  Name := 'Delphi';
    3030  SourceExtension := '.pas';
     31  ImageIndex := 22;
    3132  CompiledExtension := '.exe';
    3233  Capabilities := [tcCompile, tcRun];
     
    4950    Inc(I)
    5051  end;
     52end;
     53
     54function CheckClear: Boolean;
     55begin
     56  Result := (FSourceCode[I] = '[') and (Length(FSourceCode) >= I + 2) and
     57    (FSourceCode[I + 1] = '-') and (FSourceCode[I + 2] = ']');
    5158end;
    5259
     
    8996      ',': AddLine('Read(ReadChar); Memory[Pos] := Ord(ReadChar);');
    9097      '[': 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;
    93105      end;
    94106      ']': begin
  • trunk/Target/UTargetInterpretter.pas

    r47 r48  
    447447  inherited;
    448448  Name := 'Interpretter';
     449  ImageIndex := 25;
    449450  Capabilities := [tcRun, tcPause, tcStop, tcCompile, tcStepOut, tcStepInto,
    450451    tcStepOver, tcRunToCursor];
  • trunk/Target/UTargetJava.pas

    r41 r48  
    3131  SourceExtension := '.java';
    3232  CompiledExtension := '.class';
     33  ImageIndex := 24;
    3334  Capabilities := [tcCompile, tcRun];
    3435  {$IFDEF Windows}
  • trunk/Target/UTargetPHP.pas

    r42 r48  
    3030  Name := 'PHP';
    3131  SourceExtension := '.php';
     32  ImageIndex := 21;
    3233  Capabilities := [tcCompile, tcRun];
    3334  {$IFDEF Windows}
Note: See TracChangeset for help on using the changeset viewer.