Changeset 18


Ignore:
Timestamp:
Dec 20, 2016, 7:16:35 AM (7 years ago)
Author:
chronos
Message:
  • Added: Class TImage with TColorFormat and backend classes to encapsulate various different Pixmap types.
Location:
branches/gbitmap
Files:
1 added
3 edited
3 moved

Legend:

Unmodified
Added
Removed

  • branches/gbitmap

    • Property svn:ignore set to
      lib
      project1
      project1.lps
      project1.res

  • branches/gbitmap/GPixmap.pas

    r17 r18  
    1 unit GBitmap;
     1unit GPixmap;
    22
    33{$mode delphi}{$H+}

  • branches/gbitmap/UFormMain.lfm

    r17 r18  
    88  ClientWidth = 685
    99  OnShow = FormShow
    10   LCLVersion = '1.6.2.0'
     10  LCLVersion = '1.6.0.4'
    1111  object Image1: TImage
    1212    Left = 208
    … …  
    3333      'Gray variable-bit'
    3434    )
    35     ItemHeight = 20
     35    ItemHeight = 30
    3636    OnSelectionChange = ListBox1SelectionChange
     37    ScrollWidth = 163
    3738    TabOrder = 0
    3839  end
    3940  object Label1: TLabel
    4041    Left = 18
    41     Height = 20
     42    Height = 24
    4243    Top = 459
    43     Width = 44
     44    Width = 55
    4445    Caption = 'Label1'
    4546    ParentColor = False

  • branches/gbitmap/UFormMain.pas

    r17 r18  
    1 unit Unit1;
     1unit UFormMain;
    22
    33{$mode delphi}{$H+}
    … …  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
    9   ExtCtrls, StdCtrls, GBitmap;
     9  ExtCtrls, StdCtrls, GPixmap;
    1010
    1111type

  • branches/gbitmap/project1.lpi

    r17 r18  
    3434      </Item1>
    3535    </RequiredPackages>
    36     <Units Count="3">
     36    <Units Count="4">
    3737      <Unit0>
    3838        <Filename Value="project1.lpr"/>
    … …  
    4040      </Unit0>
    4141      <Unit1>
    42         <Filename Value="Unit1.pas"/>
     42        <Filename Value="UFormMain.pas"/>
    4343        <IsPartOfProject Value="True"/>
    4444        <ComponentName Value="Form1"/>
     45        <HasResources Value="True"/>
    4546        <ResourceBaseClass Value="Form"/>
    4647      </Unit1>
    4748      <Unit2>
    48         <Filename Value="GBitmap.pas"/>
     49        <Filename Value="GPixmap.pas"/>
    4950        <IsPartOfProject Value="True"/>
    5051      </Unit2>
     52      <Unit3>
     53        <Filename Value="GImage.pas"/>
     54        <IsPartOfProject Value="True"/>
     55      </Unit3>
    5156    </Units>
    5257  </ProjectOptions>

  • branches/gbitmap/project1.lpr

    r17 r18  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, Unit1, GBitmap
     10  Forms, UFormMain, GPixmap, GImage
    1111  { you can add units after this };
    1212
Note: See TracChangeset for help on using the changeset viewer.