| Class TDisplay (unit GSDisply) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Paint;
procedure DrawBottomSegment(WhereTo: TBitmap; x, y, w, h: integer; OnOff: boolean);
procedure DrawBulb(WhereTo: TBitmap; x, y: integer; OnOff: boolean);
procedure DrawDigit(WhereTo: TBitmap);
procedure DrawDot(WhereTo: TBitmap; x, y: integer; OnOff: boolean);
procedure DrawLeftSegment(WhereTo: TBitmap; x, y, w, h: integer; OnOff: boolean);
procedure DrawNorthEast(WhereTo: TBitmap; x1, y1, x2, y2: integer; OnOff: boolean);
procedure DrawNorthWest(WhereTo: TBitmap; x1, y1, x2, y2: integer; OnOff: boolean);
procedure DrawRightSegment(WhereTo: TBitmap; x, y, w, h: integer; OnOff: boolean);
procedure DrawTopSegment(WhereTo: TBitmap; x, y, w, h: integer; OnOff: boolean);
procedure Hexagon(WhereTo: TBitmap; x, y, w, h: integer; OnOff: boolean);
procedure SetBackColor(WhatColor: TColor);
procedure SetDigit(WhatDigit: char);
procedure SetDigitStyle(WhatStyle: TDigitStyle);
procedure SetMargin(WhatWidth: integer);
procedure SetMeasures;
procedure SetOffColor(WhatColor: TColor);
procedure SetOnColor(WhatColor: TColor);
procedure SetPenOffColor(WhatColor: TColor);
procedure SetPenOnColor(WhatColor: TColor);
procedure SetSegWidth(WhatWidth: integer);| Properties |
property BackColor : TColor
property Digit : char
property DigitStyle : TDigitStyle
property Margin : integer
property OffColor : TColor
property PenOffColor : TColor
property PenOnColor : TColor
property SegWidth : integer| Events |
event OnColor : TColor| Variables |
FBackColor : TColor;
FDigit : char;
FDigitStyle : TDigitStyle;
FMargin : integer;
FOffColor : TColor;
FOnColor : TColor;
FPenOffColor : TColor;
FPenOnColor : TColor;
FSegWidth : integer;
OldHeight : integer;
OldWidth : integer;
SegHalf : integer;
SegHorLen : integer;
SegVerLen : integer;
UpLeft : array[0..34] of TPoint;| Constructors |
constructor Create(AOwner: TComponent);a b c d e f g
| Functions |
procedure Paint;
procedure DrawBottomSegment(WhereTo: TBitmap; x, y, w, h: integer; OnOff: boolean);
procedure DrawBulb(WhereTo: TBitmap; x, y: integer; OnOff: boolean);
procedure DrawDigit(WhereTo: TBitmap);SO
procedure DrawDot(WhereTo: TBitmap; x, y: integer; OnOff: boolean);horizontal, h is SegWidth
procedure DrawLeftSegment(WhereTo: TBitmap; x, y, w, h: integer; OnOff: boolean);
procedure DrawNorthEast(WhereTo: TBitmap; x1, y1, x2, y2: integer; OnOff: boolean);
procedure DrawNorthWest(WhereTo: TBitmap; x1, y1, x2, y2: integer; OnOff: boolean);
procedure DrawRightSegment(WhereTo: TBitmap; x, y, w, h: integer; OnOff: boolean);
procedure DrawTopSegment(WhereTo: TBitmap; x, y, w, h: integer; OnOff: boolean);
procedure Hexagon(WhereTo: TBitmap; x, y, w, h: integer; OnOff: boolean);
procedure SetBackColor(WhatColor: TColor);
procedure SetDigit(WhatDigit: char);
procedure SetDigitStyle(WhatStyle: TDigitStyle);
procedure SetMargin(WhatWidth: integer);
procedure SetMeasures;
procedure SetOffColor(WhatColor: TColor);
procedure SetOnColor(WhatColor: TColor);
procedure SetPenOffColor(WhatColor: TColor);
procedure SetPenOnColor(WhatColor: TColor);
procedure SetSegWidth(WhatWidth: integer);| Properties |
property BackColor : TColor
property Digit : char
property DigitStyle : TDigitStyle
property Margin : integer
property OffColor : TColor
property PenOffColor : TColor
property PenOnColor : TColor
property SegWidth : integer| Events |
event OnColor : TColor| Variables |
FBackColor : TColor;
FDigit : char;
FDigitStyle : TDigitStyle;
FMargin : integer;
FOffColor : TColor;
FOnColor : TColor;
FPenOffColor : TColor;
FPenOnColor : TColor;
FSegWidth : integer;
OldHeight : integer;
OldWidth : integer;
SegHalf : integer;
SegHorLen : integer;
SegVerLen : integer;
UpLeft : array[0..34] of TPoint;