Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Мини-редактор графов / Unit3
.pas unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, Grids, ComCtrls;
type
TForm3 = class(TForm)
Splitter1: TSplitter;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
StatusBar1: TStatusBar;
StringGrid1: TStringGrid;
BitBtn1: TBitBtn;
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
var j,i:integer;
ver: integer;
r: array [1..50,1..50] of integer;
implementation
uses unit1;
{$R *.dfm}
procedure TForm3.BitBtn5Click(Sender: TObject);
begin
Form3.Close;
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
if BitBtn2.Caption='Редактировать' then
begin
BitBtn2.Caption:='Ввод';
StringGrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goEditing];
BitBtn3.Visible:=true;
end
else
begin
BitBtn2.Caption:='Редактировать';
StringGrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect];
for i:=1 to n do
for j:=1 to n do
if StringGrid1.cells[j,i]='-' then s[i,j]:=maxves
else s[i,j]:=strtoint(StringGrid1.Cells[j,i]);
BitBtn3.Visible:=false;
Form1.N26Click(t);
end
end;
procedure TForm3.BitBtn3Click(Sender: TObject);
begin
BitBtn2.Caption:='Редактировать';
StringGrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect];
BitBtn3.Visible:=false;
end;
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
close;
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, Grids, ComCtrls;
type
TForm3 = class(TForm)
Splitter1: TSplitter;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
StatusBar1: TStatusBar;
StringGrid1: TStringGrid;
BitBtn1: TBitBtn;
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
var j,i:integer;
ver: integer;
r: array [1..50,1..50] of integer;
implementation
uses unit1;
{$R *.dfm}
procedure TForm3.BitBtn5Click(Sender: TObject);
begin
Form3.Close;
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
if BitBtn2.Caption='Редактировать' then
begin
BitBtn2.Caption:='Ввод';
StringGrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goEditing];
BitBtn3.Visible:=true;
end
else
begin
BitBtn2.Caption:='Редактировать';
StringGrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect];
for i:=1 to n do
for j:=1 to n do
if StringGrid1.cells[j,i]='-' then s[i,j]:=maxves
else s[i,j]:=strtoint(StringGrid1.Cells[j,i]);
BitBtn3.Visible:=false;
Form1.N26Click(t);
end
end;
procedure TForm3.BitBtn3Click(Sender: TObject);
begin
BitBtn2.Caption:='Редактировать';
StringGrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect];
BitBtn3.Visible:=false;
end;
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
close;
end;
end.
Соседние файлы в папке Мини-редактор графов