Форум программистов [Powered by Invision Power Board]

Код


unit main;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ComCtrls, ExtCtrls, Buttons, StdCtrls;

type
 Tmainf = class(TForm)
   MenuPanel: TPanel;
   TreeViewPanel: TPanel;
   FooterPanel: TPanel;
   WorkPanel: TPanel;
   Splitter: TSplitter;
   TreeView: TTreeView;
   StartBtn: TSpeedButton;
   NextBtn: TSpeedButton;
   procedure StartBtnClick(Sender: TObject);
   procedure WorkAreaClear();
   procedure NextBtnClick(Sender: TObject);
   procedure RadioPrint(Nname:String);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 mainf: Tmainf;
 Option: TRadioButton;
implementation

uses Math;

{$R *.dfm}

procedure Tmainf.WorkAreaClear();
begin

 while WorkPanel.ComponentCount > 0 do
   WorkPanel.Components[WorkPanel.ComponentCount-1].Free;

end;

procedure Tmainf.RadioPrint(Nname:String);
var
i,n,j,step: Integer;
begin
step:=0;
n:=TreeView.Items.Count;

for i:=0 to n-1 do
if TreeView.Items[i].Text = Nname then
 begin
  WorkAreaClear;

   for j:=0 to TreeView.Items[i].Count-1 do
    begin
     step:=step+20;
     Option:=TRadioButton.Create(WorkPanel);

        with Option do
         begin
          Parent:=WorkPanel;
          Name:=TreeView.Items[i].Item[j].Text;
          Left:=10;
          Top:=step;
          Caption:=TreeView.Items[i].Item[j].Text;
         end;
    end;

 end;

end;

procedure Tmainf.StartBtnClick(Sender: TObject);
var
i,n,step: Integer;
begin

WorkAreaClear;
step:=0;
n:=TreeView.Items.Count;

 for i:=0 to n-1 do
   begin

    if TreeView.Items[i].Level = 0 then
      begin
       step:=step+20;
       Option:=TRadioButton.Create(WorkPanel);

        with Option do
         begin
          Parent:=WorkPanel;
          Name:=TreeView.Items[i].Text;
          Left:=10;
          Top:=step;
          Caption:=TreeView.Items[i].Text;
         end;

      end;

   end;

end;

procedure Tmainf.NextBtnClick(Sender: TObject);
var
i: Integer;
begin

for i:=0 to WorkPanel.ComponentCount-1 do
  if (WorkPanel.Components[i] is TRadioButton) and
     (((WorkPanel.Components[i])as TRadioButton).Checked)
      then begin
       RadioPrint(((WorkPanel.Components[i])as TRadioButton).Caption);
       Exit;
      end;
end;

end.