releases/0.15a/Unit8_binedit.pas

UNIT Unit8_binedit;
INTERFACE
USES
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, Wrapgrid, StdCtrls;

TYPE
  TForm8 = Class(TForm)
    grid: TWrapGrid;
    ListBox1: TListBox;
    PROCEDURE FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    PROCEDURE FormCreate(Sender: TObject);
  PRIVATE
  PUBLIC
  END;

VAR
  Form8: TForm8;

IMPLEMENTATION
{$R *.dfm}

PROCEDURE TForm8.FormCreate(Sender: TObject);
  BEGIN
    grid.RowCount:=1;
    grid.ColCount:=18;
    grid.FixedCols:=1;
    grid.FixedRows:=0;

    grid.Cells[0,0]:='0x000000';
    grid.ColWidths[0]:=80;
    grid.ColWidths[17]:=140;
    grid.Cells[1,0]:='00';
    grid.Cells[2,0]:='FF';
    grid.Cells[17,0]:='..##############';
  END;

PROCEDURE TForm8.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  BEGIN
    CanClose:=False;
    Form8.Visible:=False;
  END;

END.
Revision:	21
Committed:	Sat Aug 26 19:11:49 2006 UTC (19 years, 2 months ago) by alloc
Content type:	text/x-pascal
File size:	938 byte(s)
Log Message:
#	Content
1	UNIT Unit8_binedit;
2	INTERFACE
3	USES
4	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5	Dialogs, Grids, Wrapgrid, StdCtrls;
6
7	TYPE
8	TForm8 = Class(TForm)
9	grid: TWrapGrid;
10	ListBox1: TListBox;
11	PROCEDURE FormCloseQuery(Sender: TObject; var CanClose: Boolean);
12	PROCEDURE FormCreate(Sender: TObject);
13	PRIVATE
14	PUBLIC
15	END;
16
17	VAR
18	Form8: TForm8;
19
20	IMPLEMENTATION
21	{$R *.dfm}
22
23	PROCEDURE TForm8.FormCreate(Sender: TObject);
24	BEGIN
25	grid.RowCount:=1;
26	grid.ColCount:=18;
27	grid.FixedCols:=1;
28	grid.FixedRows:=0;
29
30	grid.Cells[0,0]:='0x000000';
31	grid.ColWidths[0]:=80;
32	grid.ColWidths[17]:=140;
33	grid.Cells[1,0]:='00';
34	grid.Cells[2,0]:='FF';
35	grid.Cells[17,0]:='..##############';
36	END;
37
38	PROCEDURE TForm8.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
39	BEGIN
40	CanClose:=False;
41	Form8.Visible:=False;
42	END;
43
44	END.