Ignore:
Timestamp:
Mar 18, 2011, 9:34:42 AM (14 years ago)
Author:
george
Message:
  • Fixed: Red and Blue color components swaping.
  • Fixed: PageControl tabs auto switching.
  • Modified: TFastBitmap class replaced by similar one which use pixels data as one memory block instead of array of arrays. With only one memory block optimization using FillChar and Move can be used.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • GraphicTest/UMainForm.lfm

    r202 r206  
    11object MainForm: TMainForm
    22  Left = 214
    3   Height = 452
     3  Height = 338
    44  Top = 106
    5   Width = 731
     5  Width = 680
    66  Caption = 'Graphic test'
    7   ClientHeight = 452
    8   ClientWidth = 731
     7  ClientHeight = 338
     8  ClientWidth = 680
    99  OnClose = FormClose
    1010  OnCreate = FormCreate
    … …  
    1313  object PageControl1: TPageControl
    1414    Left = 312
    15     Height = 432
     15    Height = 318
    1616    Top = 16
    17     Width = 416
     17    Width = 365
    1818    ActivePage = TabSheet1
    1919    Anchors = [akTop, akLeft, akRight, akBottom]
    … …  
    2222    object TabSheet1: TTabSheet
    2323      Caption = 'TImage'
    24       ClientHeight = 406
    25       ClientWidth = 408
     24      ClientHeight = 292
     25      ClientWidth = 357
    2626      object Image1: TImage
    2727        Left = 6
    28         Height = 393
     28        Height = 279
    2929        Top = 7
    30         Width = 398
     30        Width = 347
    3131        Anchors = [akTop, akLeft, akRight, akBottom]
    3232      end
    3333    end
    3434    object TabSheet2: TTabSheet
    35       Caption = 'Direct Canvas'
    36       ClientHeight = 405
    37       ClientWidth = 372
     35      Caption = 'TPaintBox'
     36      ClientHeight = 406
     37      ClientWidth = 408
    3838      object PaintBox1: TPaintBox
    3939        Left = 6
    40         Height = 393
     40        Height = 394
    4141        Top = 7
    42         Width = 361
     42        Width = 397
    4343        Anchors = [akTop, akLeft, akRight, akBottom]
    4444      end
    … …  
    9898  object ListView1: TListView
    9999    Left = 8
    100     Height = 240
    101     Top = 208
     100    Height = 166
     101    Top = 168
    102102    Width = 296
    103103    Anchors = [akTop, akLeft, akBottom]
    … …  
    105105      item
    106106        Caption = 'Method'
    107         Width = 100
     107        Width = 140
    108108      end   
    109109      item
    … …  
    119119  end
    120120  object ButtonBenchmark: TButton
    121     Left = 11
     121    Left = 9
    122122    Height = 25
    123     Top = 176
     123    Top = 136
    124124    Width = 75
    125125    Caption = 'Benchmark'
Note: See TracChangeset for help on using the changeset viewer.