Class TFODGEMain (unit uodge_main)

Inherits from

TForm

Constructors



Functions

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; -----------------------------------------------------------

Properties

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


Events

Variables

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;



Constructors


Functions


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; -----------------------------------------------------------


Properties


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


Events


Variables


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;