xTranslator/TESVT_ToolHeader.pas at main · vanmatten/xTranslator · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
unit TESVT_ToolHeader;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ButtonGroup, TESVT_Const, TESVT_Ressources;

type
  TForm19 = class(TForm)
    ButtonGroup1: TButtonGroup;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure ButtonGroup1ButtonClicked(Sender: TObject; Index: Integer);
    procedure Button2Click(Sender: TObject);
  private
    procedure initHeaderButtons;
  public
    HeaderOut: Integer;
  end;

var
  Form19: TForm19;

implementation

uses TESVT_ToolboxOptions;

{$R *.dfm}

procedure TForm19.Button2Click(Sender: TObject);
begin
  form17 := tform17.create(self);
  form17.label1.Caption:= getres('HeaderListInfo');
  form17.Button3.visible:= true;
  form17.Memo1.lines.Text := lDEFUIHeader.Text;
  form17.showmodal;
  if form17.modalResult = mrOk then
    lDEFUIHeader.Text := form17.Memo1.lines.Text;
  form17.free;
  //redraw buttons
  ButtonGroup1.Items.Clear;
  initHeaderButtons;
end;

procedure TForm19.ButtonGroup1ButtonClicked(Sender: TObject; Index: Integer);
begin
  modalResult := mrOK;
  HeaderOut := index;
end;

procedure tForm19.initHeaderButtons;
var
  i: integer;
  ti: TGrpButtonItem;
begin
  // first button = delete header
  ti := ButtonGroup1.Items.add;
  ti.caption := getRes('NoHeader');
  ti.ImageIndex := 12;
  // then list
  for i := 0 to pred(lDEFUIHeader.count) do
  begin
    ti := ButtonGroup1.Items.add;
    ti.caption := lDEFUIHeader[i];
    ti.ImageIndex := 1;
  end;
end;


procedure TForm19.FormCreate(Sender: TObject);
begin
  Init_caption(self);
  initHeaderButtons;
end;

end.