| Class TFODGEMain (unit uodge_main) |
TForm
| Constructors |
| Functions |
procedure BitBtn2Click(Sender: TObject);
procedure cb1Change(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure Converttogray1Click(Sender: TObject);
procedure DirectoryListBox1Change(Sender: TObject);
procedure EditImage1Click(Sender: TObject);
procedure Filecount1Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ListBox1Click(Sender: TObject);
procedure MyFF1AddFile(path: String; data: TWin32FindDataA;
var cancel: Boolean);
procedure MyFF1ChDir(name: String; var cancel: Boolean);
procedure PopupMenu3Popup(Sender: TObject);
procedure PxiFmtChange(Sender: TObject);
procedure Refresh1Click(Sender: TObject);
procedure Rotate1Click(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton14Click(Sender: TObject);
procedure SpeedButton15Click(Sender: TObject);
procedure SpeedButton16Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure SpinEdit1Change(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure ClearScrollBox;
Function ComputeRecForIndex(idx:integer):TRect;
procedure CutEvents;
procedure dfoc(r:trect);
function getCellCount:integer;
function getcolcount:integer;
function getColWidth:integer;
Function GetCRForIndex(Idx:integer):TPoint;
Function GetCurrentPath:String;
Function GetIndexForCR(Col,Row:integer):Integer;
function getrowcount:integer;
function getRowHeight:integer;
procedure loadcb1;
Function LoadCurrentPage:Boolean;
Procedure LoadImgRegistry;
procedure RecoverEvents;
procedure RefreshGraph;
Procedure SaveCurrentPage;
procedure SetBlinkFocus(value:boolean);
procedure SetBlinkRate(value:integer);
procedure SetColCount(value:integer);
Procedure SetColWidth(value:integer);
procedure setdrawhz(value:boolean);
procedure setdrawvt(value:boolean);
procedure setlinecolor(value:tcolor);
procedure SetRowCount(value:integer);
procedure SetRowHeight(value:integer);
procedure SetType(value:TodgeGtype);
procedure Synchrocb1;
procedure UpdateButtons;| Properties |
property BlinkingFocus : Boolean
property BlinkingRate : integer
property CellCount : integer
property ColCount : Integer
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;
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 : IntegerDé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;