Changeset 452


Ignore:
Timestamp:
Nov 25, 2012, 3:29:40 PM (13 years ago)
Author:
chronos
Message:
  • Updated BGRABitmap package.
Location:
GraphicTest
Files:
322 added
1 deleted
5 edited

Legend:

Unmodified
Added
Removed

  • GraphicTest/GraphicTest.lpi

    r450 r452  
    6666      </local>
    6767    </RunParams>
    68     <RequiredPackages Count="5">
     68    <RequiredPackages Count="4">
    6969      <Item1>
     70        <PackageName Value="BGRABitmapPack"/>
     71        <DefaultFilename Value="Packages/bgrabitmap/bgrabitmappack.lpk" Prefer="True"/>
     72      </Item1>
     73      <Item2>
    7074        <PackageName Value="GR32_L"/>
    7175        <DefaultFilename Value="Packages/Graphics32/Packages/GR32_L.lpk" Prefer="True"/>
    72       </Item1>
    73       <Item2>
    74         <PackageName Value="SynEdit"/>
    7576      </Item2>
    7677      <Item3>
    77         <PackageName Value="bgrabitmappack"/>
    78         <DefaultFilename Value="Packages/BGRABitmap/bgrabitmappack.lpk" Prefer="True"/>
     78        <PackageName Value="SynEdit"/>
    7979      </Item3>
    8080      <Item4>
    81         <PackageName Value="lazopenglcontext"/>
     81        <PackageName Value="LCL"/>
    8282      </Item4>
    83       <Item5>
    84         <PackageName Value="LCL"/>
    85       </Item5>
    8683    </RequiredPackages>
    8784    <Units Count="18">
    … …  
    224221        <UseMsgFile Value="True"/>
    225222      </CompilerMessages>
    226       <CustomOptions Value="-dopengl"/>
    227223      <CompilerPath Value="$(CompPath)"/>
    228224    </Other>

  • GraphicTest/GraphicTest.lpr

    r450 r452  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, lazopenglcontext, UMainForm, UPlatform, UDrawMethod, UFastBitmap,
    11   bgrabitmappack, UDrawForm, GR32_L, UCanvasPixels, UCanvasPixelsUpdateLock,
    12   ULazIntfImageColorsCopy, ULazIntfImageColorsNoCopy, UBGRABitmapPaintBox, 
     10  Forms, UMainForm, UPlatform, UDrawMethod, UFastBitmap, UDrawForm,
     11  bgrabitmappack, GR32_L, UCanvasPixels, UCanvasPixelsUpdateLock,
     12  ULazIntfImageColorsCopy, ULazIntfImageColorsNoCopy, UBGRABitmapPaintBox,
    1313  UBitmapRawImageDataPaintBox, UBitmapRawImageData, UDummyMethod,
    1414  UBitmapRawImageDataMove, UOpenGLMethod, UOpenGLPBOMethod, UGraphics32Method;

  • GraphicTest/Methods/UBitmapRawImageDataPaintBox.pas

    r450 r452  
    3838  //PaintBox.Canvas.CopyRect(Rect(0, 0, PaintBox.Width, PaintBox.Height), TempBitmap.Canvas,
    3939  //  Rect(0, 0, TempBitmap.Width, TempBitmap.Height));
    40   //PaintBox.Canvas.Draw(0, 0, TempBitmap);
    41   BitBlt(hPaint, 0, 0, TempBitmap.Width, TempBitmap.Height, hBmp, 0, 0, srcCopy);
     40  PaintBox.Canvas.Draw(0, 0, TempBitmap);
     41  //BitBlt(hPaint, 0, 0, TempBitmap.Width, TempBitmap.Height, hBmp, 0, 0, srcCopy);
    4242end;
    4343

  • GraphicTest/Packages/Graphics32/Packages/GR32_L.lpk

    r450 r452  
    5454Mozilla Public License 1.1 (MPL 1.1)"/>
    5555    <Version Major="1" Minor="9"/>
    56     <Files Count="21">
     56    <Files Count="20">
    5757      <Item1>
    5858        <Filename Value="..\GR32.pas"/>
    … …  
    135135        <UnitName Value="GR32_Rasterizers"/>
    136136      </Item20>
    137       <Item21>
    138         <Filename Value="GR32_L.pas"/>
    139         <UnitName Value="GR32_L"/>
    140       </Item21>
    141137    </Files>
    142138    <RequiredPkgs Count="3">
    … …  
    158154    <PublishOptions>
    159155      <Version Value="2"/>
    160       <DestinationDirectory Value="$(TestDir)\publishedpackage\"/>
    161156      <IgnoreBinaries Value="False"/>
    162157    </PublishOptions>

  • GraphicTest/UMainForm.lfm

    r451 r452  
    2323    object TabSheet1: TTabSheet
    2424      Caption = 'Description'
    25       ClientHeight = 385
    26       ClientWidth = 390
     25      ClientHeight = 386
     26      ClientWidth = 394
    2727      object Memo1: TMemo
    2828        Left = 0
    29         Height = 385
     29        Height = 386
    3030        Top = 0
    31         Width = 390
     31        Width = 394
    3232        Align = alClient
    3333        ReadOnly = True
    … …  
    3838    object TabSheet2: TTabSheet
    3939      Caption = 'Code'
    40       ClientHeight = 385
    41       ClientWidth = 294
     40      ClientHeight = 386
     41      ClientWidth = 394
    4242      inline SynMemo1: TSynMemo
    4343        Cursor = crIBeam
    4444        Left = 0
    45         Height = 385
     45        Height = 386
    4646        Top = 0
    47         Width = 294
     47        Width = 394
    4848        Align = alClient
    4949        Font.Height = -13
    … …  
    533533    TabOrder = 1
    534534    object ListViewMethods: TListView
    535       Left = 8
     535      Left = 9
    536536      Height = 335
    537537      Top = 8
    … …  
    597597    object FloatSpinEdit1: TFloatSpinEdit
    598598      Left = 88
    599       Height = 21
    600       Top = 382
     599      Height = 25
     600      Top = 378
    601601      Width = 58
    602602      Anchors = [akLeft, akBottom]
    … …  
    619619    object Label1: TLabel
    620620      Left = 8
    621       Height = 13
    622       Top = 386
    623       Width = 69
     621      Height = 15
     622      Top = 384
     623      Width = 80
    624624      Anchors = [akLeft, akBottom]
    625625      Caption = 'Step duration:'
    … …  
    628628    object Label2: TLabel
    629629      Left = 152
    630       Height = 13
    631       Top = 386
    632       Width = 5
     630      Height = 15
     631      Top = 384
     632      Width = 6
    633633      Anchors = [akLeft, akBottom]
    634634      Caption = 's'
    … …  
    637637    object SpinEditWidth: TSpinEdit
    638638      Left = 204
    639       Height = 21
    640       Top = 382
     639      Height = 25
     640      Top = 378
    641641      Width = 58
    642642      Anchors = [akLeft, akBottom]
    … …  
    648648    object SpinEditHeight: TSpinEdit
    649649      Left = 273
    650       Height = 21
    651       Top = 382
     650      Height = 25
     651      Top = 378
    652652      Width = 58
    653653      Anchors = [akLeft, akBottom]
    … …  
    659659    object Label3: TLabel
    660660      Left = 169
    661       Height = 13
    662       Top = 387
    663       Width = 23
     661      Height = 15
     662      Top = 385
     663      Width = 25
    664664      Anchors = [akLeft, akBottom]
    665665      Caption = 'Size:'
    … …  
    668668    object Label4: TLabel
    669669      Left = 265
    670       Height = 13
    671       Top = 386
     670      Height = 15
     671      Top = 384
    672672      Width = 6
    673673      Anchors = [akLeft, akBottom]
    … …  
    677677    object CheckBoxDoubleBuffered: TCheckBox
    678678      Left = 336
    679       Height = 17
    680       Top = 350
    681       Width = 98
     679      Height = 21
     680      Top = 346
     681      Width = 116
    682682      Anchors = [akLeft, akBottom]
    683683      Caption = 'Double buffered'
    … …  
    687687    object CheckBoxEraseBackground: TCheckBox
    688688      Left = 336
    689       Height = 17
    690       Top = 367
    691       Width = 106
     689      Height = 21
     690      Top = 363
     691      Width = 124
    692692      Anchors = [akLeft, akBottom]
    693693      Caption = 'Erase background'
    … …  
    697697    object CheckBox1: TCheckBox
    698698      Left = 336
    699       Height = 17
    700       Top = 387
    701       Width = 58
     699      Height = 21
     700      Top = 383
     701      Width = 67
    702702      Anchors = [akLeft, akBottom]
    703703      Caption = 'Opaque'
Note: See TracChangeset for help on using the changeset viewer.