| Class TDemo (unit Asgunit) |
TForm
| Constructors |
| Functions |
procedure About1Click(Sender: TObject);
procedure AdvStringGrid1AutoDeleteRow(Sender: TObject; aRow: Longint);
procedure AdvStringGrid1AutoInsertRow(Sender: TObject; ARow: Longint);
procedure AdvStringGrid1CanEditCell(Sender: TObject; Arow,
Acol: Integer; var canedit: Boolean);
procedure AdvStringGrid1CellValidate(Sender: TObject; Col,
Row: Integer; var Value: String; var Valid: Boolean);
procedure AdvStringGrid1ClickSort(Sender: TObject; aCol: Longint);
procedure AdvStringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
Rect: TRect; State: TGridDrawState);
procedure AdvStringGrid1GetAlignment(Sender: TObject; ARow,
ACol: Longint; var AAlignment: TAlignment);
procedure AdvStringGrid1GetCellColor(Sender: TObject; ARow,
ACol: Longint; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
procedure AdvStringGrid1GetFormat(Sender: TObject; ACol: Integer;
var AStyle: TSortStyle; var aPrefix, aPostfix: String);
procedure AdvStringGrid1GridHint(Sender: TObject; Arow, Acol: Longint;
var hintstr: string);
procedure AdvStringGrid1PrintPage(Sender: TObject; Canvas: TCanvas;
pagenr, pagexsize, pageysize: Integer);
procedure AdvStringGrid2GetAlignment(Sender: TObject; ARow,
ACol: Integer; var AAlignment: TAlignment);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Column11Click(Sender: TObject);
procedure Copyselectiontoclipboard1Click(Sender: TObject);
procedure Copytoclipboard2Click(Sender: TObject);
procedure CopytoExcel1Click(Sender: TObject);
procedure editgridEllipsClick(Sender: TObject; aCol, aRow: Integer;
var S: String);
procedure editgridGetEditorType(Sender: TObject; aCol, aRow: Integer;
var aEditor: TEditorType);
procedure Findfirst1Click(Sender: TObject);
procedure Findnext1Click(Sender: TObject);
procedure fixedsortClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure LoadfromCSV1Click(Sender: TObject);
procedure Loadfromfile1Click(Sender: TObject);
procedure LoadfromXLS1Click(Sender: TObject);
procedure multilineClick(Sender: TObject);
procedure Pastefromclipboard1Click(Sender: TObject);
procedure Pastefromclipboard2Click(Sender: TObject);
procedure Print2Click(Sender: TObject);
procedure Printpreview1Click(Sender: TObject);
procedure SaveasXLS1Click(Sender: TObject);
procedure SavetoASCII1Click(Sender: TObject);
procedure SavetoCSV1Click(Sender: TObject);
procedure Savetofile1Click(Sender: TObject);
procedure SavetoHTML1Click(Sender: TObject);
procedure Setselection1Click(Sender: TObject);
procedure InitGraphicGrid;| Properties |
| Events |
| Variables |
About1 : TMenuItem;
AdvStringGrid1 : TAdvStringGrid;
AdvStringGrid2 : TAdvStringGrid;
Button3 : TButton;
Button6 : TButton;
Button8 : TButton;
CheckBox1 : TCheckBox;
CheckBox2 : TCheckBox;
CheckBox3 : TCheckBox;
CheckBox4 : TCheckBox;
Clipboard1 : TMenuItem;
colro : TCheckBox;
Column11 : TMenuItem;
Column21 : TMenuItem;
Column31 : TMenuItem;
Column41 : TMenuItem;
Column51 : TMenuItem;
Column61 : TMenuItem;
Column71 : TMenuItem;
Copyselectiontoclipboard1 : TMenuItem;
Copytoclipboard2 : TMenuItem;
Edit2 : TEdit;
editgrid : TAdvStringGrid;
Findfirst1 : TMenuItem;
Findnext1 : TMenuItem;
fixedsort : TCheckBox;
FontDialog1 : TFontDialog;
GroupBox2 : TGroupBox;
GroupBox3 : TGroupBox;
Help1 : TMenuItem;
Hide1 : TMenuItem;
ImageList1 : TImageList;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Loaddata1 : TMenuItem;
LoadfromCSV1 : TMenuItem;
Loadfromfile1 : TMenuItem;
LoadfromXLS1 : TMenuItem;
MainMenu1 : TMainMenu;
multiline : TCheckBox;
PageControl1 : TPageControl;
Pastefromclipboard1 : TMenuItem;
Pastefromclipboard2 : TMenuItem;
Print1 : TMenuItem;
Print2 : TMenuItem;
Printpreview1 : TMenuItem;
RadioGroup1 : TRadioGroup;
SaveasXLS1 : TMenuItem;
SavetoASCII1 : TMenuItem;
SavetoCSV1 : TMenuItem;
Savetofile1 : TMenuItem;
SavetoHTML1 : TMenuItem;
Search1 : TMenuItem;
Setselection1 : TMenuItem;
TabSheet1 : TTabSheet;
TabSheet2 : TTabSheet;
TabSheet3 : TTabSheet;
bitmap1 : tbitmap;
bitmap2 : tbitmap;
bitmap3 : tbitmap;
bitmap4 : tbitmap;
bitmap5 : tbitmap;
icon1 : ticon;
icon2 : ticon;
icon3 : ticon;
icon4 : ticon;
icon5 : ticon;| Constructors |
| Functions |
procedure About1Click(Sender: TObject);
procedure AdvStringGrid1AutoDeleteRow(Sender: TObject; aRow: Longint);
procedure AdvStringGrid1AutoInsertRow(Sender: TObject; ARow: Longint);
procedure AdvStringGrid1CanEditCell(Sender: TObject; Arow,
Acol: Integer; var canedit: Boolean);if multiline.checked then begin for i:=1 to advstringgrid1.rowcount-1 do begin advstringgrid1.cells[2,i]:=advstringgrid1.cells[2,i]+#13#10+'line 2'; end; end;
procedure AdvStringGrid1CellValidate(Sender: TObject; Col,
Row: Integer; var Value: String; var Valid: Boolean);
procedure AdvStringGrid1ClickSort(Sender: TObject; aCol: Longint);
procedure AdvStringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
Rect: TRect; State: TGridDrawState);
procedure AdvStringGrid1GetAlignment(Sender: TObject; ARow,
ACol: Longint; var AAlignment: TAlignment);
procedure AdvStringGrid1GetCellColor(Sender: TObject; ARow,
ACol: Longint; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
procedure AdvStringGrid1GetFormat(Sender: TObject; ACol: Integer;
var AStyle: TSortStyle; var aPrefix, aPostfix: String);
procedure AdvStringGrid1GridHint(Sender: TObject; Arow, Acol: Longint;
var hintstr: string);bitmap1:=tbitmap.create; bitmap1.loadfromfile('image1.bmp'); advstringgrid1.addbitmap(1,1,bitmap1,haBeforeText,vaTop); advstringgrid1.addbitmap(2,0,bitmap1,haBeforeText,vaTop); bitmap2:=tbitmap.create; bitmap2.loadfromfile('image2.bmp'); advstringgrid1.addbitmap(1,2,bitmap2,haBeforeText,vaTop); } icon1:=ticon.create; icon1.loadfromfile('d:\internet\misc\icons\trashcan.ico'); advstringgrid1.addicon(3,1,icon1,haBeforeText,vaTop); icon2:=ticon.create; icon2.loadfromfile('d:\internet\misc\icons\cpu.ico'); advstringgrid1.addicon(3,2,icon2,haBeforeText,vaTop);
procedure AdvStringGrid1PrintPage(Sender: TObject; Canvas: TCanvas;
pagenr, pagexsize, pageysize: Integer);
procedure AdvStringGrid2GetAlignment(Sender: TObject; ARow,
ACol: Integer; var AAlignment: TAlignment);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);advstringgrid1.print; advstringgrid1.printpreview(paintbox1.canvas);
procedure Column11Click(Sender: TObject);
procedure Copyselectiontoclipboard1Click(Sender: TObject);
procedure Copytoclipboard2Click(Sender: TObject);
procedure CopytoExcel1Click(Sender: TObject);
procedure editgridEllipsClick(Sender: TObject; aCol, aRow: Integer;
var S: String);
procedure editgridGetEditorType(Sender: TObject; aCol, aRow: Integer;
var aEditor: TEditorType);
procedure Findfirst1Click(Sender: TObject);
procedure Findnext1Click(Sender: TObject);
procedure fixedsortClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);if (col>=3) then begin val(value,i,code); valid:=(code=0) and (i>0); if not valid then messagedlg('Validation example'#13#10'Input should be a number > 0',mtinformation,[mbok],0); end;
procedure FormCreate(Sender: TObject);
procedure LoadfromCSV1Click(Sender: TObject);
procedure Loadfromfile1Click(Sender: TObject);
procedure LoadfromXLS1Click(Sender: TObject);
procedure multilineClick(Sender: TObject);
procedure Pastefromclipboard1Click(Sender: TObject);
procedure Pastefromclipboard2Click(Sender: TObject);
procedure Print2Click(Sender: TObject);
procedure Printpreview1Click(Sender: TObject);
procedure SaveasXLS1Click(Sender: TObject);
procedure SavetoASCII1Click(Sender: TObject);if col=2 then with advstringgrid1.canvas do begin moveto(rect.left,rect.top); lineto(rect.right,rect.bottom); end;
procedure SavetoCSV1Click(Sender: TObject);
procedure Savetofile1Click(Sender: TObject);
procedure SavetoHTML1Click(Sender: TObject);
procedure Setselection1Click(Sender: TObject);
procedure InitGraphicGrid;| Properties |
| Events |
| Variables |
About1 : TMenuItem;
AdvStringGrid1 : TAdvStringGrid;
AdvStringGrid2 : TAdvStringGrid;
Button3 : TButton;
Button6 : TButton;
Button8 : TButton;
CheckBox1 : TCheckBox;
CheckBox2 : TCheckBox;
CheckBox3 : TCheckBox;
CheckBox4 : TCheckBox;
Clipboard1 : TMenuItem;
colro : TCheckBox;
Column11 : TMenuItem;
Column21 : TMenuItem;
Column31 : TMenuItem;
Column41 : TMenuItem;
Column51 : TMenuItem;
Column61 : TMenuItem;
Column71 : TMenuItem;
Copyselectiontoclipboard1 : TMenuItem;
Copytoclipboard2 : TMenuItem;
Edit2 : TEdit;
editgrid : TAdvStringGrid;
Findfirst1 : TMenuItem;
Findnext1 : TMenuItem;
fixedsort : TCheckBox;
FontDialog1 : TFontDialog;
GroupBox2 : TGroupBox;
GroupBox3 : TGroupBox;
Help1 : TMenuItem;
Hide1 : TMenuItem;
ImageList1 : TImageList;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Loaddata1 : TMenuItem;
LoadfromCSV1 : TMenuItem;
Loadfromfile1 : TMenuItem;
LoadfromXLS1 : TMenuItem;
MainMenu1 : TMainMenu;
multiline : TCheckBox;
PageControl1 : TPageControl;
Pastefromclipboard1 : TMenuItem;
Pastefromclipboard2 : TMenuItem;
Print1 : TMenuItem;
Print2 : TMenuItem;
Printpreview1 : TMenuItem;
RadioGroup1 : TRadioGroup;
SaveasXLS1 : TMenuItem;
SavetoASCII1 : TMenuItem;
SavetoCSV1 : TMenuItem;
Savetofile1 : TMenuItem;
SavetoHTML1 : TMenuItem;
Search1 : TMenuItem;
Setselection1 : TMenuItem;
TabSheet1 : TTabSheet;
TabSheet2 : TTabSheet;
TabSheet3 : TTabSheet;
bitmap1 : tbitmap;
bitmap2 : tbitmap;
bitmap3 : tbitmap;
bitmap4 : tbitmap;
bitmap5 : tbitmap;
icon1 : ticon;
icon2 : ticon;
icon3 : ticon;
icon4 : ticon;
icon5 : ticon;