Changeset 338 for GraphicTest


Ignore:
Timestamp:
Feb 27, 2012, 12:08:06 PM (13 years ago)
Author:
chronos
Message:
  • Fixed: PixelFormat pf32bit doesn't work properly on 24bit colors.
Location:
GraphicTest
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • GraphicTest/GraphicTest.lpi

    r319 r338  
    99      <ActiveWindowIndexAtStart Value="0"/>
    1010    </General>
    11     <BuildModes Count="1">
    12       <Item1 Name="default" Default="True"/>
     11    <BuildModes Count="2" Active="Release">
     12      <Item1 Name="Debug" Default="True"/>
     13      <Item2 Name="Release">
     14        <CompilerOptions>
     15          <Version Value="11"/>
     16          <Target>
     17            <Filename Value="GraphicTest"/>
     18          </Target>
     19          <SearchPaths>
     20            <IncludeFiles Value="$(ProjOutDir)"/>
     21            <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
     22          </SearchPaths>
     23          <Parsing>
     24            <SyntaxOptions>
     25              <SyntaxMode Value="Delphi"/>
     26              <UseAnsiStrings Value="False"/>
     27            </SyntaxOptions>
     28          </Parsing>
     29          <CodeGeneration>
     30            <Optimizations>
     31              <OptimizationLevel Value="3"/>
     32            </Optimizations>
     33          </CodeGeneration>
     34          <Linking>
     35            <Debugging>
     36              <GenerateDebugInfo Value="False"/>
     37            </Debugging>
     38            <Options>
     39              <Win32>
     40                <GraphicApplication Value="True"/>
     41              </Win32>
     42            </Options>
     43          </Linking>
     44          <Other>
     45            <CompilerMessages>
     46              <UseMsgFile Value="True"/>
     47            </CompilerMessages>
     48            <CompilerPath Value="$(CompPath)"/>
     49          </Other>
     50        </CompilerOptions>
     51      </Item2>
    1352    </BuildModes>
    1453    <PublishOptions>
    … …  
    4281        <CursorPos X="51" Y="15"/>
    4382        <UsageCount Value="60"/>
     83        <DefaultSyntaxHighlighter Value="Delphi"/>
    4484      </Unit0>
    4585      <Unit1>
    … …  
    5292        <EditorIndex Value="0"/>
    5393        <WindowIndex Value="0"/>
    54         <TopLine Value="114"/>
    55         <CursorPos X="12" Y="120"/>
     94        <TopLine Value="74"/>
     95        <CursorPos X="44" Y="92"/>
    5696        <UsageCount Value="60"/>
    5797        <Loaded Value="True"/>
    5898        <LoadedDesigner Value="True"/>
     99        <DefaultSyntaxHighlighter Value="Delphi"/>
    59100      </Unit1>
    60101      <Unit2>
    … …  
    64105        <CursorPos X="42" Y="22"/>
    65106        <UsageCount Value="15"/>
     107        <DefaultSyntaxHighlighter Value="Delphi"/>
    66108      </Unit2>
    67109      <Unit3>
    … …  
    72114        <CursorPos X="1" Y="1"/>
    73115        <UsageCount Value="60"/>
     116        <DefaultSyntaxHighlighter Value="Delphi"/>
    74117      </Unit3>
    75118      <Unit4>
    … …  
    165208        <UsageCount Value="54"/>
    166209        <Loaded Value="True"/>
     210        <DefaultSyntaxHighlighter Value="Delphi"/>
    167211      </Unit17>
    168212      <Unit18>
    … …  
    176220        <UsageCount Value="54"/>
    177221        <Loaded Value="True"/>
     222        <DefaultSyntaxHighlighter Value="Delphi"/>
    178223      </Unit18>
    179224      <Unit19>
    … …  
    182227        <CursorPos X="1" Y="308"/>
    183228        <UsageCount Value="12"/>
     229        <DefaultSyntaxHighlighter Value="Delphi"/>
    184230      </Unit19>
    185231      <Unit20>
    186232        <Filename Value="BGRABitmap/bgradefaultbitmap.pas"/>
    187233        <UnitName Value="BGRADefaultBitmap"/>
    188         <EditorIndex Value="3"/>
    189234        <WindowIndex Value="0"/>
    190235        <TopLine Value="655"/>
    191236        <CursorPos X="22" Y="667"/>
    192237        <UsageCount Value="12"/>
    193         <Loaded Value="True"/>
     238        <DefaultSyntaxHighlighter Value="Delphi"/>
    194239      </Unit20>
    195240      <Unit21>
    … …  
    199244        <CursorPos X="1" Y="146"/>
    200245        <UsageCount Value="10"/>
     246        <DefaultSyntaxHighlighter Value="Delphi"/>
    201247      </Unit21>
    202248      <Unit22>
    … …  
    206252        <CursorPos X="3" Y="597"/>
    207253        <UsageCount Value="9"/>
     254        <DefaultSyntaxHighlighter Value="Delphi"/>
    208255      </Unit22>
    209256      <Unit23>
    … …  
    212259        <CursorPos X="10" Y="45"/>
    213260        <UsageCount Value="11"/>
     261        <DefaultSyntaxHighlighter Value="Delphi"/>
    214262      </Unit23>
    215263      <Unit24>
    … …  
    218266        <CursorPos X="3" Y="53"/>
    219267        <UsageCount Value="11"/>
     268        <DefaultSyntaxHighlighter Value="Delphi"/>
    220269      </Unit24>
    221270      <Unit25>
    … …  
    225274        <CursorPos X="31" Y="1327"/>
    226275        <UsageCount Value="11"/>
     276        <DefaultSyntaxHighlighter Value="Delphi"/>
    227277      </Unit25>
    228278      <Unit26>
    … …  
    231281        <CursorPos X="10" Y="1896"/>
    232282        <UsageCount Value="11"/>
     283        <DefaultSyntaxHighlighter Value="Delphi"/>
    233284      </Unit26>
    234285      <Unit27>
    … …  
    237288        <CursorPos X="31" Y="88"/>
    238289        <UsageCount Value="9"/>
     290        <DefaultSyntaxHighlighter Value="Delphi"/>
    239291      </Unit27>
    240292      <Unit28>
    … …  
    243295        <CursorPos X="3" Y="311"/>
    244296        <UsageCount Value="8"/>
     297        <DefaultSyntaxHighlighter Value="Delphi"/>
    245298      </Unit28>
    246299      <Unit29>
    … …  
    250303        <CursorPos X="3" Y="37"/>
    251304        <UsageCount Value="10"/>
     305        <DefaultSyntaxHighlighter Value="Delphi"/>
    252306      </Unit29>
    253307      <Unit30>
    … …  
    257311        <CursorPos X="23" Y="292"/>
    258312        <UsageCount Value="9"/>
     313        <DefaultSyntaxHighlighter Value="Delphi"/>
    259314      </Unit30>
    260315      <Unit31>
    … …  
    264319        <CursorPos X="41" Y="62"/>
    265320        <UsageCount Value="18"/>
     321        <DefaultSyntaxHighlighter Value="Delphi"/>
    266322      </Unit31>
    267323      <Unit32>
    … …  
    271327        <CursorPos X="4" Y="35"/>
    272328        <UsageCount Value="8"/>
     329        <DefaultSyntaxHighlighter Value="Delphi"/>
    273330      </Unit32>
    274331      <Unit33>
    … …  
    277334        <CursorPos X="1" Y="1471"/>
    278335        <UsageCount Value="8"/>
     336        <DefaultSyntaxHighlighter Value="Delphi"/>
    279337      </Unit33>
    280338      <Unit34>
    … …  
    283341        <CursorPos X="10" Y="793"/>
    284342        <UsageCount Value="8"/>
     343        <DefaultSyntaxHighlighter Value="Delphi"/>
    285344      </Unit34>
    286345      <Unit35>
    … …  
    290349        <CursorPos X="3" Y="219"/>
    291350        <UsageCount Value="8"/>
     351        <DefaultSyntaxHighlighter Value="Delphi"/>
    292352      </Unit35>
    293353      <Unit36>
    … …  
    297357        <CursorPos X="23" Y="72"/>
    298358        <UsageCount Value="18"/>
     359        <DefaultSyntaxHighlighter Value="Delphi"/>
    299360      </Unit36>
    300361      <Unit37>
    … …  
    304365        <CursorPos X="36" Y="36"/>
    305366        <UsageCount Value="18"/>
     367        <DefaultSyntaxHighlighter Value="Delphi"/>
    306368      </Unit37>
    307369      <Unit38>
    … …  
    311373        <CursorPos X="30" Y="638"/>
    312374        <UsageCount Value="18"/>
     375        <DefaultSyntaxHighlighter Value="Delphi"/>
    313376      </Unit38>
    314377      <Unit39>
    … …  
    318381        <CursorPos X="1" Y="1"/>
    319382        <UsageCount Value="18"/>
     383        <DefaultSyntaxHighlighter Value="Delphi"/>
    320384      </Unit39>
    321385      <Unit40>
    … …  
    325389        <CursorPos X="34" Y="152"/>
    326390        <UsageCount Value="18"/>
     391        <DefaultSyntaxHighlighter Value="Delphi"/>
    327392      </Unit40>
    328393      <Unit41>
    … …  
    332397        <CursorPos X="3" Y="704"/>
    333398        <UsageCount Value="18"/>
     399        <DefaultSyntaxHighlighter Value="Delphi"/>
    334400      </Unit41>
    335401      <Unit42>
    … …  
    345411        <CursorPos X="38" Y="928"/>
    346412        <UsageCount Value="17"/>
     413        <DefaultSyntaxHighlighter Value="Delphi"/>
    347414      </Unit43>
    348415      <Unit44>
    … …  
    357424        <CursorPos X="1" Y="38"/>
    358425        <UsageCount Value="9"/>
     426        <DefaultSyntaxHighlighter Value="Delphi"/>
    359427      </Unit45>
    360428      <Unit46>
    … …  
    389457        <CursorPos X="14" Y="78"/>
    390458        <UsageCount Value="11"/>
     459        <DefaultSyntaxHighlighter Value="Delphi"/>
    391460      </Unit50>
    392461      <Unit51>
    … …  
    397466        <CursorPos X="3" Y="389"/>
    398467        <UsageCount Value="11"/>
     468        <DefaultSyntaxHighlighter Value="Delphi"/>
    399469      </Unit51>
    400470      <Unit52>
    … …  
    405475        <CursorPos X="3" Y="240"/>
    406476        <UsageCount Value="11"/>
     477        <DefaultSyntaxHighlighter Value="Delphi"/>
    407478      </Unit52>
    408479      <Unit53>
    … …  
    412483        <CursorPos X="10" Y="1001"/>
    413484        <UsageCount Value="11"/>
     485        <DefaultSyntaxHighlighter Value="Delphi"/>
    414486      </Unit53>
    415487      <Unit54>
    … …  
    419491        <CursorPos X="10" Y="249"/>
    420492        <UsageCount Value="11"/>
     493        <DefaultSyntaxHighlighter Value="Delphi"/>
    421494      </Unit54>
    422495      <Unit55>
    … …  
    427500        <CursorPos X="8" Y="28"/>
    428501        <UsageCount Value="11"/>
     502        <DefaultSyntaxHighlighter Value="Delphi"/>
    429503      </Unit55>
    430504      <Unit56>
    … …  
    435509        <CursorPos X="15" Y="1305"/>
    436510        <UsageCount Value="11"/>
     511        <DefaultSyntaxHighlighter Value="Delphi"/>
    437512      </Unit56>
    438513      <Unit57>
    … …  
    442517        <CursorPos X="61" Y="251"/>
    443518        <UsageCount Value="11"/>
     519        <DefaultSyntaxHighlighter Value="Delphi"/>
    444520      </Unit57>
    445521      <Unit58>
    … …  
    449525        <CursorPos X="11" Y="514"/>
    450526        <UsageCount Value="11"/>
     527        <DefaultSyntaxHighlighter Value="Delphi"/>
    451528      </Unit58>
    452529      <Unit59>
    … …  
    456533        <CursorPos X="1" Y="416"/>
    457534        <UsageCount Value="10"/>
     535        <DefaultSyntaxHighlighter Value="Delphi"/>
    458536      </Unit59>
    459537      <Unit60>
    … …  
    463541        <CursorPos X="1" Y="103"/>
    464542        <UsageCount Value="10"/>
     543        <DefaultSyntaxHighlighter Value="Delphi"/>
    465544      </Unit60>
    466545    </Units>
    … …  
    595674    <Parsing>
    596675      <SyntaxOptions>
     676        <SyntaxMode Value="Delphi"/>
    597677        <UseAnsiStrings Value="False"/>
    598678      </SyntaxOptions>
    599679    </Parsing>
     680    <CodeGeneration>
     681      <Checks>
     682        <IOChecks Value="True"/>
     683        <RangeChecks Value="True"/>
     684        <OverflowChecks Value="True"/>
     685        <StackChecks Value="True"/>
     686      </Checks>
     687      <VerifyObjMethodCallValidity Value="True"/>
     688    </CodeGeneration>
    600689    <Linking>
    601690      <Options>

  • GraphicTest/UMainForm.lfm

    r319 r338  
    2323    object TabSheet1: TTabSheet
    2424      Caption = 'TImage'
    25       ClientHeight = 375
    26       ClientWidth = 340
     25      ClientHeight = 368
     26      ClientWidth = 342
    2727      object Image1: TImage
    2828        Left = 6
    29         Height = 307
     29        Height = 300
    3030        Top = 7
    31         Width = 330
     31        Width = 332
    3232        Anchors = [akTop, akLeft, akRight, akBottom]
    3333      end
    … …  
    3535    object TabSheet2: TTabSheet
    3636      Caption = 'TPaintBox'
    37       ClientHeight = 346
    38       ClientWidth = 361
     37      ClientHeight = 368
     38      ClientWidth = 342
    3939      object PaintBox1: TPaintBox
    4040        Left = 6
    … …  
    106106  object FloatSpinEdit1: TFloatSpinEdit
    107107    Left = 88
    108     Height = 21
    109     Top = 392
     108    Height = 25
     109    Top = 388
    110110    Width = 58
    111111    Anchors = [akLeft, akBottom]
    … …  
    128128  object Label1: TLabel
    129129    Left = 8
    130     Height = 14
    131     Top = 395
    132     Width = 70
     130    Height = 16
     131    Top = 393
     132    Width = 92
    133133    Anchors = [akLeft, akBottom]
    134134    Caption = 'Step duration:'
    … …  
    137137  object Label2: TLabel
    138138    Left = 152
    139     Height = 14
    140     Top = 395
    141     Width = 6
     139    Height = 16
     140    Top = 393
     141    Width = 8
    142142    Anchors = [akLeft, akBottom]
    143143    Caption = 's'

  • GraphicTest/UMainForm.pas

    r319 r338  
    8888  end;
    8989  Bitmap := TBitmap.Create;
    90   Bitmap.PixelFormat := pf32bit;
     90  Bitmap.PixelFormat := pf24bit;
    9191  Image1.Picture.Bitmap.SetSize(TFastBitmap(Scenes[0]).Size.X, TFastBitmap(Scenes[0]).Size.Y);
    92   Image1.Picture.Bitmap.PixelFormat := pf32bit;
     92  Image1.Picture.Bitmap.PixelFormat := pf24bit;
    9393  Bitmap.SetSize(TFastBitmap(Scenes[0]).Size.X, TFastBitmap(Scenes[0]).Size.Y);
    9494
Note: See TracChangeset for help on using the changeset viewer.