Class TBillBoardEditor (unit BBEditor)

Inherits from

TForm

*) (* TBBMask dialog editor definition *) (*

Constructors



Functions

procedure bb_editorMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure bb_editorMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure bb_rulerMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure bb_rulerMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure btCancelClick(Sender: TObject);


procedure btDoneClick(Sender: TObject);


procedure btRestoreAllClick(Sender: TObject);


procedure btRestoreClick(Sender: TObject);


procedure btRestoreDefaultsClick(Sender: TObject);


procedure FormCreate(Sender: TObject);

Events.

procedure rbBulbStyleClick(Sender: TObject);


procedure rbDotStyleClick(Sender: TObject);


procedure ScrollBarChange(Sender: TObject);


procedure ScrollBarScroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);


procedure Execute( BillBoard: TBillBoard );

Public declarations

'M' ( MANSOFT


procedure ChangeStyles( Value: TDotStyle );


procedure CharClick( Index: integer );

Binario => 01000000

procedure InitializeAll;

Methods.

procedure RulerFromChar( Value: integer );


procedure SetCell( Value: TPoint );


Properties

Events

Variables

bb_editor : TBillBoard;


bb_image : TBillBoard;


bb_ruler : TBillBoard;


Bevel8 : TBevel;


btCancel : TButton;


btDone : TButton;


btRestore : TButton;


btRestoreAll : TButton;


btRestoreDefaults : TButton;


GroupBox1 : TGroupBox;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


rbBulbStyle : TRadioButton;


rbDotStyle : TRadioButton;


ScrollBar : TScrollBar;


FBBMask : TBBMask;

Private declarations

FBillBoard : TBillBoard;



Constructors


Functions


procedure bb_editorMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure bb_editorMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure bb_rulerMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure bb_rulerMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure btCancelClick(Sender: TObject);


procedure btDoneClick(Sender: TObject);


procedure btRestoreAllClick(Sender: TObject);


procedure btRestoreClick(Sender: TObject);


procedure btRestoreDefaultsClick(Sender: TObject);


procedure FormCreate(Sender: TObject);

Events...


procedure rbBulbStyleClick(Sender: TObject);


procedure rbDotStyleClick(Sender: TObject);


procedure ScrollBarChange(Sender: TObject);


procedure ScrollBarScroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);


procedure Execute( BillBoard: TBillBoard );

Public declarations

'M' ( MANSOFT


procedure ChangeStyles( Value: TDotStyle );


procedure CharClick( Index: integer );

Binario => 01000000


procedure InitializeAll;

Methods...


procedure RulerFromChar( Value: integer );


procedure SetCell( Value: TPoint );


Properties


Events


Variables


bb_editor : TBillBoard;


bb_image : TBillBoard;


bb_ruler : TBillBoard;


Bevel8 : TBevel;


btCancel : TButton;


btDone : TButton;


btRestore : TButton;


btRestoreAll : TButton;


btRestoreDefaults : TButton;


GroupBox1 : TGroupBox;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


rbBulbStyle : TRadioButton;


rbDotStyle : TRadioButton;


ScrollBar : TScrollBar;


FBBMask : TBBMask;

Private declarations


FBillBoard : TBillBoard;