| Class TChkStrLstDlg (unit ChkStrEd) |
TForm
| Constructors |
| Functions |
procedure btnCopyClick( Sender : TObject );
procedure btnCutClick( Sender : TObject );
procedure btnDeleteClick(Sender: TObject);
procedure btnFontClick( Sender : TObject );
procedure btnOkClick( Sender : TObject );
procedure btnPasteClick( Sender : TObject );
procedure btnUndoClick( Sender : TObject );
procedure cmdDownClick(Sender: TObject);
procedure cmdUpClick(Sender: TObject);
procedure FormCreate( Sender : TObject );
procedure FormDestroy( Sender : TObject );
procedure grdEditClick(Sender: TObject);
procedure grdEditDblClick(Sender: TObject);
procedure grdEditDrawCell(Sender: TObject; Col, Row: Longint;
Rect: TRect; State: TGridDrawState);
procedure grdEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure grdEditKeyPress(Sender: TObject; var Key: Char);
procedure grdEditMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure grdEditMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SetGridToText;
procedure SetTextToGrid;
procedure ClearRow(Row: Integer);
procedure EnableButtons( Enable : Boolean );
procedure ResizeGrid;
procedure UpdateClipboardStatus;
procedure UpdateLineColStatus;| Properties |
| Events |
| Variables |
btnCancel : TButton;
btnCopy : TSpeedButton;
btnCut : TSpeedButton;
btnDelete : TSpeedButton;
btnFont : TSpeedButton;
btnOk : TButton;
btnPaste : TSpeedButton;
btnUndo : TSpeedButton;
chkDefault : TCheckBox;
cmdDown : TSpeedButton;
cmdUp : TSpeedButton;
dlgFont : TFontDialog;
edtStrings : TMemo;
grdEdit : TStringGrid;
lblCount : TLabel;
lblLine : TLabel;
lblLineNr : TLabel;
mnuCopy : TMenuItem;
mnuCut : TMenuItem;
mnuEdit : TPopupMenu;
mnuPaste : TMenuItem;
mnuUndo : TMenuItem;
pnlStringList : TPanel;
pnlToolbar : TPanel;
DelphiIni : TIniFile;
FPropName : string;| Constructors |
| Functions |
procedure btnCopyClick( Sender : TObject );
procedure btnCutClick( Sender : TObject );
procedure btnDeleteClick(Sender: TObject);
procedure btnFontClick( Sender : TObject );Save New Default Settings
procedure btnOkClick( Sender : TObject );
procedure btnPasteClick( Sender : TObject );
procedure btnUndoClick( Sender : TObject );
procedure cmdDownClick(Sender: TObject);
procedure cmdUpClick(Sender: TObject);
procedure FormCreate( Sender : TObject );
procedure FormDestroy( Sender : TObject );Load settings from DELPHI.INI File
procedure grdEditClick(Sender: TObject);Disable the Close menu item, so dialog cannot be closed
procedure grdEditDblClick(Sender: TObject);
procedure grdEditDrawCell(Sender: TObject; Col, Row: Longint;
Rect: TRect; State: TGridDrawState);
procedure grdEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure grdEditKeyPress(Sender: TObject; var Key: Char);
procedure grdEditMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure grdEditMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SetGridToText;
procedure SetTextToGrid;
procedure ClearRow(Row: Integer);
procedure EnableButtons( Enable : Boolean );Clipboard contains Text
procedure ResizeGrid;
procedure UpdateClipboardStatus;
procedure UpdateLineColStatus;| Properties |
| Events |
| Variables |
btnCancel : TButton;
btnCopy : TSpeedButton;
btnCut : TSpeedButton;
btnDelete : TSpeedButton;
btnFont : TSpeedButton;
btnOk : TButton;
btnPaste : TSpeedButton;
btnUndo : TSpeedButton;
chkDefault : TCheckBox;
cmdDown : TSpeedButton;
cmdUp : TSpeedButton;
dlgFont : TFontDialog;
edtStrings : TMemo;
grdEdit : TStringGrid;
lblCount : TLabel;
lblLine : TLabel;
lblLineNr : TLabel;
mnuCopy : TMenuItem;
mnuCut : TMenuItem;
mnuEdit : TPopupMenu;
mnuPaste : TMenuItem;
mnuUndo : TMenuItem;
pnlStringList : TPanel;
pnlToolbar : TPanel;
DelphiIni : TIniFile;
FPropName : string;