• R/O
  • SSH
  • HTTPS

onstepper: Commit


Commit MetaInfo

Revision8 (tree)
Time2022-04-23 00:07:48
Authorderekwildstar

Log Message

Arquivo renomeado

Change Summary

Incremental Difference

--- trunk/src/UKRFMPrincipal.pas (revision 7)
+++ trunk/src/UKRFMPrincipal.pas (nonexistent)
@@ -1,127 +0,0 @@
1-unit UKRFMPrincipal;
2-
3-{ Anak Krakatoa Form. Copyright Zetta-Ømnis Soluções Tecnológicas Ltda }
4-
5-interface
6-
7-uses
8- Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
9- System.Classes, Vcl.Graphics, Vcl.ComCtrls, Vcl.Controls, Vcl.StdCtrls,
10- Vcl.Forms, KRK.Vcl.Forms, UDamoPrincipal, Vcl.ToolWin, Vcl.ActnMan, Vcl.ActnCtrls,
11- Vcl.ActnMenus, System.Actions, Vcl.ActnList, Winapi.CommCtrl,
12- Vcl.PlatformDefaultStyleActnCtrls, Vcl.ExtCtrls, Vcl.Imaging.pngimage,
13- KRK.Vcl.StdCtrls;
14-
15-type
16- TKrfmPrincipal = class(TKRKForm)
17- AMMBPrincipal: TActionMainMenuBar;
18- AMANPrincipal: TActionManager;
19- ACTNConexaoViaRedeSemFio: TAction;
20- ACTNLocaisDeObservacao: TAction;
21- ACTNConexaoViaUsb: TAction;
22- ACTNSobre: TAction;
23- KRPAFooter: TKRKPanel;
24- IMAGTipoDeConexao: TImage;
25- LABEOnStepIdentification: TLabel;
26- LABEOnStepStatus: TLabel;
27- IMAGAtHome: TImage;
28- PANEStatus: TKRKPanel;
29- IMAGParked: TImage;
30- IMAGTracking: TImage;
31- IMAGGoTo: TImage;
32- ACTNParametros: TAction;
33- procedure ACTNLocaisDeObservacaoExecute(Sender: TObject);
34- procedure FormCreate(Sender: TObject);
35- function KRKFormTTNShow(ANMHdr: tagNMHDR): Boolean;
36- procedure IMAGTipoDeConexaoClick(Sender: TObject);
37- function KRKFormTTNGetDispInfo(ANMDispInfo: PNMTTDispInfoW): Boolean;
38- procedure ACTNConexaoViaRedeSemFioExecute(Sender: TObject);
39- procedure ACTNConexaoViaUsbExecute(Sender: TObject);
40- procedure AMANPrincipalUpdate(Action: TBasicAction; var Handled: Boolean);
41- procedure ACTNParametrosExecute(Sender: TObject);
42- private { Declarações privadas }
43- FDamoPrincipal: TDamoPrincipal;
44- public { Declarações públicas }
45- constructor Create(AOwner: TComponent); override;
46- end;
47-
48-var
49- KrfmPrincipal: TKrfmPrincipal;
50-
51-implementation
52-
53-{$R *.dfm}
54-
55-uses
56- UFramLocaisDeObservacao, UClassesAjudantes, KRK.Rtl.Win.CommCtrl, UConstantes;
57-
58-{ TFormPrincipal }
59-
60-procedure TKrfmPrincipal.ACTNConexaoViaUsbExecute(Sender: TObject);
61-begin
62- FDamoPrincipal.ConectarViaUSB;
63-end;
64-
65-procedure TKrfmPrincipal.ACTNConexaoViaRedeSemFioExecute(Sender: TObject);
66-begin
67- FDamoPrincipal.ConectarViaWiFi;
68-end;
69-
70-procedure TKrfmPrincipal.ACTNLocaisDeObservacaoExecute(Sender: TObject);
71-begin
72- FDamoPrincipal.ShowFrame(TFramLocaisDeObservacao,TAction(Sender));
73-end;
74-
75-procedure TKrfmPrincipal.ACTNParametrosExecute(Sender: TObject);
76-begin
77- FDamoPrincipal.JanelaDeParametros;
78-end;
79-
80-procedure TKrfmPrincipal.AMANPrincipalUpdate(Action: TBasicAction; var Handled: Boolean);
81-begin
82- FDamoPrincipal.SincronizarGUI;
83-end;
84-
85-constructor TKrfmPrincipal.Create(AOwner: TComponent);
86-begin
87- // Anteriormente eu criva FDamoPrincipal antes de inherited, porque eu
88- // imaginava que inherited "finalizava" a construção da classe, o que
89- // executaria o evento OnCreate, mas isso não é verdade. Inherited, como se
90- // sabe, apenas executa o construtor da classe pai. O evento OnCreate só é
91- // executado APÓS a finalização total do construtor, portanto, não importa
92- // neste caso onde se cria FDamoPrincipal, pois no evento OnCreate ele estará
93- // disponível com certeza! Com isso em mente eu acredito que dificilmente
94- // alguma implementação deva de fato criar coisas antes do inherited. Aqui
95- // mesmo, fazer isso estava causando a limpeza do membro FToolInfo.lpszText
96- // (em TKRKBalloonHint) e eu não sei porque isso aconteceu, pois não faz muito
97- // sentido. Como a mudança de criação de FDamoPrincipal para depois de
98- // inherited não quebrou o OnCreate deste form e ainda solucionou outro
99- // problema, então preferi manter desse modo ao invés de investigar mais
100- inherited;
101- FDamoPrincipal := TDamoPrincipal.Create(Self);
102-end;
103-
104-procedure TKrfmPrincipal.FormCreate(Sender: TObject);
105-begin
106- FDamoPrincipal.RegistrarToolTips;;
107-end;
108-
109-procedure TKrfmPrincipal.IMAGTipoDeConexaoClick(Sender: TObject);
110-begin
111- FDamoPrincipal.TogglePooling;
112-end;
113-
114-function TKrfmPrincipal.KRKFormTTNGetDispInfo(ANMDispInfo: PNMTTDispInfoW): Boolean;
115-begin
116- Result := FDamoPrincipal.HandleTTNGetDispInfo(ANMDispInfo);
117-end;
118-
119-function TKrfmPrincipal.KRKFormTTNShow(ANMHdr: tagNMHDR): Boolean;
120-begin
121- Result := FDamoPrincipal.HandleTTNShow(ANMHdr);
122-end;
123-
124-initialization
125- RegisterClass(TKrfmPrincipal)
126-
127-end.
--- trunk/src/UKrfmPrincipal.pas (nonexistent)
+++ trunk/src/UKrfmPrincipal.pas (revision 8)
@@ -0,0 +1,127 @@
1+unit UKRFMPrincipal;
2+
3+{ Anak Krakatoa Form. Copyright Zetta-Ømnis Soluções Tecnológicas Ltda }
4+
5+interface
6+
7+uses
8+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
9+ System.Classes, Vcl.Graphics, Vcl.ComCtrls, Vcl.Controls, Vcl.StdCtrls,
10+ Vcl.Forms, KRK.Vcl.Forms, UDamoPrincipal, Vcl.ToolWin, Vcl.ActnMan, Vcl.ActnCtrls,
11+ Vcl.ActnMenus, System.Actions, Vcl.ActnList, Winapi.CommCtrl,
12+ Vcl.PlatformDefaultStyleActnCtrls, Vcl.ExtCtrls, Vcl.Imaging.pngimage,
13+ KRK.Vcl.StdCtrls;
14+
15+type
16+ TKrfmPrincipal = class(TKRKForm)
17+ AMMBPrincipal: TActionMainMenuBar;
18+ AMANPrincipal: TActionManager;
19+ ACTNConexaoViaRedeSemFio: TAction;
20+ ACTNLocaisDeObservacao: TAction;
21+ ACTNConexaoViaUsb: TAction;
22+ ACTNSobre: TAction;
23+ KRPAFooter: TKRKPanel;
24+ IMAGTipoDeConexao: TImage;
25+ LABEOnStepIdentification: TLabel;
26+ LABEOnStepStatus: TLabel;
27+ IMAGAtHome: TImage;
28+ PANEStatus: TKRKPanel;
29+ IMAGParked: TImage;
30+ IMAGTracking: TImage;
31+ IMAGGoTo: TImage;
32+ ACTNParametros: TAction;
33+ procedure ACTNLocaisDeObservacaoExecute(Sender: TObject);
34+ procedure FormCreate(Sender: TObject);
35+ function KRKFormTTNShow(ANMHdr: tagNMHDR): Boolean;
36+ procedure IMAGTipoDeConexaoClick(Sender: TObject);
37+ function KRKFormTTNGetDispInfo(ANMDispInfo: PNMTTDispInfoW): Boolean;
38+ procedure ACTNConexaoViaRedeSemFioExecute(Sender: TObject);
39+ procedure ACTNConexaoViaUsbExecute(Sender: TObject);
40+ procedure AMANPrincipalUpdate(Action: TBasicAction; var Handled: Boolean);
41+ procedure ACTNParametrosExecute(Sender: TObject);
42+ private { Declarações privadas }
43+ FDamoPrincipal: TDamoPrincipal;
44+ public { Declarações públicas }
45+ constructor Create(AOwner: TComponent); override;
46+ end;
47+
48+var
49+ KrfmPrincipal: TKrfmPrincipal;
50+
51+implementation
52+
53+{$R *.dfm}
54+
55+uses
56+ UFramLocaisDeObservacao, UClassesAjudantes, KRK.Rtl.Win.CommCtrl, UConstantes;
57+
58+{ TFormPrincipal }
59+
60+procedure TKrfmPrincipal.ACTNConexaoViaUsbExecute(Sender: TObject);
61+begin
62+ FDamoPrincipal.ConectarViaUSB;
63+end;
64+
65+procedure TKrfmPrincipal.ACTNConexaoViaRedeSemFioExecute(Sender: TObject);
66+begin
67+ FDamoPrincipal.ConectarViaWiFi;
68+end;
69+
70+procedure TKrfmPrincipal.ACTNLocaisDeObservacaoExecute(Sender: TObject);
71+begin
72+ FDamoPrincipal.ShowFrame(TFramLocaisDeObservacao,TAction(Sender));
73+end;
74+
75+procedure TKrfmPrincipal.ACTNParametrosExecute(Sender: TObject);
76+begin
77+ FDamoPrincipal.JanelaDeParametros;
78+end;
79+
80+procedure TKrfmPrincipal.AMANPrincipalUpdate(Action: TBasicAction; var Handled: Boolean);
81+begin
82+ FDamoPrincipal.SincronizarGUI;
83+end;
84+
85+constructor TKrfmPrincipal.Create(AOwner: TComponent);
86+begin
87+ // Anteriormente eu criva FDamoPrincipal antes de inherited, porque eu
88+ // imaginava que inherited "finalizava" a construção da classe, o que
89+ // executaria o evento OnCreate, mas isso não é verdade. Inherited, como se
90+ // sabe, apenas executa o construtor da classe pai. O evento OnCreate só é
91+ // executado APÓS a finalização total do construtor, portanto, não importa
92+ // neste caso onde se cria FDamoPrincipal, pois no evento OnCreate ele estará
93+ // disponível com certeza! Com isso em mente eu acredito que dificilmente
94+ // alguma implementação deva de fato criar coisas antes do inherited. Aqui
95+ // mesmo, fazer isso estava causando a limpeza do membro FToolInfo.lpszText
96+ // (em TKRKBalloonHint) e eu não sei porque isso aconteceu, pois não faz muito
97+ // sentido. Como a mudança de criação de FDamoPrincipal para depois de
98+ // inherited não quebrou o OnCreate deste form e ainda solucionou outro
99+ // problema, então preferi manter desse modo ao invés de investigar mais
100+ inherited;
101+ FDamoPrincipal := TDamoPrincipal.Create(Self);
102+end;
103+
104+procedure TKrfmPrincipal.FormCreate(Sender: TObject);
105+begin
106+ FDamoPrincipal.RegistrarToolTips;;
107+end;
108+
109+procedure TKrfmPrincipal.IMAGTipoDeConexaoClick(Sender: TObject);
110+begin
111+ FDamoPrincipal.TogglePooling;
112+end;
113+
114+function TKrfmPrincipal.KRKFormTTNGetDispInfo(ANMDispInfo: PNMTTDispInfoW): Boolean;
115+begin
116+ Result := FDamoPrincipal.HandleTTNGetDispInfo(ANMDispInfo);
117+end;
118+
119+function TKrfmPrincipal.KRKFormTTNShow(ANMHdr: tagNMHDR): Boolean;
120+begin
121+ Result := FDamoPrincipal.HandleTTNShow(ANMHdr);
122+end;
123+
124+initialization
125+ RegisterClass(TKrfmPrincipal)
126+
127+end.
Show on old repository browser