Changeset 318 for GraphicTest


Ignore:
Timestamp:
Feb 1, 2012, 3:33:59 PM (13 years ago)
Author:
chronos
Message:
  • Fixed: Exchanged numeric values in table columns for Duration and FPS.
Location:
GraphicTest
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • GraphicTest/GraphicTest.lpi

    r317 r318  
    4141        <TopLine Value="1"/>
    4242        <CursorPos X="51" Y="15"/>
    43         <UsageCount Value="58"/>
     43        <UsageCount Value="59"/>
    4444      </Unit0>
    4545      <Unit1>
    … …  
    5252        <EditorIndex Value="0"/>
    5353        <WindowIndex Value="0"/>
    54         <TopLine Value="118"/>
    55         <CursorPos X="32" Y="135"/>
    56         <UsageCount Value="58"/>
     54        <TopLine Value="198"/>
     55        <CursorPos X="79" Y="203"/>
     56        <UsageCount Value="59"/>
    5757        <Loaded Value="True"/>
    5858        <LoadedDesigner Value="True"/>
    … …  
    7171        <TopLine Value="1"/>
    7272        <CursorPos X="1" Y="1"/>
    73         <UsageCount Value="58"/>
     73        <UsageCount Value="59"/>
    7474      </Unit3>
    7575      <Unit4>
    … …  
    161161        <EditorIndex Value="2"/>
    162162        <WindowIndex Value="0"/>
    163         <TopLine Value="690"/>
    164         <CursorPos X="3" Y="709"/>
    165         <UsageCount Value="52"/>
     163        <TopLine Value="658"/>
     164        <CursorPos X="3" Y="662"/>
     165        <UsageCount Value="53"/>
    166166        <Loaded Value="True"/>
    167167      </Unit17>
    … …  
    172172        <EditorIndex Value="1"/>
    173173        <WindowIndex Value="0"/>
    174         <TopLine Value="185"/>
    175         <CursorPos X="39" Y="198"/>
    176         <UsageCount Value="52"/>
     174        <TopLine Value="15"/>
     175        <CursorPos X="19" Y="25"/>
     176        <UsageCount Value="53"/>
    177177        <Loaded Value="True"/>
    178178      </Unit18>
    … …  
    186186        <Filename Value="BGRABitmap/bgradefaultbitmap.pas"/>
    187187        <UnitName Value="BGRADefaultBitmap"/>
    188         <EditorIndex Value="13"/>
     188        <EditorIndex Value="3"/>
    189189        <WindowIndex Value="0"/>
    190190        <TopLine Value="655"/>
    191         <CursorPos X="25" Y="666"/>
    192         <UsageCount Value="11"/>
     191        <CursorPos X="22" Y="667"/>
     192        <UsageCount Value="12"/>
    193193        <Loaded Value="True"/>
    194194      </Unit20>
    … …  
    385385      <Unit50>
    386386        <Filename Value="../../../Lazarus/0.9.31_2.6.0/fpc/2.6.0/source/rtl/inc/mathh.inc"/>
    387         <EditorIndex Value="14"/>
    388387        <WindowIndex Value="0"/>
    389388        <TopLine Value="65"/>
    390389        <CursorPos X="14" Y="78"/>
    391390        <UsageCount Value="11"/>
    392         <Loaded Value="True"/>
    393391      </Unit50>
    394392      <Unit51>
    395393        <Filename Value="../../../Lazarus/0.9.31_2.6.0/components/opengl/openglcontext.pas"/>
    396394        <UnitName Value="OpenGLContext"/>
    397         <EditorIndex Value="9"/>
    398395        <WindowIndex Value="0"/>
    399396        <TopLine Value="387"/>
    400397        <CursorPos X="3" Y="389"/>
    401398        <UsageCount Value="11"/>
    402         <Loaded Value="True"/>
    403399      </Unit51>
    404400      <Unit52>
    405401        <Filename Value="../../../Lazarus/0.9.31_2.6.0/components/opengl/glwin32wglcontext.pas"/>
    406402        <UnitName Value="GLWin32WGLContext"/>
    407         <EditorIndex Value="10"/>
    408403        <WindowIndex Value="0"/>
    409404        <TopLine Value="236"/>
    410405        <CursorPos X="3" Y="240"/>
    411406        <UsageCount Value="11"/>
    412         <Loaded Value="True"/>
    413407      </Unit52>
    414408      <Unit53>
    415409        <Filename Value="../../../Lazarus/0.9.31_2.6.0/fpc/2.6.0/source/rtl/win/wininc/func.inc"/>
    416         <EditorIndex Value="12"/>
    417410        <WindowIndex Value="0"/>
    418411        <TopLine Value="988"/>
    419412        <CursorPos X="10" Y="1001"/>
    420413        <UsageCount Value="11"/>
    421         <Loaded Value="True"/>
    422414      </Unit53>
    423415      <Unit54>
    424416        <Filename Value="../../../Lazarus/0.9.31_2.6.0/fpc/2.6.0/source/rtl/win/wininc/ascdef.inc"/>
    425         <EditorIndex Value="11"/>
    426417        <WindowIndex Value="0"/>
    427418        <TopLine Value="236"/>
    428419        <CursorPos X="10" Y="249"/>
    429420        <UsageCount Value="11"/>
    430         <Loaded Value="True"/>
    431421      </Unit54>
    432422      <Unit55>
    433423        <Filename Value="../../../Lazarus/0.9.31_2.6.0/fpc/2.6.0/source/rtl/objpas/objpas.pp"/>
    434424        <UnitName Value="objpas"/>
    435         <EditorIndex Value="8"/>
    436425        <WindowIndex Value="0"/>
    437426        <TopLine Value="15"/>
    438427        <CursorPos X="8" Y="28"/>
    439428        <UsageCount Value="11"/>
    440         <Loaded Value="True"/>
    441429      </Unit55>
    442430      <Unit56>
    443431        <Filename Value="../../../Lazarus/0.9.31_2.6.0/lcl/graphics.pp"/>
    444432        <UnitName Value="Graphics"/>
    445         <EditorIndex Value="4"/>
    446433        <WindowIndex Value="0"/>
    447434        <TopLine Value="1292"/>
    448435        <CursorPos X="15" Y="1305"/>
    449436        <UsageCount Value="11"/>
    450         <Loaded Value="True"/>
    451437      </Unit56>
    452438      <Unit57>
    453439        <Filename Value="../../../Lazarus/0.9.31_2.6.0/lcl/include/rasterimage.inc"/>
    454         <EditorIndex Value="5"/>
    455440        <WindowIndex Value="0"/>
    456441        <TopLine Value="247"/>
    457         <CursorPos X="1" Y="260"/>
    458         <UsageCount Value="11"/>
    459         <Loaded Value="True"/>
     442        <CursorPos X="61" Y="251"/>
     443        <UsageCount Value="11"/>
    460444      </Unit57>
    461445      <Unit58>
    462446        <Filename Value="../../../Lazarus/0.9.31_2.6.0/fpc/2.6.0/source/rtl/inc/systemh.inc"/>
    463         <EditorIndex Value="3"/>
    464447        <WindowIndex Value="0"/>
    465448        <TopLine Value="501"/>
    466449        <CursorPos X="11" Y="514"/>
    467450        <UsageCount Value="11"/>
    468         <Loaded Value="True"/>
    469451      </Unit58>
    470452      <Unit59>
    471453        <Filename Value="../../../Lazarus/0.9.31_2.6.0/lcl/include/custombitmap.inc"/>
    472         <EditorIndex Value="7"/>
    473454        <WindowIndex Value="0"/>
    474455        <TopLine Value="403"/>
    475456        <CursorPos X="1" Y="416"/>
    476         <UsageCount Value="10"/>
    477         <Loaded Value="True"/>
     457        <UsageCount Value="11"/>
    478458      </Unit59>
    479459      <Unit60>
    480460        <Filename Value="../../../Lazarus/0.9.31_2.6.0/lcl/include/bitmapcanvas.inc"/>
    481         <EditorIndex Value="6"/>
    482461        <WindowIndex Value="0"/>
    483462        <TopLine Value="90"/>
    484463        <CursorPos X="1" Y="103"/>
    485         <UsageCount Value="10"/>
    486         <Loaded Value="True"/>
     464        <UsageCount Value="11"/>
    487465      </Unit60>
    488466    </Units>
    489     <JumpHistory Count="30" HistoryIndex="29">
     467    <JumpHistory Count="30" HistoryIndex="27">
    490468      <Position1>
    491469        <Filename Value="UMainForm.pas"/>
    492         <Caret Line="233" Column="30" TopLine="210"/>
     470        <Caret Line="199" Column="1" TopLine="184"/>
    493471      </Position1>
    494472      <Position2>
    495473        <Filename Value="UMainForm.pas"/>
    496         <Caret Line="117" Column="1" TopLine="112"/>
     474        <Caret Line="156" Column="1" TopLine="143"/>
    497475      </Position2>
    498476      <Position3>
    499477        <Filename Value="UMainForm.pas"/>
    500         <Caret Line="190" Column="12" TopLine="178"/>
     478        <Caret Line="189" Column="82" TopLine="177"/>
    501479      </Position3>
    502480      <Position4>
    503481        <Filename Value="UMainForm.pas"/>
    504         <Caret Line="145" Column="21" TopLine="138"/>
     482        <Caret Line="144" Column="43" TopLine="136"/>
    505483      </Position4>
    506484      <Position5>
    507485        <Filename Value="UMainForm.pas"/>
    508         <Caret Line="142" Column="1" TopLine="137"/>
     486        <Caret Line="185" Column="20" TopLine="183"/>
    509487      </Position5>
    510488      <Position6>
    511489        <Filename Value="UMainForm.pas"/>
    512         <Caret Line="192" Column="14" TopLine="187"/>
     490        <Caret Line="191" Column="3" TopLine="189"/>
    513491      </Position6>
    514492      <Position7>
    515493        <Filename Value="UMainForm.pas"/>
    516         <Caret Line="199" Column="1" TopLine="184"/>
     494        <Caret Line="236" Column="58" TopLine="215"/>
    517495      </Position7>
    518496      <Position8>
    519497        <Filename Value="UMainForm.pas"/>
    520         <Caret Line="156" Column="1" TopLine="143"/>
     498        <Caret Line="124" Column="14" TopLine="107"/>
    521499      </Position8>
    522500      <Position9>
    523501        <Filename Value="UMainForm.pas"/>
    524         <Caret Line="189" Column="82" TopLine="177"/>
     502        <Caret Line="206" Column="19" TopLine="203"/>
    525503      </Position9>
    526504      <Position10>
    527505        <Filename Value="UMainForm.pas"/>
    528         <Caret Line="144" Column="43" TopLine="136"/>
     506        <Caret Line="117" Column="3" TopLine="115"/>
    529507      </Position10>
    530508      <Position11>
    531509        <Filename Value="UMainForm.pas"/>
    532         <Caret Line="185" Column="20" TopLine="183"/>
     510        <Caret Line="118" Column="1" TopLine="113"/>
    533511      </Position11>
    534512      <Position12>
    535513        <Filename Value="UMainForm.pas"/>
    536         <Caret Line="191" Column="3" TopLine="189"/>
     514        <Caret Line="119" Column="1" TopLine="113"/>
    537515      </Position12>
    538516      <Position13>
    539517        <Filename Value="UMainForm.pas"/>
    540         <Caret Line="236" Column="58" TopLine="215"/>
     518        <Caret Line="242" Column="1" TopLine="223"/>
    541519      </Position13>
    542520      <Position14>
    543521        <Filename Value="UMainForm.pas"/>
    544         <Caret Line="124" Column="14" TopLine="107"/>
     522        <Caret Line="243" Column="1" TopLine="223"/>
    545523      </Position14>
    546524      <Position15>
    547525        <Filename Value="UMainForm.pas"/>
    548         <Caret Line="206" Column="19" TopLine="203"/>
     526        <Caret Line="244" Column="1" TopLine="223"/>
    549527      </Position15>
    550528      <Position16>
    551529        <Filename Value="UMainForm.pas"/>
    552         <Caret Line="117" Column="3" TopLine="115"/>
     530        <Caret Line="245" Column="1" TopLine="223"/>
    553531      </Position16>
    554532      <Position17>
    555533        <Filename Value="UMainForm.pas"/>
    556         <Caret Line="118" Column="1" TopLine="113"/>
     534        <Caret Line="120" Column="1" TopLine="107"/>
    557535      </Position17>
    558536      <Position18>
    559537        <Filename Value="UMainForm.pas"/>
    560         <Caret Line="119" Column="1" TopLine="113"/>
     538        <Caret Line="121" Column="1" TopLine="107"/>
    561539      </Position18>
    562540      <Position19>
    563541        <Filename Value="UMainForm.pas"/>
    564         <Caret Line="242" Column="1" TopLine="223"/>
     542        <Caret Line="122" Column="1" TopLine="107"/>
    565543      </Position19>
    566544      <Position20>
    567545        <Filename Value="UMainForm.pas"/>
    568         <Caret Line="243" Column="1" TopLine="223"/>
     546        <Caret Line="123" Column="1" TopLine="107"/>
    569547      </Position20>
    570548      <Position21>
    571549        <Filename Value="UMainForm.pas"/>
    572         <Caret Line="244" Column="1" TopLine="223"/>
     550        <Caret Line="129" Column="37" TopLine="115"/>
    573551      </Position21>
    574552      <Position22>
    575553        <Filename Value="UMainForm.pas"/>
    576         <Caret Line="245" Column="1" TopLine="223"/>
     554        <Caret Line="148" Column="3" TopLine="139"/>
    577555      </Position22>
    578556      <Position23>
    579557        <Filename Value="UMainForm.pas"/>
    580         <Caret Line="120" Column="1" TopLine="107"/>
     558        <Caret Line="133" Column="32" TopLine="116"/>
    581559      </Position23>
    582560      <Position24>
    583561        <Filename Value="UMainForm.pas"/>
    584         <Caret Line="121" Column="1" TopLine="107"/>
     562        <Caret Line="134" Column="32" TopLine="117"/>
    585563      </Position24>
    586564      <Position25>
    587         <Filename Value="UMainForm.pas"/>
    588         <Caret Line="122" Column="1" TopLine="107"/>
     565        <Filename Value="UFastBitmap.pas"/>
     566        <Caret Line="16" Column="14" TopLine="9"/>
    589567      </Position25>
    590568      <Position26>
    591         <Filename Value="UMainForm.pas"/>
    592         <Caret Line="123" Column="1" TopLine="107"/>
     569        <Filename Value="UFastBitmap.pas"/>
     570        <Caret Line="41" Column="3" TopLine="27"/>
    593571      </Position26>
    594572      <Position27>
    595         <Filename Value="UMainForm.pas"/>
    596         <Caret Line="129" Column="37" TopLine="115"/>
     573        <Filename Value="UFastBitmap.pas"/>
     574        <Caret Line="1" Column="1" TopLine="1"/>
    597575      </Position27>
    598576      <Position28>
    599         <Filename Value="UMainForm.pas"/>
    600         <Caret Line="148" Column="3" TopLine="139"/>
     577        <Filename Value="UFastBitmap.pas"/>
     578        <Caret Line="25" Column="24" TopLine="3"/>
    601579      </Position28>
    602580      <Position29>
    603         <Filename Value="UMainForm.pas"/>
    604         <Caret Line="133" Column="32" TopLine="116"/>
     581        <Filename Value="UDrawMethod.pas"/>
     582        <Caret Line="662" Column="3" TopLine="658"/>
    605583      </Position29>
    606584      <Position30>
    607         <Filename Value="UMainForm.pas"/>
    608         <Caret Line="134" Column="32" TopLine="117"/>
     585        <Filename Value="UFastBitmap.pas"/>
     586        <Caret Line="81" Column="4" TopLine="77"/>
    609587      </Position30>
    610588    </JumpHistory>

  • GraphicTest/UFastBitmap.pas

    r317 r318  
    99
    1010type
    11  TFastBitmapPixel = Integer;
    12  PFastBitmapPixel = ^TFastBitmapPixel;
    13 
    14  TFastBitmapPixelComponents = packed record
    15    B, G, R, A: Byte;
    16  end;
    17 
    18  { TFastBitmap }
     11
     12  TFastBitmapPixel = Integer;
     13  (*TFastBitmapPixel = record
     14    Blue: Byte;
     15    Green: Byte;
     16    Red: Byte;
     17  end;*)
     18  PFastBitmapPixel = ^TFastBitmapPixel;
     19
     20  TFastBitmapPixelComponents = packed record
     21    B, G, R, A: Byte;
     22  end;
     23
     24const
     25  FastPixelSize = SizeOf(TFastBitmapPixel);
     26
     27type
     28  { TFastBitmap }
    1929
    2030  TFastBitmap = class
    … …  
    166176function TFastBitmap.GetPixel(X, Y: Integer): TFastBitmapPixel;
    167177begin
    168   Result := PFastBitmapPixel(FPixelsData + (Y * FSize.X + X) * SizeOf(TFastBitmapPixel))^;
     178  Result := PFastBitmapPixel(FPixelsData + (Y * FSize.X + X) * FastPixelSize)^;
    169179end;
    170180
    171181procedure TFastBitmap.SetPixel(X, Y: Integer; const AValue: TFastBitmapPixel);
    172182begin
    173   PFastBitmapPixel(FPixelsData + (Y * FSize.X + X) * SizeOf(TFastBitmapPixel))^ := AValue;
     183  PFastBitmapPixel(FPixelsData + (Y * FSize.X + X) * FastPixelSize)^ := AValue;
    174184end;
    175185
    … …  
    178188  if (FSize.X = AValue.X) and (FSize.Y = AValue.X) then Exit;
    179189  FSize := AValue;
    180   FPixelsData := ReAllocMem(FPixelsData, FSize.X * FSize.Y * SizeOf(TFastBitmapPixel));
     190  FPixelsData := ReAllocMem(FPixelsData, FSize.X * FSize.Y * FastPixelSize);
    181191end;
    182192

  • GraphicTest/UMainForm.lfm

    r317 r318  
    1313  LCLVersion = '0.9.31'
    1414  object PageControl1: TPageControl
    15     Left = 360
     15    Left = 384
    1616    Height = 401
    1717    Top = 16
    18     Width = 372
     18    Width = 348
    1919    ActivePage = TabSheet1
    2020    Anchors = [akTop, akLeft, akRight, akBottom]
    … …  
    2424      Caption = 'TImage'
    2525      ClientHeight = 375
    26       ClientWidth = 364
     26      ClientWidth = 340
    2727      object Image1: TImage
    2828        Left = 6
    2929        Height = 307
    3030        Top = 7
    31         Width = 354
     31        Width = 330
    3232        Anchors = [akTop, akLeft, akRight, akBottom]
    3333      end
    … …  
    5353    Height = 345
    5454    Top = 8
    55     Width = 344
     55    Width = 368
    5656    Anchors = [akTop, akLeft, akBottom]
    5757    Columns = <   
    … …  
    6161      end   
    6262      item
    63         Caption = 'Duration'
    64         Width = 60
     63        Caption = 'Duration [ms]'
     64        Width = 80
    6565      end   
    6666      item

  • GraphicTest/UMainForm.pas

    r317 r318  
    8888  end;
    8989  Bitmap := TBitmap.Create;
    90   Bitmap.PixelFormat := pf24bit;
     90  Bitmap.PixelFormat := pf32bit;
    9191  Image1.Picture.Bitmap.SetSize(TFastBitmap(Scenes[0]).Size.X, TFastBitmap(Scenes[0]).Size.Y);
    9292  Image1.Picture.Bitmap.PixelFormat := pf32bit;
    … …  
    183183procedure TMainForm.FormDestroy(Sender: TObject);
    184184begin
     185  ListViewMethods.Clear;
    185186  FreeMem(TextureData, OpenGLControl1.Width * OpenGLControl1.Height);
    186187  DrawMethods.Free;
    … …  
    200201  with TDrawMethod(DrawMethods[Item.Index]) do begin
    201202    Item.Caption := Caption;
     203    Item.SubItems.Add(FloatToStr(RoundTo(FrameDuration / OneMillisecond, -3)));
    202204    if FrameDuration > 0 then
    203205      Item.SubItems.Add(FloatToStr(RoundTo(1 / (FrameDuration / OneSecond), -3)))
    204206      else Item.SubItems.Add('0');
    205     Item.SubItems.Add(FloatToStr(RoundTo(FrameDuration / OneMillisecond, -3)) + ' ms');
    206207  end;
    207208end;
Note: See TracChangeset for help on using the changeset viewer.