Class TDemo (unit Asgunit) |
Inherits from
TForm
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.
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.
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.
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.
procedure SavetoCSV1Click(Sender: TObject);
procedure Savetofile1Click(Sender: TObject);
procedure SavetoHTML1Click(Sender: TObject);
procedure Setselection1Click(Sender: TObject);
procedure InitGraphicGrid;
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;
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;
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;