Ignore:
Timestamp:
Apr 9, 2015, 8:41:23 PM (10 years ago)
Author:
chronos
Message:
  • Modified: Use Graphic32 library only on Windows.
  • Fixed: Update correctly test start/stop actions enable state.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • GraphicTest/UMainForm.lfm

    r454 r470  
    11object MainForm: TMainForm
    2   Left = 258
    3   Height = 444
    4   Top = 176
    5   Width = 857
     2  Left = 561
     3  Height = 577
     4  Top = 310
     5  Width = 998
    66  Caption = 'Graphic test'
    7   ClientHeight = 425
    8   ClientWidth = 857
     7  ClientHeight = 548
     8  ClientWidth = 998
    99  Menu = MainMenu1
    1010  OnClose = FormClose
    … …  
    1212  OnDestroy = FormDestroy
    1313  OnShow = FormShow
    14   LCLVersion = '1.1'
     14  LCLVersion = '1.5'
    1515  object PageControl1: TPageControl
    16     Left = 459
    17     Height = 425
     16    Left = 600
     17    Height = 548
    1818    Top = 0
    1919    Width = 398
    … …  
    2424    object TabSheet1: TTabSheet
    2525      Caption = 'Description'
    26       ClientHeight = 399
    27       ClientWidth = 390
     26      ClientHeight = 505
     27      ClientWidth = 392
    2828      object Memo1: TMemo
    2929        Left = 0
    30         Height = 399
     30        Height = 505
    3131        Top = 0
    32         Width = 390
     32        Width = 392
    3333        Align = alClient
    3434        ReadOnly = True
    … …  
    3939    object TabSheet2: TTabSheet
    4040      Caption = 'Code'
    41       ClientHeight = 388
    42       ClientWidth = 390
     41      ClientHeight = 505
     42      ClientWidth = 392
    4343      inline SynMemo1: TSynMemo
    4444        Cursor = crIBeam
    … …  
    480480          end>
    481481        MouseActions = <>
     482        MouseTextActions = <>
    482483        MouseSelActions = <>
     484        VisibleSpecialChars = [vscSpace, vscTabAtLast]
    483485        SelectedColor.BackPriority = 50
    484486        SelectedColor.ForePriority = 50
    … …  
    487489        SelectedColor.ItalicPriority = 50
    488490        SelectedColor.UnderlinePriority = 50
     491        SelectedColor.StrikeOutPriority = 50
    489492        inline SynLeftGutterPartList1: TSynGutterPartList
    490493          object SynGutterMarks1: TSynGutterMarks
    … …  
    511514            Width = 2
    512515            MouseActions = <>
     516            MarkupInfo.Background = clWhite
     517            MarkupInfo.Foreground = clGray
    513518          end
    514519          object SynGutterCodeFolding1: TSynGutterCodeFolding
    … …  
    525530  object Panel1: TPanel
    526531    Left = 0
    527     Height = 425
     532    Height = 548
    528533    Top = 0
    529     Width = 454
     534    Width = 595
    530535    Align = alClient
    531536    BevelOuter = bvNone
    532     ClientHeight = 425
    533     ClientWidth = 454
     537    ClientHeight = 548
     538    ClientWidth = 595
    534539    TabOrder = 1
    535540    object ListViewMethods: TListView
    536541      Left = 4
    537       Height = 324
     542      Height = 423
    538543      Top = 4
    539       Width = 448
     544      Width = 589
    540545      Anchors = [akTop, akLeft, akRight, akBottom]
    541546      Columns = <     
    … …  
    569574        end>
    570575      OwnerData = True
     576      PopupMenu = PopupMenu1
    571577      ReadOnly = True
    572578      RowSelect = True
    … …  
    577583    end
    578584    object ButtonSingleTest: TButton
    579       Left = 8
    580       Height = 25
    581       Top = 336
    582       Width = 115
     585      Left = 232
     586      Height = 32
     587      Top = 468
     588      Width = 160
    583589      Action = ATestOneMethod
    584590      Anchors = [akLeft, akBottom]
    … …  
    586592    end
    587593    object ButtonBenchmark: TButton
    588       Left = 136
    589       Height = 25
    590       Top = 336
    591       Width = 112
     594      Left = 232
     595      Height = 33
     596      Top = 432
     597      Width = 160
    592598      Action = ATestAllMethods
    593599      Anchors = [akLeft, akBottom]
    … …  
    595601    end
    596602    object FloatSpinEdit1: TFloatSpinEdit
    597       Left = 88
    598       Height = 21
    599       Top = 368
     603      Left = 152
     604      Height = 35
     605      Top = 472
    600606      Width = 58
    601607      Anchors = [akLeft, akBottom]
    … …  
    607613    end
    608614    object ButtonStop: TButton
    609       Left = 256
    610       Height = 25
    611       Top = 336
     615      Left = 312
     616      Height = 33
     617      Top = 502
    612618      Width = 75
    613619      Action = ATestStop
    … …  
    617623    object Label1: TLabel
    618624      Left = 8
    619       Height = 13
    620       Top = 372
    621       Width = 69
     625      Height = 25
     626      Top = 473
     627      Width = 131
    622628      Anchors = [akLeft, akBottom]
    623629      Caption = 'Step duration:'
    … …  
    625631    end
    626632    object Label2: TLabel
    627       Left = 152
    628       Height = 13
    629       Top = 372
    630       Width = 5
     633      Left = 216
     634      Height = 25
     635      Top = 473
     636      Width = 9
    631637      Anchors = [akLeft, akBottom]
    632638      Caption = 's'
    … …  
    634640    end
    635641    object SpinEditWidth: TSpinEdit
    636       Left = 204
    637       Height = 21
    638       Top = 368
     642      Left = 72
     643      Height = 35
     644      Top = 432
    639645      Width = 58
    640646      Anchors = [akLeft, akBottom]
    … …  
    645651    end
    646652    object SpinEditHeight: TSpinEdit
    647       Left = 273
    648       Height = 21
    649       Top = 368
     653      Left = 152
     654      Height = 35
     655      Top = 432
    650656      Width = 58
    651657      Anchors = [akLeft, akBottom]
    … …  
    656662    end
    657663    object Label3: TLabel
    658       Left = 169
    659       Height = 13
    660       Top = 373
    661       Width = 23
     664      Left = 8
     665      Height = 25
     666      Top = 436
     667      Width = 42
    662668      Anchors = [akLeft, akBottom]
    663669      Caption = 'Size:'
    … …  
    665671    end
    666672    object Label4: TLabel
    667       Left = 265
    668       Height = 13
    669       Top = 372
    670       Width = 6
     673      Left = 136
     674      Height = 25
     675      Top = 442
     676      Width = 10
    671677      Anchors = [akLeft, akBottom]
    672678      Caption = 'x'
    … …  
    674680    end
    675681    object CheckBoxDoubleBuffered: TCheckBox
    676       Left = 336
    677       Height = 17
    678       Top = 336
    679       Width = 98
     682      Left = 400
     683      Height = 27
     684      Top = 436
     685      Width = 174
    680686      Anchors = [akLeft, akBottom]
    681687      Caption = 'Double buffered'
    … …  
    684690    end
    685691    object CheckBoxEraseBackground: TCheckBox
    686       Left = 336
    687       Height = 17
    688       Top = 353
    689       Width = 106
     692      Left = 400
     693      Height = 27
     694      Top = 468
     695      Width = 188
    690696      Anchors = [akLeft, akBottom]
    691697      Caption = 'Erase background'
    … …  
    694700    end
    695701    object CheckBox1: TCheckBox
    696       Left = 336
    697       Height = 17
    698       Top = 369
    699       Width = 58
     702      Left = 400
     703      Height = 27
     704      Top = 503
     705      Width = 96
    700706      Anchors = [akLeft, akBottom]
    701707      Caption = 'Opaque'
    … …  
    705711    object Label5: TLabel
    706712      Left = 8
    707       Height = 13
    708       Top = 399
    709       Width = 61
     713      Height = 25
     714      Top = 510
     715      Width = 118
    710716      Anchors = [akLeft, akBottom]
    711717      Caption = 'Pixel format:'
    … …  
    713719    end
    714720    object ComboBox1: TComboBox
    715       Left = 89
    716       Height = 21
    717       Top = 394
    718       Width = 100
    719       Anchors = [akLeft, akBottom]
    720       ItemHeight = 13
     721      Left = 136
     722      Height = 37
     723      Top = 508
     724      Width = 144
     725      Anchors = [akLeft, akBottom]
     726      ItemHeight = 0
    721727      OnChange = ComboBox1Change
    722728      Style = csDropDownList
    … …  
    725731  end
    726732  object Splitter1: TSplitter
    727     Left = 454
    728     Height = 425
     733    Left = 595
     734    Height = 548
    729735    Top = 0
    730736    Width = 5
    … …  
    734740  object SynPasSyn1: TSynPasSyn
    735741    Enabled = False
    736     AsmAttri.FrameEdges = sfeAround
    737     CommentAttri.FrameEdges = sfeAround
    738     IDEDirectiveAttri.FrameEdges = sfeAround
    739     IdentifierAttri.FrameEdges = sfeAround
    740     KeyAttri.FrameEdges = sfeAround
    741     NumberAttri.FrameEdges = sfeAround
    742     SpaceAttri.FrameEdges = sfeAround
    743     StringAttri.FrameEdges = sfeAround
    744     SymbolAttri.FrameEdges = sfeAround
    745     CaseLabelAttri.FrameEdges = sfeAround
    746     DirectiveAttri.FrameEdges = sfeAround
    747742    CompilerMode = pcmDelphi
    748743    NestedComments = False
    … …  
    828823    top = 76
    829824  end
     825  object PopupMenu1: TPopupMenu
     826    left = 401
     827    top = 176
     828    object MenuItem9: TMenuItem
     829      Action = ATestOneMethod
     830    end
     831    object MenuItem10: TMenuItem
     832      Action = ATestAllMethods
     833    end
     834    object MenuItem11: TMenuItem
     835      Action = ATestStop
     836    end
     837  end
    830838end
Note: See TracChangeset for help on using the changeset viewer.