Class TDisplay (unit GSDisply)

Inherits from

TGraphicControl

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;



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;