home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sibylft1.zip / DOC.DAT / DOC / SPCC / COLORGRD.PAS < prev    next >
Pascal/Delphi Source File  |  1997-04-07  |  3KB  |  100 lines
  1. UNIT ColorGrd;
  2.  
  3. INTERFACE
  4.  
  5. USES
  6.   Messages,Classes,Forms,StdCtrls;
  7.  
  8. TYPE
  9.   TGridOrdering=(go16x1, go8x2, go4x4, go2x8, go1x16);
  10.  
  11.   TColorGrid=CLASS(TValueSet)
  12.     PRIVATE
  13.        FClickEnablesColor:BOOLEAN;
  14.        FGridOrdering:TGridOrdering;
  15.        FForegroundIndex:LONGINT;
  16.        FBackgroundIndex:LONGINT;
  17.        FForegroundEnabled:BOOLEAN;
  18.        FBackgroundEnabled:BOOLEAN;
  19.        PROCEDURE SetGridOrdering(Value:TGridOrdering);
  20.        PROCEDURE SetForegroundIndex(Value:LONGINT);
  21.        PROCEDURE SetBackgroundIndex(Value:LONGINT);
  22.        PROCEDURE EnableForeground(Value:BOOLEAN);
  23.        PROCEDURE EnableBackground(Value:BOOLEAN);
  24.     PROTECTED
  25.        PROCEDURE SetupComponent;OVERRIDE;
  26.        PROCEDURE DrawSelection(Index:LONGINT);OVERRIDE;
  27.        PROCEDURE DrawInterior(Index:LONGINT);OVERRIDE;
  28.        PROCEDURE MouseDown(Button:TMouseButton;ShiftState:TShiftState;X,Y:LONGINT);OVERRIDE;
  29.        PROCEDURE MouseDblClick(Button:TMouseButton;ShiftState:TShiftState;X,Y:LONGINT);OVERRIDE;
  30.        PROCEDURE CharEvent(VAR Msg:TWMChar;VAR ch:CHAR;RepeatCount:BYTE);OVERRIDE;
  31.        PROPERTY AutoSize;
  32.        PROPERTY Color;
  33.        PROPERTY BitmapData;
  34.        PROPERTY BorderStyle;
  35.        PROPERTY Columns;
  36.        PROPERTY ContentStyle;
  37.        PROPERTY Ctl3D;
  38.        PROPERTY Font;
  39.        PROPERTY ItemBorder;
  40.        PROPERTY ItemHeight;
  41.        PROPERTY ItemWidth;
  42.        PROPERTY ParentColor;
  43.        PROPERTY ParentFont;
  44.        PROPERTY ParentPenColor;
  45.        PROPERTY PenColor;
  46.        PROPERTY Rows;
  47.        PROPERTY ScaleBitmap;
  48.        PROPERTY ScrollBars;
  49.        PROPERTY TextData;
  50.        PROPERTY XAlign;
  51.        PROPERTY XStretch;
  52.        PROPERTY YAlign;
  53.        PROPERTY YStretch;
  54.        PROPERTY OnFontChange;
  55.     PUBLISHED
  56.        PROPERTY Align;
  57.        PROPERTY BackgroundEnabled:BOOLEAN read FBackgroundEnabled write EnableBackground;
  58.        PROPERTY BackgroundIndex:LONGINT read FBackgroundIndex write SetBackgroundIndex;
  59.        PROPERTY ClickEnablesColor:BOOLEAN read FClickEnablesColor write FClickEnablesColor;
  60.        PROPERTY DragCursor;
  61.        PROPERTY DragMode;
  62.        PROPERTY Enabled;
  63.        PROPERTY ForegroundEnabled:BOOLEAN read FForegroundEnabled write EnableForeground;
  64.        PROPERTY ForegroundIndex:LONGINT read FForegroundIndex write SetForegroundIndex;
  65.        PROPERTY GridOrdering:TGridOrdering read FGridOrdering write SetGridOrdering;
  66.        PROPERTY ParentShowHint;
  67.        PROPERTY Selection;
  68.        PROPERTY ShowHint;
  69.        PROPERTY TabOrder;
  70.        PROPERTY TabStop;
  71.        PROPERTY Visible;
  72.        PROPERTY ZOrder;
  73.  
  74.        PROPERTY OnCanDrag;
  75.        PROPERTY OnDragDrop;
  76.        PROPERTY OnDragOver;
  77.        PROPERTY OnEndDrag;
  78.        PROPERTY OnEnter;
  79.        PROPERTY OnExit;
  80.        PROPERTY OnItemFocus;
  81.        PROPERTY OnItemSelect;
  82.        PROPERTY OnMouseClick;
  83.        PROPERTY OnMouseDblClick;
  84.        PROPERTY OnMouseDown;
  85.        PROPERTY OnMouseMove;
  86.        PROPERTY OnMouseUp;
  87.        PROPERTY OnScan;
  88.        PROPERTY OnSetupShow;
  89.        PROPERTY OnStartDrag;
  90.   END;
  91.  
  92.  
  93. FUNCTION InsertColorGrid(Parent:TControl;Left,Bottom,Width,Height:LONGINT;
  94.   GridOrdering:TGridOrdering):TColorGrid;
  95.  
  96.  
  97. IMPLEMENTATION
  98.  
  99.  
  100.