Class TFODGEMain (unit uodge_main) |
Inherits from
TForm
procedure BitBtn2Click(Sender: TObject);
----------------------------------------------------------- BitBtn2Click : Full size view -----------------------------------------------------------
procedure cb1Change(Sender: TObject);
----------------------------------------------------------- cb1Change : Quick Path selection -----------------------------------------------------------
procedure CheckBox1Click(Sender: TObject);
----------------------------------------------------------- CheckBox1Click : Stretches selected image -----------------------------------------------------------
procedure Converttogray1Click(Sender: TObject);
----------------------------------------------------------- Converttogray1Click : convert image to gray -----------------------------------------------------------
procedure DirectoryListBox1Change(Sender: TObject);
----------------------------------------------------------- DirectoryListBox1Change : Scans folder -----------------------------------------------------------
procedure EditImage1Click(Sender: TObject);
----------------------------------------------------------- EditImage1Click : Calls Image Editor for selected image -----------------------------------------------------------
procedure Filecount1Click(Sender: TObject);
---------------------------------------------------------------- Filecount1Click : File list popup : shows how much file in list ----------------------------------------------------------------
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
----------------------------------------------------------- FormCloseQuery : Tries to save current page when exiting -----------------------------------------------------------
procedure FormCreate(Sender: TObject);
----------------------------------------------------------- FormCreate : INIT -----------------------------------------------------------
procedure FormDestroy(Sender: TObject);
----------------------------------------------------------- FormDestroy : Good bye.
procedure FormShow(Sender: TObject);
----------------------------------------------------------- FormShow : display edited image type -----------------------------------------------------------
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
--------------------------------------------------------------- Image1MouseDown : Mouse click over the bitmap, simulates cells ---------------------------------------------------------------
procedure ListBox1Click(Sender: TObject);
----------------------------------------------------------- ListBox1Click : multiple inits when a file is selected -----------------------------------------------------------
procedure MyFF1AddFile(path: String; data: TWin32FindDataA;
var cancel: Boolean);
----------------------------------------------------------- MyFF1AddFile : Folder scanner event when a file is found -----------------------------------------------------------
procedure MyFF1ChDir(name: String; var cancel: Boolean);
----------------------------------------------------------- MyFF1ChDir : dummy to allow TMyFF to run.
procedure PopupMenu3Popup(Sender: TObject);
----------------------------------------------------------- PopupMenu3Popup : selected image popup init -----------------------------------------------------------
procedure PxiFmtChange(Sender: TObject);
----------------------------------------------------------- PxiFmtChange : Pixel format change for selected image -----------------------------------------------------------
procedure Refresh1Click(Sender: TObject);
----------------------------------------------------------- Refresh1Click : Image popup -> force refresh.
procedure Rotate1Click(Sender: TObject);
----------------------------------------------------------- Rotate1Click : rotates selected image -----------------------------------------------------------
procedure SpeedButton10Click(Sender: TObject);
----------------------------------------------------------- SpeedButton10Click : Adds a new Quick Path -----------------------------------------------------------
procedure SpeedButton11Click(Sender: TObject);
----------------------------------------------------------- SpeedButton11Click : Deletes current Quick Path -----------------------------------------------------------
procedure SpeedButton12Click(Sender: TObject);
----------------------------------------------------------- SpeedButton12Click : Calls Quick Path editor window -----------------------------------------------------------
procedure SpeedButton13Click(Sender: TObject);
----------------------------------------------------------- SpeedButton13Click : Calls options dialog -----------------------------------------------------------
procedure SpeedButton14Click(Sender: TObject);
----------------------------------------------------------- SpeedButton14Click : Shows ABOUT BOX: DO NOT SUPPRESS ! -----------------------------------------------------------
procedure SpeedButton15Click(Sender: TObject);
----------------------------------------------------------- SpeedButton15Click : EXIT - CANCEL -----------------------------------------------------------
procedure SpeedButton16Click(Sender: TObject);
----------------------------------------------------------- SpeedButton16Click : EXIT - OK -----------------------------------------------------------
procedure SpeedButton5Click(Sender: TObject);
----------------------------------------------------------- SpeedButton5Click : Copy selected image to clipboard -----------------------------------------------------------
procedure SpeedButton6Click(Sender: TObject);
------------------------------------------------------------- SpeedButton6Click : Paste from Clipboard into selected image -------------------------------------------------------------
procedure SpeedButton7Click(Sender: TObject);
----------------------------------------------------------- SpeedButton7Click : Saves current image to disk (dialog) -----------------------------------------------------------
procedure SpeedButton8Click(Sender: TObject);
----------------------------------------------------------- SpeedButton8Click : Loads an image from disk (dialog) -----------------------------------------------------------
procedure SpeedButton9Click(Sender: TObject);
----------------------------------------------------------- SpeedButton9Click : Clears selected image -----------------------------------------------------------
procedure SpinEdit1Change(Sender: TObject);
----------------------------------------------------------- SpinEdit1Change -----------------------------------------------------------
procedure Timer1Timer(Sender: TObject);
----------------------------------------------------------- Timer1Timer : blinking focused cell -----------------------------------------------------------
procedure ClearScrollBox;
----------------------------------------------------------- ClearScrollBox : -----------------------------------------------------------
Function ComputeRecForIndex(idx:integer):TRect;
********* MAIN ********** ----------------------------------------------------------- ComputeRecForIndex : returns a Trect for linear index Idx -----------------------------------------------------------
procedure CutEvents;
----------------------------------------------------------- CutEvents : disables controls (avoiding endless calls loop) -----------------------------------------------------------
procedure dfoc(r:trect);
----------------------------------------------------------- dfoc : draws the focus cell in the bitmap -----------------------------------------------------------
function getCellCount:integer;
----------------------------------------------------------- getCellCount -----------------------------------------------------------
function getcolcount:integer;
----------------------------------------------------------- GetColCount -----------------------------------------------------------
function getColWidth:integer;
----------------------------------------------------------- getColWidth -----------------------------------------------------------
Function GetCRForIndex(Idx:integer):TPoint;
------------------------------------------------------------ GetCRForIndex : uses a tricky Tpoint to return cell Col/Row from a linear index ------------------------------------------------------------
Function GetCurrentPath:String;
----------------------------------------------------------- GetCurrentpath : returns current path correctly formated -----------------------------------------------------------
Function GetIndexForCR(Col,Row:integer):Integer;
----------------------------------------------------------- GetIndexForCR : returns linear index for Col and Row -----------------------------------------------------------
function getrowcount:integer;
----------------------------------------------------------- GetRowCount -----------------------------------------------------------
function getRowHeight:integer;
----------------------------------------------------------- getRowHeight -----------------------------------------------------------
procedure loadcb1;
----------------------------------------------------------- LoadCb1 : loads Quick Path combo items -----------------------------------------------------------
Function LoadCurrentPage:Boolean;
----------------------------------------------------------- LoadCurrentpage : Tries to load "ODGEPAGE.
Procedure LoadImgRegistry;
----------------------------------------------------------- LoadRegistry : load options from registry -----------------------------------------------------------
procedure RecoverEvents;
----------------------------------------------------------- RecoverEvents : enabled previsously disabled controls -----------------------------------------------------------
procedure RefreshGraph;
------------------------------------------------------------ Refreshgraph : recreate the main bitmap from glyphs on disk ------------------------------------------------------------
Procedure SaveCurrentPage;
----------------------------------------------------------- SaveCurrentPage : Creates "ODGEPAGE.
procedure SetBlinkFocus(value:boolean);
----------------------------------------------------------- SetBlinkFocus : set blinking focused rect on/off -----------------------------------------------------------
procedure SetBlinkRate(value:integer);
----------------------------------------------------------- SetBlinkrate : blink timer delay -----------------------------------------------------------
procedure SetColCount(value:integer);
----------------------------------------------------------- SetColCount -----------------------------------------------------------
Procedure SetColWidth(value:integer);
----------------------------------------------------------- SetColWidth -----------------------------------------------------------
procedure setdrawhz(value:boolean);
----------------------------------------------------------- setdrawhz -----------------------------------------------------------
procedure setdrawvt(value:boolean);
----------------------------------------------------------- setdrawvt -----------------------------------------------------------
procedure setlinecolor(value:tcolor);
----------------------------------------------------------- setlinecolor -----------------------------------------------------------
procedure SetRowCount(value:integer);
----------------------------------------------------------- SetRowCount -----------------------------------------------------------
procedure SetRowHeight(value:integer);
----------------------------------------------------------- SetRowHeight -----------------------------------------------------------
procedure SetType(value:TodgeGtype);
----------------------------------------------------------- SetType : set type of graph allowed (bmp, ico.
procedure Synchrocb1;
----------------------------------------------------------- SynchroCb1 : syncs Quick Path combo -----------------------------------------------------------
procedure UpdateButtons;
----------------------------------------------------------- UpdateButtons : update simulation area; -----------------------------------------------------------
property BlinkingFocus : Boolean
property BlinkingRate : integer
property CellCount : integer
property ColCount : Integer
Déclarations publiques
property ColWidth : integer
property CurrentPath : string
property DrawHZ : boolean
property DrawVT : boolean
property GraphType : TODGEGtype
property LineColor : Tcolor
property RowCount : integer
property RowHeight : integer
Bevel1 : TBevel;
BitBtn1 : TBitBtn;
BitBtn2 : TBitBtn;
cb1 : TComboBox;
CheckBox1 : TCheckBox;
Converttogray1 : TMenuItem;
Custom1 : TMenuItem;
Device1 : TMenuItem;
DirectoryListBox1 : TDirectoryListBox;
DriveComboBox1 : TDriveComboBox;
EditImage1 : TMenuItem;
Filecount1 : TMenuItem;
FormPlacement1 : TFormPlacement;
Image1 : TImage;
Image2 : TImage;
Label1 : TLabel;
Label2 : TLabel;
ListBox1 : TListBox;
MyFF1 : TMyFF;
N1 : TMenuItem;
N15bit1 : TMenuItem;
N16bit1 : TMenuItem;
N1bit1 : TMenuItem;
N24bit1 : TMenuItem;
N32bit1 : TMenuItem;
N4bit1 : TMenuItem;
N8bit1 : TMenuItem;
opd1 : TOpenPictureDialog;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
Panel4 : TPanel;
Panel5 : TPanel;
Panel6 : TPanel;
Panel7 : TPanel;
Panel8 : TPanel;
Panel9 : TPanel;
PopupMenu1 : TPopupMenu;
PopupMenu2 : TPopupMenu;
PopupMenu3 : TPopupMenu;
Refresh1 : TMenuItem;
Rotate1 : TMenuItem;
ScrollBox1 : TScrollBox;
spd1 : TSavePictureDialog;
SpeedButton1 : TSpeedButton;
SpeedButton10 : TSpeedButton;
SpeedButton11 : TSpeedButton;
SpeedButton12 : TSpeedButton;
SpeedButton13 : TSpeedButton;
SpeedButton14 : TSpeedButton;
SpeedButton15 : TSpeedButton;
SpeedButton16 : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton3 : TSpeedButton;
SpeedButton4 : TSpeedButton;
SpeedButton5 : TSpeedButton;
SpeedButton6 : TSpeedButton;
SpeedButton7 : TSpeedButton;
SpeedButton8 : TSpeedButton;
SpeedButton9 : TSpeedButton;
SpinEdit1 : TSpinEdit;
Splitter2 : TSplitter;
Splitter3 : TSplitter;
Timer1 : TTimer;
fblinkfocus : boolean;
fblinkrate : integer;
fBoard : TBitmap;
fcolcount : integer;
fColWidth : integer;
fcopystretch : boolean;
fcopythr : integer;
fcounter : integer;
fcreating : boolean;
fdrawhz : boolean;
fdrawvt : boolean;
ffocuscolor : tcolor;
ffocused : boolean;
flastblink : trect;
fLastFocused : Trect;
flastidx : integer;
flastloaddir : string;
fLastPicWH : Tpoint;
flinecolor : tcolor;
fMustSave : Boolean;
fnegfoc : boolean;
fokblink : boolean;
fPageFile : String;
fpause : integer;
fPicEditor : string;
fpix : TPixelFormat;
fQuickmode : Boolean;
fQuickpath : TStringList;
fRowCount : integer;
fRowHeight : integer;
ftype : TODGEGType;
Déclarations privées
Updating : boolean;
procedure BitBtn2Click(Sender: TObject);
----------------------------------------------------------- BitBtn2Click : Full size view -----------------------------------------------------------
procedure cb1Change(Sender: TObject);
----------------------------------------------------------- cb1Change : Quick Path selection -----------------------------------------------------------
procedure CheckBox1Click(Sender: TObject);
----------------------------------------------------------- CheckBox1Click : Stretches selected image -----------------------------------------------------------
procedure Converttogray1Click(Sender: TObject);
----------------------------------------------------------- Converttogray1Click : convert image to gray -----------------------------------------------------------
procedure DirectoryListBox1Change(Sender: TObject);
----------------------------------------------------------- DirectoryListBox1Change : Scans folder -----------------------------------------------------------
procedure EditImage1Click(Sender: TObject);
----------------------------------------------------------- EditImage1Click : Calls Image Editor for selected image -----------------------------------------------------------
procedure Filecount1Click(Sender: TObject);
---------------------------------------------------------------- Filecount1Click : File list popup : shows how much file in list ----------------------------------------------------------------
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
----------------------------------------------------------- FormCloseQuery : Tries to save current page when exiting -----------------------------------------------------------
procedure FormCreate(Sender: TObject);
----------------------------------------------------------- FormCreate : INIT -----------------------------------------------------------
procedure FormDestroy(Sender: TObject);
----------------------------------------------------------- FormDestroy : Good bye... -----------------------------------------------------------
procedure FormShow(Sender: TObject);
----------------------------------------------------------- FormShow : display edited image type -----------------------------------------------------------
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
--------------------------------------------------------------- Image1MouseDown : Mouse click over the bitmap, simulates cells ---------------------------------------------------------------
procedure ListBox1Click(Sender: TObject);
----------------------------------------------------------- ListBox1Click : multiple inits when a file is selected -----------------------------------------------------------
procedure MyFF1AddFile(path: String; data: TWin32FindDataA;
var cancel: Boolean);
----------------------------------------------------------- MyFF1AddFile : Folder scanner event when a file is found -----------------------------------------------------------
procedure MyFF1ChDir(name: String; var cancel: Boolean);
----------------------------------------------------------- MyFF1ChDir : dummy to allow TMyFF to run... mysterious ! -----------------------------------------------------------
procedure PopupMenu3Popup(Sender: TObject);
----------------------------------------------------------- PopupMenu3Popup : selected image popup init -----------------------------------------------------------
procedure PxiFmtChange(Sender: TObject);
----------------------------------------------------------- PxiFmtChange : Pixel format change for selected image -----------------------------------------------------------
procedure Refresh1Click(Sender: TObject);
----------------------------------------------------------- Refresh1Click : Image popup -> force refresh. usefull if options are changed. -----------------------------------------------------------
procedure Rotate1Click(Sender: TObject);
----------------------------------------------------------- Rotate1Click : rotates selected image -----------------------------------------------------------
procedure SpeedButton10Click(Sender: TObject);
----------------------------------------------------------- SpeedButton10Click : Adds a new Quick Path -----------------------------------------------------------
procedure SpeedButton11Click(Sender: TObject);
----------------------------------------------------------- SpeedButton11Click : Deletes current Quick Path -----------------------------------------------------------
procedure SpeedButton12Click(Sender: TObject);
----------------------------------------------------------- SpeedButton12Click : Calls Quick Path editor window -----------------------------------------------------------
procedure SpeedButton13Click(Sender: TObject);
----------------------------------------------------------- SpeedButton13Click : Calls options dialog -----------------------------------------------------------
procedure SpeedButton14Click(Sender: TObject);
----------------------------------------------------------- SpeedButton14Click : Shows ABOUT BOX: DO NOT SUPPRESS ! -----------------------------------------------------------
procedure SpeedButton15Click(Sender: TObject);
----------------------------------------------------------- SpeedButton15Click : EXIT - CANCEL -----------------------------------------------------------
procedure SpeedButton16Click(Sender: TObject);
----------------------------------------------------------- SpeedButton16Click : EXIT - OK -----------------------------------------------------------
procedure SpeedButton5Click(Sender: TObject);
----------------------------------------------------------- SpeedButton5Click : Copy selected image to clipboard -----------------------------------------------------------
procedure SpeedButton6Click(Sender: TObject);
------------------------------------------------------------- SpeedButton6Click : Paste from Clipboard into selected image -------------------------------------------------------------
procedure SpeedButton7Click(Sender: TObject);
----------------------------------------------------------- SpeedButton7Click : Saves current image to disk (dialog) -----------------------------------------------------------
procedure SpeedButton8Click(Sender: TObject);
----------------------------------------------------------- SpeedButton8Click : Loads an image from disk (dialog) -----------------------------------------------------------
procedure SpeedButton9Click(Sender: TObject);
----------------------------------------------------------- SpeedButton9Click : Clears selected image -----------------------------------------------------------
procedure SpinEdit1Change(Sender: TObject);
----------------------------------------------------------- SpinEdit1Change -----------------------------------------------------------
procedure Timer1Timer(Sender: TObject);
----------------------------------------------------------- Timer1Timer : blinking focused cell -----------------------------------------------------------
procedure ClearScrollBox;
----------------------------------------------------------- ClearScrollBox : -----------------------------------------------------------
Function ComputeRecForIndex(idx:integer):TRect;
********* MAIN ********** ----------------------------------------------------------- ComputeRecForIndex : returns a Trect for linear index Idx -----------------------------------------------------------
procedure CutEvents;
----------------------------------------------------------- CutEvents : disables controls (avoiding endless calls loop) -----------------------------------------------------------
procedure dfoc(r:trect);
----------------------------------------------------------- dfoc : draws the focus cell in the bitmap -----------------------------------------------------------
function getCellCount:integer;
----------------------------------------------------------- getCellCount -----------------------------------------------------------
function getcolcount:integer;
----------------------------------------------------------- GetColCount -----------------------------------------------------------
function getColWidth:integer;
----------------------------------------------------------- getColWidth -----------------------------------------------------------
Function GetCRForIndex(Idx:integer):TPoint;
------------------------------------------------------------ GetCRForIndex : uses a tricky Tpoint to return cell Col/Row from a linear index ------------------------------------------------------------
Function GetCurrentPath:String;
----------------------------------------------------------- GetCurrentpath : returns current path correctly formated -----------------------------------------------------------
Function GetIndexForCR(Col,Row:integer):Integer;
----------------------------------------------------------- GetIndexForCR : returns linear index for Col and Row -----------------------------------------------------------
function getrowcount:integer;
----------------------------------------------------------- GetRowCount -----------------------------------------------------------
function getRowHeight:integer;
----------------------------------------------------------- getRowHeight -----------------------------------------------------------
procedure loadcb1;
----------------------------------------------------------- LoadCb1 : loads Quick Path combo items -----------------------------------------------------------
Function LoadCurrentPage:Boolean;
----------------------------------------------------------- LoadCurrentpage : Tries to load "ODGEPAGE.ODP" -----------------------------------------------------------
Procedure LoadImgRegistry;
----------------------------------------------------------- LoadRegistry : load options from registry -----------------------------------------------------------
procedure RecoverEvents;
----------------------------------------------------------- RecoverEvents : enabled previsously disabled controls -----------------------------------------------------------
procedure RefreshGraph;
------------------------------------------------------------ Refreshgraph : recreate the main bitmap from glyphs on disk ------------------------------------------------------------
Procedure SaveCurrentPage;
----------------------------------------------------------- SaveCurrentPage : Creates "ODGEPAGE.ODP" file -----------------------------------------------------------
procedure SetBlinkFocus(value:boolean);
----------------------------------------------------------- SetBlinkFocus : set blinking focused rect on/off -----------------------------------------------------------
procedure SetBlinkRate(value:integer);
----------------------------------------------------------- SetBlinkrate : blink timer delay -----------------------------------------------------------
procedure SetColCount(value:integer);
----------------------------------------------------------- SetColCount -----------------------------------------------------------
Procedure SetColWidth(value:integer);
----------------------------------------------------------- SetColWidth -----------------------------------------------------------
procedure setdrawhz(value:boolean);
----------------------------------------------------------- setdrawhz -----------------------------------------------------------
procedure setdrawvt(value:boolean);
----------------------------------------------------------- setdrawvt -----------------------------------------------------------
procedure setlinecolor(value:tcolor);
----------------------------------------------------------- setlinecolor -----------------------------------------------------------
procedure SetRowCount(value:integer);
----------------------------------------------------------- SetRowCount -----------------------------------------------------------
procedure SetRowHeight(value:integer);
----------------------------------------------------------- SetRowHeight -----------------------------------------------------------
procedure SetType(value:TodgeGtype);
----------------------------------------------------------- SetType : set type of graph allowed (bmp, ico...) -----------------------------------------------------------
procedure Synchrocb1;
----------------------------------------------------------- SynchroCb1 : syncs Quick Path combo -----------------------------------------------------------
procedure UpdateButtons;
----------------------------------------------------------- UpdateButtons : update simulation area; -----------------------------------------------------------
property BlinkingFocus : Boolean
property BlinkingRate : integer
property CellCount : integer
property ColCount : Integer
Déclarations publiques
property ColWidth : integer
property CurrentPath : string
property DrawHZ : boolean
property DrawVT : boolean
property GraphType : TODGEGtype
property LineColor : Tcolor
property RowCount : integer
property RowHeight : integer
Bevel1 : TBevel;
BitBtn1 : TBitBtn;
BitBtn2 : TBitBtn;
cb1 : TComboBox;
CheckBox1 : TCheckBox;
Converttogray1 : TMenuItem;
Custom1 : TMenuItem;
Device1 : TMenuItem;
DirectoryListBox1 : TDirectoryListBox;
DriveComboBox1 : TDriveComboBox;
EditImage1 : TMenuItem;
Filecount1 : TMenuItem;
FormPlacement1 : TFormPlacement;
Image1 : TImage;
Image2 : TImage;
Label1 : TLabel;
Label2 : TLabel;
ListBox1 : TListBox;
MyFF1 : TMyFF;
N1 : TMenuItem;
N15bit1 : TMenuItem;
N16bit1 : TMenuItem;
N1bit1 : TMenuItem;
N24bit1 : TMenuItem;
N32bit1 : TMenuItem;
N4bit1 : TMenuItem;
N8bit1 : TMenuItem;
opd1 : TOpenPictureDialog;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
Panel4 : TPanel;
Panel5 : TPanel;
Panel6 : TPanel;
Panel7 : TPanel;
Panel8 : TPanel;
Panel9 : TPanel;
PopupMenu1 : TPopupMenu;
PopupMenu2 : TPopupMenu;
PopupMenu3 : TPopupMenu;
Refresh1 : TMenuItem;
Rotate1 : TMenuItem;
ScrollBox1 : TScrollBox;
spd1 : TSavePictureDialog;
SpeedButton1 : TSpeedButton;
SpeedButton10 : TSpeedButton;
SpeedButton11 : TSpeedButton;
SpeedButton12 : TSpeedButton;
SpeedButton13 : TSpeedButton;
SpeedButton14 : TSpeedButton;
SpeedButton15 : TSpeedButton;
SpeedButton16 : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton3 : TSpeedButton;
SpeedButton4 : TSpeedButton;
SpeedButton5 : TSpeedButton;
SpeedButton6 : TSpeedButton;
SpeedButton7 : TSpeedButton;
SpeedButton8 : TSpeedButton;
SpeedButton9 : TSpeedButton;
SpinEdit1 : TSpinEdit;
Splitter2 : TSplitter;
Splitter3 : TSplitter;
Timer1 : TTimer;
fblinkfocus : boolean;
fblinkrate : integer;
fBoard : TBitmap;
fcolcount : integer;
fColWidth : integer;
fcopystretch : boolean;
fcopythr : integer;
fcounter : integer;
fcreating : boolean;
fdrawhz : boolean;
fdrawvt : boolean;
ffocuscolor : tcolor;
ffocused : boolean;
flastblink : trect;
fLastFocused : Trect;
flastidx : integer;
flastloaddir : string;
fLastPicWH : Tpoint;
flinecolor : tcolor;
fMustSave : Boolean;
fnegfoc : boolean;
fokblink : boolean;
fPageFile : String;
fpause : integer;
fPicEditor : string;
fpix : TPixelFormat;
fQuickmode : Boolean;
fQuickpath : TStringList;
fRowCount : integer;
fRowHeight : integer;
ftype : TODGEGType;
Déclarations privées
Updating : boolean;