OSDN -- 오픈 소스 소프트웨어 개발 및 다운로드
Translation Status of 한국말 translation status for ko
  • R/O
  • SSH
  • HTTPS

onstepper: Commit


Commit MetaInfo

Revision5 (tree)
Time2022-03-06 00:13:30
Authorderekwildstar

Log Message

Renomeamento necessário

Change Summary

Incremental Difference

--- trunk/prj/OnStepper.dpr (revision 4)
+++ trunk/prj/OnStepper.dpr (revision 5)
@@ -11,7 +11,7 @@
1111 KRK.Vcl.Forms,
1212 Vcl.Themes,
1313 Vcl.Styles,
14- UFormPrincipal in '..\src\UFormPrincipal.pas' {FormPrincipal},
14+ UKRFMPrincipal in '..\src\UKRFMPrincipal.pas' {KRFMPrincipal},
1515 UFuncoes in '..\src\UFuncoes.pas',
1616 UDamoPrincipal in '..\src\UDamoPrincipal.pas' {DamoPrincipal: TDataModule},
1717 UClassesAjudantes in '..\src\UClassesAjudantes.pas',
@@ -28,6 +28,6 @@
2828 Application.MainFormOnTaskbar := True;
2929 Application.Title := 'OnStepper';
3030 TStyleManager.TrySetStyle('Cyan Night');
31- Application.CreateForm(TFormPrincipal, FormPrincipal);
31+ Application.CreateForm(TKRFMPrincipal, KRFMPrincipal);
3232 Application.Run;
3333 end.
--- trunk/prj/OnStepper.dproj (revision 4)
+++ trunk/prj/OnStepper.dproj (revision 5)
@@ -101,13 +101,16 @@
101101 <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
102102 <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
103103 <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
104+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
105+ <VerInfo_Locale>1033</VerInfo_Locale>
106+ <Icon_MainIcon>..\res\OnStepBrasil.ico</Icon_MainIcon>
104107 </PropertyGroup>
105108 <ItemGroup>
106109 <DelphiCompile Include="$(MainSource)">
107110 <MainSource>MainSource</MainSource>
108111 </DelphiCompile>
109- <DCCReference Include="..\src\UFormPrincipal.pas">
110- <Form>FormPrincipal</Form>
112+ <DCCReference Include="..\src\UKRFMPrincipal.pas">
113+ <Form>KRFMPrincipal</Form>
111114 </DCCReference>
112115 <DCCReference Include="..\src\UFuncoes.pas"/>
113116 <DCCReference Include="..\src\UDamoPrincipal.pas">
--- trunk/src/UFormPrincipal.pas (revision 4)
+++ trunk/src/UFormPrincipal.pas (nonexistent)
@@ -1,179 +0,0 @@
1-unit UFormPrincipal;
2-
3-interface
4-
5-uses
6- Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
7- System.Classes, Vcl.Graphics, Vcl.ComCtrls, Vcl.Controls, Vcl.StdCtrls,
8- Vcl.Forms, UDamoPrincipal, Vcl.ToolWin, Vcl.ActnMan, Vcl.ActnCtrls,
9- Vcl.ActnMenus, System.Actions, Vcl.ActnList,
10- Vcl.PlatformDefaultStyleActnCtrls, Vcl.ExtCtrls, Vcl.Imaging.pngimage,
11- KRK.Vcl.StdCtrls;
12-
13-type
14- TFormPrincipal = class(TForm)
15- AMMBPrincipal: TActionMainMenuBar;
16- AMANPrincipal: TActionManager;
17- ACTNConexaoViaRedeSemFio: TAction;
18- ACTNLocaisDeObservacao: TAction;
19- ACTNConexaoUsb: TAction;
20- ACTNSobre: TAction;
21- KRPAFooter: TKRKPanel;
22- IMAGTipoDeConexao: TImage;
23- LABEOnStepIdentification: TLabel;
24- LABEOnStepStatus: TLabel;
25- IMAGAtHome: TImage;
26- PANEStatus: TPanel;
27- IMAGParked: TImage;
28- IMAGTracking: TImage;
29- IMAGGoTo: TImage;
30- BUTNToggleToolTip: TButton;
31- BUTN: TButton;
32- BUTN3: TButton;
33- BUTN4: TButton;
34- BUTN5: TButton;
35- procedure ACTNLocaisDeObservacaoExecute(Sender: TObject);
36- procedure FormShow(Sender: TObject);
37- procedure FormCreate(Sender: TObject);
38- procedure BUTNToggleToolTipClick(Sender: TObject);
39- procedure BUTNClick(Sender: TObject);
40- procedure BUTN3Click(Sender: TObject);
41- procedure BUTN4Click(Sender: TObject);
42- procedure BUTN5Click(Sender: TObject);
43- private
44- { Private declarations }
45- FDamoPrincipal: TDamoPrincipal;
46- procedure HandleNotifyMessages(var AMessage: TWMNotify); message WM_NOTIFY;
47- public
48- { Public declarations }
49- constructor Create(AOwner: TComponent); override;
50- end;
51-
52-var
53- FormPrincipal: TFormPrincipal;
54-
55-implementation
56-
57-{$R *.dfm}
58-
59-uses
60- UFramLocaisDeObservacao, CommCtrl, KRK.Rtl.Win.CommCtrl;
61-
62-{ TFormPrincipal }
63-
64-procedure TFormPrincipal.ACTNLocaisDeObservacaoExecute(Sender: TObject);
65-begin
66- FDamoPrincipal.ShowFrame(TFramLocaisDeObservacao,TAction(Sender));
67-end;
68-
69-var
70- v1, v11, v2, v22: Boolean;
71-
72-procedure TFormPrincipal.BUTN3Click(Sender: TObject);
73-begin
74- if v11 then
75- begin
76- FDamoPrincipal.h11;
77- v11 := False;
78- end
79- else
80- begin
81- FDamoPrincipal.s11;
82- v11 := True;
83- end;
84-end;
85-
86-procedure TFormPrincipal.BUTN4Click(Sender: TObject);
87-begin
88- if v22 then
89- begin
90- FDamoPrincipal.h22;
91- v22 := False;
92- end
93- else
94- begin
95- FDamoPrincipal.s22;
96- v22 := True;
97- end;
98-end;
99-
100-procedure TFormPrincipal.BUTN5Click(Sender: TObject);
101-begin
102- FDamoPrincipal.MSG;
103-end;
104-
105-procedure TFormPrincipal.BUTNClick(Sender: TObject);
106-begin
107- if v2 then
108- begin
109- FDamoPrincipal.h2;
110- v2 := False;
111- end
112- else
113- begin
114- FDamoPrincipal.s2;
115- v2 := True;
116- end;
117-end;
118-
119-procedure TFormPrincipal.BUTNToggleToolTipClick(Sender: TObject);
120-begin
121- if v1 then
122- begin
123- FDamoPrincipal.h1;
124- v1 := False;
125- end
126- else
127- begin
128- FDamoPrincipal.s1;
129- v1 := True;
130- end;
131-end;
132-
133-constructor TFormPrincipal.Create(AOwner: TComponent);
134-begin
135- // Anteriormente eu criva FDamoPrincipal antes de inherited, porque eu
136- // imaginava que inherited "finalizava" a construção da classe, o que
137- // executaria o evento OnCreate, mas isso não é verdade. Inherited, como se
138- // sabe, apenas executa o construtor da classe pai. O evento OnCreate só é
139- // executado APÓS a finalização total do construtor, portanto, não importa
140- // neste caso onde se cria FDamoPrincipal, pois no evento OnCreate ele estará
141- // disponível com certeza! Com isso em mente eu acredito que dificilmente
142- // alguma implementação deva de fato criar coisas antes do Inherited. Aqui
143- // mesmo, fazer isso estava causando a limpeza do membro FToolInfo.lpszText
144- // (em TKRKBalloonHint) e eu não sei porque isso aconteceu, pois não faz muito
145- // sentido. Como a mudança de criação de FDamoPrincipal para depois de
146- // inherited não quebrou o OnCreate deste form e ainda solucionou outro
147- // problema, então preferi manter desse modo ao invés de investigar mais
148- inherited;
149- FDamoPrincipal := TDamoPrincipal.Create(Self);
150-end;
151-
152-procedure TFormPrincipal.FormCreate(Sender: TObject);
153-begin
154- FDamoPrincipal.ConfigureBalloonHint(IMAGAtHome);
155- FDamoPrincipal.ConfigureBalloonHint(IMAGGoTo);
156- FDamoPrincipal.ConfigureBalloonHint(IMAGParked);
157- FDamoPrincipal.ConfigureBalloonHint(IMAGTracking);
158-end;
159-
160-procedure TFormPrincipal.FormShow(Sender: TObject);
161-begin
162-// FDamoPrincipal.StartPooling;
163-// comitar o krakatoa depois de incluir nele a opção de uso do wordwrap
164-// nao esquecer de comentar que caso algo errado aconteça, que basta reverter os fontes para uma versão anterior
165-end;
166-
167-procedure TFormPrincipal.HandleNotifyMessages(var AMessage: TWMNotify);
168-var
169- Link: TNMLink;
170-begin
171- if Assigned(AMessage.NMHdr) and (AMessage.NMHdr.code = TTN_LINKCLICK) then
172- begin
173- Link := PNMLink(AMessage.NMHdr)^;
174-
175- Application.MessageBox(PChar('O link clicado tem href="' + Link.item.szUrl + '" e id="' + Link.item.szID + '" e seu índice é "' + Link.item.iLink.ToString + '"'),'Sou foda!',MB_ICONINFORMATION);
176- end;
177-end;
178-
179-end.
--- trunk/src/UDamoPrincipal.pas (revision 4)
+++ trunk/src/UDamoPrincipal.pas (revision 5)
@@ -38,7 +38,7 @@
3838 procedure PausePooling;
3939 procedure ConfigureBalloonHint(AControl: TControl);
4040
41- procedure s1;
41+// procedure s1;
4242 procedure s11;
4343 procedure h1;
4444 procedure h11;
@@ -54,7 +54,7 @@
5454 {%CLASSGROUP 'Vcl.Controls.TControl'}
5555
5656 uses
57- UFormPrincipal, Winapi.Windows, Vcl.Graphics, Vcl.ExtCtrls, Dialogs, Winapi.CommCtrl;
57+ UKRFMPrincipal, Winapi.Windows, Vcl.Graphics, Vcl.ExtCtrls, Dialogs, Winapi.CommCtrl;
5858
5959 {$R *.dfm}
6060
@@ -68,72 +68,72 @@
6868 end;
6969
7070 procedure TDamoPrincipal.s11;
71-var
72- T: TToolInfo;
71+//var
72+// T: TToolInfo;
7373 begin
74- T.cbSize := SizeOf(TToolInfo);
75- T.hwnd := 0;
76- T.uId := 1;
77- SendMessage(FKRBH.ToolTipWindowHandle,TTM_TRACKACTIVATE,WPARAM(True),LPARAM(@T));
74+// T.cbSize := SizeOf(TToolInfo);
75+// T.hwnd := 0;
76+// T.uId := 1;
77+// SendMessage(FKRBH.ToolTipWindowHandle,TTM_TRACKACTIVATE,WPARAM(True),LPARAM(@T));
7878 end;
7979
8080 procedure TDamoPrincipal.s2;
81-var
82- P2: TKRKTrackingToolTipParams;
81+//var
82+// P2: TKRKTrackingToolTipParams;
8383 begin
84- P2 := Default(TKRKTrackingToolTipParams);
85- P2.IconHandle := 2;
86- P2.Title := 'Título 2';
87- P2.Text := 'Este é um texto menor, porém que precisa de um ToolTip maior que 100 pixels, portanto ele será quebrado';
88- P2.X := 500;
89- P2.Y := 500;
90- FKRBH.Show(0,2,P2);
84+// P2 := Default(TKRKTrackingToolTipParams);
85+// P2.IconHandle := 2;
86+// P2.Title := 'Título 2';
87+// P2.Text := 'Este é um texto menor, porém que precisa de um ToolTip maior que 100 pixels, portanto ele será quebrado';
88+// P2.X := 500;
89+// P2.Y := 500;
90+// FKRBH.Show(0,2,P2);
9191 end;
9292
9393 procedure TDamoPrincipal.s22;
94-var
95- T: TToolInfo;
94+//var
95+// T: TToolInfo;
9696 begin
97- T.cbSize := SizeOf(TToolInfo);
98- T.hwnd := 0;
99- T.uId := 2;
100- SendMessage(FKRBH.ToolTipWindowHandle,TTM_TRACKACTIVATE,WPARAM(True),LPARAM(@T));
97+// T.cbSize := SizeOf(TToolInfo);
98+// T.hwnd := 0;
99+// T.uId := 2;
100+// SendMessage(FKRBH.ToolTipWindowHandle,TTM_TRACKACTIVATE,WPARAM(True),LPARAM(@T));
101101 end;
102102
103103 procedure TDamoPrincipal.h1;
104104 begin
105- FKRBH.Hide;
105+// FKRBH.Hide;
106106 end;
107107
108108
109109 procedure TDamoPrincipal.h11;
110-var
111- T: TToolInfo;
110+//var
111+// T: TToolInfo;
112112 begin
113- T.cbSize := SizeOf(TToolInfo);
114- T.hwnd := 0;
115- T.uId := 1;
116- SendMessage(FKRBH.ToolTipWindowHandle,TTM_TRACKACTIVATE,WPARAM(False),LPARAM(@T));
113+// T.cbSize := SizeOf(TToolInfo);
114+// T.hwnd := 0;
115+// T.uId := 1;
116+// SendMessage(FKRBH.ToolTipWindowHandle,TTM_TRACKACTIVATE,WPARAM(False),LPARAM(@T));
117117 end;
118118
119119 procedure TDamoPrincipal.h2;
120120 begin
121- FKRBH.Hide;
121+// FKRBH.Hide;
122122 end;
123123
124124 procedure TDamoPrincipal.h22;
125-var
126- T: TToolInfo;
125+//var
126+// T: TToolInfo;
127127 begin
128- T.cbSize := SizeOf(TToolInfo);
129- T.hwnd := 0;
130- T.uId := 2;
131- SendMessage(FKRBH.ToolTipWindowHandle,TTM_TRACKACTIVATE,WPARAM(False),LPARAM(@T));
128+// T.cbSize := SizeOf(TToolInfo);
129+// T.hwnd := 0;
130+// T.uId := 2;
131+// SendMessage(FKRBH.ToolTipWindowHandle,TTM_TRACKACTIVATE,WPARAM(False),LPARAM(@T));
132132 end;
133133
134134 destructor TDamoPrincipal.Destroy;
135135 begin
136- FKRBH.Free;
136+// FKRBH.Free;
137137
138138 FOnStepInfo.Free;
139139 FFrameList.Free;
@@ -187,28 +187,28 @@
187187
188188 procedure TDamoPrincipal.HandleOnInfo(AIdentification: String; AStatus: TOnStepStatus);
189189 var
190- FormPrincipal: TFormPrincipal;
190+ KRFM: TKRFMPrincipal;
191191 begin
192192 // Tive um problema de Access Violation ao fechar a aplicação porque
193- // aparentemente aqui FormPrincipal é destruído antes da thread terminar. Não
193+ // aparentemente aqui KRFM é destruído antes da thread terminar. Não
194194 // faz sentido mesmo, já que quem destrói a thread é DamoPrincipal, e este é
195195 // destruído antes de FPrincipal, mas não tô com paciência de descrobrir
196196 // porque isso aconteceu. É melhor prevenir logo
197197 if not (csDestroying in ComponentState) then
198198 begin
199- FormPrincipal := TFormPrincipal(Owner);
199+ KRFM := TKRFMPrincipal(Owner);
200200
201- FormPrincipal.LABEOnStepIdentification.Caption := AIdentification;
201+ KRFM.LABEOnStepIdentification.Caption := AIdentification;
202202
203- FormPrincipal.IMAGAtHome.Hide;
204- FormPrincipal.IMAGParked.Hide;
205- FormPrincipal.IMAGTracking.Hide;
206- FormPrincipal.IMAGGoTo.Hide;
203+ KRFM.IMAGAtHome.Hide;
204+ KRFM.IMAGParked.Hide;
205+ KRFM.IMAGTracking.Hide;
206+ KRFM.IMAGGoTo.Hide;
207207
208- FormPrincipal.IMAGAtHome.Visible := TOnStepStatuses.AtHome in AStatus;
209- FormPrincipal.IMAGParked.Visible := not (TOnStepStatuses.NotParked in AStatus);
210- FormPrincipal.IMAGTracking.Visible := not (TOnStepStatuses.NotTracking in AStatus);
211- FormPrincipal.IMAGGoTo.Visible := not (TOnStepStatuses.NotGoTo in AStatus);
208+ KRFM.IMAGAtHome.Visible := TOnStepStatuses.AtHome in AStatus;
209+ KRFM.IMAGParked.Visible := not (TOnStepStatuses.NotParked in AStatus);
210+ KRFM.IMAGTracking.Visible := not (TOnStepStatuses.NotTracking in AStatus);
211+ KRFM.IMAGGoTo.Visible := not (TOnStepStatuses.NotGoTo in AStatus);
212212 end;
213213 end;
214214
@@ -221,18 +221,18 @@
221221 begin
222222 // ShowMessage(Inttostr(SendMessage(FKRBH.ToolTipWindowHandle,TTM_GETTOOLCOUNT,0,0)));
223223
224-var T: TToolInfo := Default(TToolInfo);
225-T.cbSize := SizeOf(TToolInfo);
224+//var T: TToolInfo := Default(TToolInfo);
225+//T.cbSize := SizeOf(TToolInfo);
226+//
227+//SendMessage(FKRBH.ToolTipWindowHandle,TTM_ENUMTOOLS,0,LPARAM(@T));
228+//SendMessage(FKRBH.ToolTipWindowHandle,TTM_ENUMTOOLS,1,LPARAM(@T));
229+//
230+//T := Default(TToolInfo);
231+//T.cbSize := SizeOf(TToolInfo);
232+//
233+//if SendMessage(FKRBH.ToolTipWindowHandle,TTM_GETCURRENTTOOL,0,LPARAM(@T)) > 0 then
234+// ShowMessage('tem');
226235
227-SendMessage(FKRBH.ToolTipWindowHandle,TTM_ENUMTOOLS,0,LPARAM(@T));
228-SendMessage(FKRBH.ToolTipWindowHandle,TTM_ENUMTOOLS,1,LPARAM(@T));
229-
230-T := Default(TToolInfo);
231-T.cbSize := SizeOf(TToolInfo);
232-
233-if SendMessage(FKRBH.ToolTipWindowHandle,TTM_GETCURRENTTOOL,0,LPARAM(@T)) > 0 then
234- ShowMessage('tem');
235-
236236 end;
237237
238238 type
--- trunk/src/UKRFMPrincipal.pas (nonexistent)
+++ trunk/src/UKRFMPrincipal.pas (revision 5)
@@ -0,0 +1,184 @@
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,
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+ ACTNConexaoUsb: TAction;
22+ ACTNSobre: TAction;
23+ KRPAFooter: TKRKPanel;
24+ IMAGTipoDeConexao: TImage;
25+ LABEOnStepIdentification: TLabel;
26+ LABEOnStepStatus: TLabel;
27+ IMAGAtHome: TImage;
28+ PANEStatus: TPanel;
29+ IMAGParked: TImage;
30+ IMAGTracking: TImage;
31+ IMAGGoTo: TImage;
32+ BUTNToggleToolTip: TButton;
33+ BUTN: TButton;
34+ BUTN3: TButton;
35+ BUTN4: TButton;
36+ BUTN5: TButton;
37+ procedure ACTNLocaisDeObservacaoExecute(Sender: TObject);
38+ procedure FormShow(Sender: TObject);
39+ procedure FormCreate(Sender: TObject);
40+ procedure BUTNToggleToolTipClick(Sender: TObject);
41+ procedure BUTNClick(Sender: TObject);
42+ procedure BUTN3Click(Sender: TObject);
43+ procedure BUTN4Click(Sender: TObject);
44+ procedure BUTN5Click(Sender: TObject);
45+ private
46+ { Private declarations }
47+ FDamoPrincipal: TDamoPrincipal;
48+ procedure HandleNotifyMessages(var AMessage: TWMNotify); message WM_NOTIFY;
49+ public
50+ { Public declarations }
51+ constructor Create(AOwner: TComponent); override;
52+ end;
53+
54+var
55+ KRFMPrincipal: TKRFMPrincipal;
56+
57+implementation
58+
59+{$R *.dfm}
60+
61+uses
62+ UFramLocaisDeObservacao, CommCtrl, KRK.Rtl.Win.CommCtrl;
63+
64+{ TFormPrincipal }
65+
66+procedure TKRFMPrincipal.ACTNLocaisDeObservacaoExecute(Sender: TObject);
67+begin
68+ FDamoPrincipal.ShowFrame(TFramLocaisDeObservacao,TAction(Sender));
69+end;
70+
71+//var
72+// v1, v11, v2, v22: Boolean;
73+
74+procedure TKRFMPrincipal.BUTN3Click(Sender: TObject);
75+begin
76+// if v11 then
77+// begin
78+// FDamoPrincipal.h11;
79+// v11 := False;
80+// end
81+// else
82+// begin
83+// FDamoPrincipal.s11;
84+// v11 := True;
85+// end;
86+end;
87+
88+procedure TKRFMPrincipal.BUTN4Click(Sender: TObject);
89+begin
90+// if v22 then
91+// begin
92+// FDamoPrincipal.h22;
93+// v22 := False;
94+// end
95+// else
96+// begin
97+// FDamoPrincipal.s22;
98+// v22 := True;
99+// end;
100+end;
101+
102+procedure TKRFMPrincipal.BUTN5Click(Sender: TObject);
103+begin
104+ FDamoPrincipal.MSG;
105+end;
106+
107+procedure TKRFMPrincipal.BUTNClick(Sender: TObject);
108+begin
109+// if v2 then
110+// begin
111+// FDamoPrincipal.h2;
112+// v2 := False;
113+// end
114+// else
115+// begin
116+// FDamoPrincipal.s2;
117+// v2 := True;
118+// end;
119+end;
120+
121+procedure TKRFMPrincipal.BUTNToggleToolTipClick(Sender: TObject);
122+begin
123+// if v1 then
124+// begin
125+// FDamoPrincipal.h1;
126+// v1 := False;
127+// end
128+// else
129+// begin
130+// FDamoPrincipal.s1;
131+// v1 := True;
132+// end;
133+end;
134+
135+constructor TKRFMPrincipal.Create(AOwner: TComponent);
136+begin
137+ // Anteriormente eu criva FDamoPrincipal antes de inherited, porque eu
138+ // imaginava que inherited "finalizava" a construção da classe, o que
139+ // executaria o evento OnCreate, mas isso não é verdade. Inherited, como se
140+ // sabe, apenas executa o construtor da classe pai. O evento OnCreate só é
141+ // executado APÓS a finalização total do construtor, portanto, não importa
142+ // neste caso onde se cria FDamoPrincipal, pois no evento OnCreate ele estará
143+ // disponível com certeza! Com isso em mente eu acredito que dificilmente
144+ // alguma implementação deva de fato criar coisas antes do Inherited. Aqui
145+ // mesmo, fazer isso estava causando a limpeza do membro FToolInfo.lpszText
146+ // (em TKRKBalloonHint) e eu não sei porque isso aconteceu, pois não faz muito
147+ // sentido. Como a mudança de criação de FDamoPrincipal para depois de
148+ // inherited não quebrou o OnCreate deste form e ainda solucionou outro
149+ // problema, então preferi manter desse modo ao invés de investigar mais
150+ inherited;
151+ FDamoPrincipal := TDamoPrincipal.Create(Self);
152+end;
153+
154+procedure TKRFMPrincipal.FormCreate(Sender: TObject);
155+begin
156+ FDamoPrincipal.ConfigureBalloonHint(IMAGAtHome);
157+ FDamoPrincipal.ConfigureBalloonHint(IMAGGoTo);
158+ FDamoPrincipal.ConfigureBalloonHint(IMAGParked);
159+ FDamoPrincipal.ConfigureBalloonHint(IMAGTracking);
160+end;
161+
162+procedure TKRFMPrincipal.FormShow(Sender: TObject);
163+begin
164+// FDamoPrincipal.StartPooling;
165+// comitar o krakatoa depois de incluir nele a opção de uso do wordwrap
166+// nao esquecer de comentar que caso algo errado aconteça, que basta reverter os fontes para uma versão anterior
167+end;
168+
169+procedure TKRFMPrincipal.HandleNotifyMessages(var AMessage: TWMNotify);
170+var
171+ Link: TNMLink;
172+begin
173+ if Assigned(AMessage.NMHdr) and (AMessage.NMHdr.code = TTN_LINKCLICK) then
174+ begin
175+ Link := PNMLink(AMessage.NMHdr)^;
176+
177+ Application.MessageBox(PChar('O link clicado tem href="' + Link.item.szUrl + '" e id="' + Link.item.szID + '" e seu índice é "' + Link.item.iLink.ToString + '"'),'Sou foda!',MB_ICONINFORMATION);
178+ end;
179+end;
180+
181+initialization
182+ RegisterClass(TKRFMPrincipal)
183+
184+end.
Show on old repository browser