Ignore:
Timestamp:
Jul 12, 2012, 8:21:21 AM (12 years ago)
Author:
chronos
Message:
  • Added: Clipboard manipulation support in source code form.
  • Modified: Moved code which belongs to UFormSourceCode from UFormMain.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormSourceCode.lfm

    r46 r47  
    11object FormSourceCode: TFormSourceCode
    2   Left = 373
     2  Left = 627
    33  Height = 240
    4   Top = 216
     4  Top = 182
    55  Width = 320
    66  Caption = 'Source code'
    … …  
    1616    Font.Height = -12
    1717    Font.Name = 'Courier New'
     18    OnChange = MemoSourceChange
     19    OnKeyDown = MemoSourceKeyDown
     20    OnKeyPress = MemoSourceKeyPress
     21    OnKeyUp = MemoSourceKeyUp
     22    OnMouseDown = MemoSourceMouseDown
    1823    ParentFont = False
    1924    PopupMenu = PopupMenuSource
    … …  
    2328  object PopupMenuSource: TPopupMenu
    2429    Images = MainForm.ImageList1
    25     left = 84
    26     top = 156
     30    left = 128
     31    top = 112
    2732    object MenuItem23: TMenuItem
    28       Bitmap.Data = {
    29         36040000424D3604000000000000360000002800000010000000100000000100
    30         2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
    31         FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    32         FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    33         FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    34         FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    35         FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    36         FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    37         FF000000810000007500000064200000607E000060B2000060C8000060B20000
    38         607E000064200000750000008100FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    39         FF00000081000000784102027DC10A0AA8E70F0FCAF81111D5FE0F0FCAF80A0A
    40         A8E702027DC10000784100008100FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    41         FF0000008420030389C11515BFF31212CDFF1111CCFF1111CCFF1111CCFF1111
    42         CCFF0E0EBCF3020288C100008420FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    43         FF000000897E1818AFE61414C1FF1111BFFF1111BFFF1111BFFF1111BFFF1111
    44         BFFF1111BFFF0A0AA6E60000897EFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    45         FF0000008FB23434C3F81414B2FF1111B1FF1111B1FF1111B1FF1111B1FF1111
    46         B1FF1111B1FF1414B0F800008FB2FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    47         FF00000095C84848D0FE2E2EB8FF1D1DADFF1212A5FF1111A4FF1111A4FF1111
    48         A4FF1111A4FF1B1BADFE000095C8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    49         FF0000009AB24A4AD4F83737BFFF3737BFFF3131BAFF2727B0FF1C1CA6FF1616
    50         A0FF12129CFF2323AEF800009AB2FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    51         FF0000009E7E3939CCE64A4AD2FF4545CDFF4545CDFF4545CDFF4545CDFF4545
    52         CDFF4848D0FF3131C3E600009E7EFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    53         FF000000A3200A0AABC15555E3F35A5AE2FF5656DEFF5656DEFF5656DEFF5959
    54         E1FF5050DEF30909AAC10000A320FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    55         FF000000A4000000A6410A0AAEC13F3FD5E76060EDF86A6AF3FE6060ECF83E3E
    56         D4E70A0AADC10000A6410000A400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    57         FF000000A4000000A6000000A9200000AA7E0000AAB20000AAC80000AAB20000
    58         AA7E0000A9200000A6000000A400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    59         FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    60         FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    61         FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
    62         FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
    63       }
     33      Action = MainForm.ABreakpointToggle
    6434    end
    6535    object MenuItem26: TMenuItem
     36      Action = AFormatSource
    6637    end
    6738    object MenuItem21: TMenuItem
     39      Action = AGenerateNumber
    6840    end
    6941    object MenuItem29: TMenuItem
     42      Action = MainForm.AShowTargetPosition
    7043      Bitmap.Data = {
    7144        36040000424D3604000000000000360000002800000010000000100000000100
    … …  
    10679    end
    10780    object MenuItem36: TMenuItem
     81      Action = AShrinkSource
     82    end
     83    object MenuItem1: TMenuItem
     84      Caption = '-'
     85    end
     86    object MenuItem2: TMenuItem
     87      Action = ACopyToClipboard
     88    end
     89    object MenuItem3: TMenuItem
     90      Action = APasteFromClipboard
     91    end
     92    object MenuItem6: TMenuItem
     93      Action = ACutToClipboard
     94    end
     95    object MenuItem4: TMenuItem
     96      Action = AClear
     97    end
     98    object MenuItem5: TMenuItem
     99      Action = ASelectAll
     100    end
     101  end
     102  object ActionList1: TActionList
     103    Images = MainForm.ImageList1
     104    left = 128
     105    top = 56
     106    object AGenerateNumber: TAction
     107      Caption = 'Generate number'
     108      ImageIndex = 13
     109      OnExecute = AGenerateNumberExecute
     110    end
     111    object AShrinkSource: TAction
     112      Caption = 'Shrink source'
     113      Hint = 'Shrink source'
     114      OnExecute = AShrinkSourceExecute
     115    end
     116    object AFormatSource: TAction
     117      Caption = 'Format source'
     118      Hint = 'Format source'
     119      OnExecute = AFormatSourceExecute
     120    end
     121    object APasteFromClipboard: TAction
     122      Caption = 'Paste'
     123      Hint = 'Paste'
     124      ImageIndex = 18
     125      OnExecute = APasteFromClipboardExecute
     126      ShortCut = 16470
     127    end
     128    object ACopyToClipboard: TAction
     129      Caption = 'Copy'
     130      Hint = 'Copy'
     131      ImageIndex = 19
     132      OnExecute = ACopyToClipboardExecute
     133      ShortCut = 16451
     134    end
     135    object AClear: TAction
     136      Caption = 'Clear'
     137      Hint = 'Clear'
     138      ImageIndex = 4
     139      OnExecute = AClearExecute
     140    end
     141    object ASelectAll: TAction
     142      Caption = 'Select all'
     143      Hint = 'Select all'
     144      OnExecute = ASelectAllExecute
     145      ShortCut = 16449
     146    end
     147    object ACutToClipboard: TAction
     148      Caption = 'Cut'
     149      Hint = 'Cut'
     150      ImageIndex = 20
     151      OnExecute = ACutToClipboardExecute
     152      ShortCut = 16472
    108153    end
    109154  end
Note: See TracChangeset for help on using the changeset viewer.