Class TDemo (unit Asgunit)

Inherits from

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

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;


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;