Changeset 24


Ignore:
Timestamp:
Dec 22, 2016, 1:41:06 PM (8 years ago)
Author:
chronos
Message:
  • Modified: Created package FastGraphics from graphic library files.
Location:
branches/gbitmap
Files:
15 added
4 deleted
3 edited

Legend:

Unmodified
Added
Removed

  • branches/gbitmap/UFormMain.pas

    r23 r24  
    273273  Image: TFPixmap;
    274274begin
    275   Image := TFPixmap.Create;
     275  Image := TFPixmap.Create(nil);
    276276  with Image do begin
    277277    Size := Point(100, 100);
    … …  
    288288procedure TForm1.FormShow(Sender: TObject);
    289289begin
    290   with ColorFormatManager do begin
    291     RegisterFormat(TColorFormatGray1);
    292     RegisterFormat(TColorFormatGray2);
    293     RegisterFormat(TColorFormatGray4);
    294     RegisterFormat(TColorFormatGray8);
    295     RegisterFormat(TColorFormatRGB8);
    296     RegisterFormat(TColorFormatRGBA8);
    297     RegisterFormat(TColorFormatRGB565);
    298   end;
    299290  ListBox1.ItemIndex := 0;
    300291end;

  • branches/gbitmap/project1.lpi

    r23 r24  
    2929          <SearchPaths>
    3030            <IncludeFiles Value="$(ProjOutDir)"/>
    31             <OtherUnitFiles Value="ColorFormats"/>
    3231            <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    3332          </SearchPaths>
    … …  
    6564      </local>
    6665    </RunParams>
    67     <RequiredPackages Count="1">
     66    <RequiredPackages Count="2">
    6867      <Item1>
     68        <PackageName Value="FastGraphics"/>
     69        <DefaultFilename Value="Packages\FastGraphics\FastGraphics.lpk" Prefer="True"/>
     70      </Item1>
     71      <Item2>
    6972        <PackageName Value="LCL"/>
    70       </Item1>
     73      </Item2>
    7174    </RequiredPackages>
    72     <Units Count="12">
     75    <Units Count="2">
    7376      <Unit0>
    7477        <Filename Value="project1.lpr"/>
    … …  
    8285        <ResourceBaseClass Value="Form"/>
    8386      </Unit1>
    84       <Unit2>
    85         <Filename Value="UGGraphics.pas"/>
    86         <IsPartOfProject Value="True"/>
    87       </Unit2>
    88       <Unit3>
    89         <Filename Value="UFGraphics.pas"/>
    90         <IsPartOfProject Value="True"/>
    91       </Unit3>
    92       <Unit4>
    93         <Filename Value="UPixmapSpecialized.pas"/>
    94         <IsPartOfProject Value="True"/>
    95       </Unit4>
    96       <Unit5>
    97         <Filename Value="ColorFormats\UColorGray1.pas"/>
    98         <IsPartOfProject Value="True"/>
    99       </Unit5>
    100       <Unit6>
    101         <Filename Value="ColorFormats\UColorGray4.pas"/>
    102         <IsPartOfProject Value="True"/>
    103       </Unit6>
    104       <Unit7>
    105         <Filename Value="ColorFormats\UColorGray8.pas"/>
    106         <IsPartOfProject Value="True"/>
    107       </Unit7>
    108       <Unit8>
    109         <Filename Value="ColorFormats\UColorRGB565.pas"/>
    110         <IsPartOfProject Value="True"/>
    111       </Unit8>
    112       <Unit9>
    113         <Filename Value="ColorFormats\UColorRGBA8.pas"/>
    114         <IsPartOfProject Value="True"/>
    115       </Unit9>
    116       <Unit10>
    117         <Filename Value="ColorFormats\UColorGray2.pas"/>
    118         <IsPartOfProject Value="True"/>
    119       </Unit10>
    120       <Unit11>
    121         <Filename Value="ColorFormats\UColorRGB8.pas"/>
    122         <IsPartOfProject Value="True"/>
    123       </Unit11>
    12487    </Units>
    12588  </ProjectOptions>
    … …  
    13295    <SearchPaths>
    13396      <IncludeFiles Value="$(ProjOutDir)"/>
    134       <OtherUnitFiles Value="ColorFormats"/>
    13597      <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    13698    </SearchPaths>

  • branches/gbitmap/project1.lpr

    r23 r24  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   SysUtils, Forms, UFormMain, UGGraphics,
    11 UFGraphics, UPixmapSpecialized, UColorRGB8
    12   { you can add units after this };
     10  SysUtils, Forms, UFormMain;
    1311
    1412{$R *.res}
Note: See TracChangeset for help on using the changeset viewer.