summaryrefslogtreecommitdiff
path: root/docview/src/frm_text.pas
blob: c005f210fb53a95c6e6b2814933e6a594bad0006 (plain)
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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
{
  A simple form with a memo to display text. Handle for debuging etc.
}
unit frm_text;

{$mode objfpc}{$H+}

interface

uses
  SysUtils, Classes, fpg_base, fpg_main, fpg_form, fpg_button, fpg_memo;

type

  TTextForm = class(TfpgForm)
  private
    {@VFD_HEAD_BEGIN: TextForm}
    btnClose: TfpgButton;
    Memo1: TfpgMemo;
    btnCopy: TfpgButton;
    {@VFD_HEAD_END: TextForm}
    procedure btnCopyClicked(Sender: TObject);
  public
    procedure AfterCreate; override;
  end;

{@VFD_NEWFORM_DECL}

procedure ShowText(const ATitle: TfpgString; const AText: TfpgString);


implementation


procedure ShowText(const ATitle: TfpgString; const AText: TfpgString);
var
  frm: TTextForm;
begin
  frm := TTextForm.Create(nil);
  try
    if ATitle = '' then
      frm.WindowTitle := 'Text Form'
    else
      frm.WindowTitle := ATitle;
    frm.Memo1.Lines.Text := AText;
    frm.ShowModal;
  finally
    frm.Free;
  end;
end;

{@VFD_NEWFORM_IMPL}

procedure TTextForm.btnCopyClicked(Sender: TObject);
begin
  fpgClipboard.Text := Memo1.Lines.Text;
end;

procedure TTextForm.AfterCreate;
begin
  {%region 'Auto-generated GUI code' -fold}
  {@VFD_BODY_BEGIN: TextForm}
  Name := 'TextForm';
  SetPosition(405, 197, 496, 297);
  WindowTitle := 'Text Form';
  Hint := '';
  WindowPosition := wpScreenCenter;

  btnClose := TfpgButton.Create(self);
  with btnClose do
  begin
    Name := 'btnClose';
    SetPosition(412, 268, 80, 24);
    Anchors := [anRight,anBottom];
    Text := 'Close';
    FontDesc := '#Label1';
    Hint := '';
    ImageName := '';
    ModalResult := mrOK;
    TabOrder := 1;
  end;

  Memo1 := TfpgMemo.Create(self);
  with Memo1 do
  begin
    Name := 'Memo1';
    SetPosition(0, 0, 496, 260);
    Anchors := [anLeft,anRight,anTop,anBottom];
    Hint := '';
    FontDesc := '#Edit2';
    TabOrder := 2;
  end;

  btnCopy := TfpgButton.Create(self);
  with btnCopy do
  begin
    Name := 'btnCopy';
    SetPosition(4, 268, 128, 24);
    Anchors := [anLeft,anBottom];
    Text := 'Copy to Clipboard';
    FontDesc := '#Label1';
    Hint := '';
    ImageName := '';
    TabOrder := 3;
    OnClick := @btnCopyClicked;
  end;

  {@VFD_BODY_END: TextForm}
  {%endregion}
end;


end.