exemplo_gwa/umain.pas at master · andersonsc10/exemplo_gwa · 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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
unit UMain;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, SynHighlighterJScript, SynEdit, Forms, Controls,
  Graphics, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ActnList;

type

  { TFormMain }

  TFormMain = class(TForm)
    ActionClose: TAction;
    ActionConsultar: TAction;
    ActionList1: TActionList;
    Button1: TButton;
    Button2: TButton;
    PageControlPrin: TPageControl;
    PageControlMensagens: TPageControl;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    PanelInfo: TPanel;
    StaticText1: TStaticText;
    DescricaoStatico: TStaticText;
    SynEditRetorno: TSynEdit;
    SynEditReq: TSynEdit;
    SynJScriptSyn1: TSynJScriptSyn;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    procedure ActionCloseExecute(Sender: TObject);
    procedure ActionConsultarExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private

  public

  end;

var
  FormMain: TFormMain;

implementation

uses
  fphttpclient;


{$R *.lfm}

{ TFormMain }

procedure TFormMain.ActionConsultarExecute(Sender: TObject);
var
  I: Integer;
begin
  try
    PanelInfo.Left:=81;
    PanelInfo.Top:=160;
    PanelInfo.Visible:=True;
    DescricaoStatico.Caption:='Consultando status de serviço...';
    Application.ProcessMessages;
    Sleep(3000);
    PageControlMensagens.ActivePageIndex:=1;
    SynEditRetorno.Text:='{ "Status": "Serviço em operação" }';
  finally
    PanelInfo.Visible:=False;
  end;
end;

procedure TFormMain.ActionCloseExecute(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TFormMain.FormShow(Sender: TObject);
begin
  PageControlMensagens.ActivePageIndex:=0;
  PageControlPrin.ActivePageIndex:=0;
  SynEditRetorno.Clear;
  SynEditReq.Clear;
end;


{ TFormMain }


end.