Skip to content

Commit c30e3c0

Browse files
djswirldjswirl
committed
V1.0.2.0
1 parent f5fc96d commit c30e3c0

File tree

8 files changed

+236
-13
lines changed

8 files changed

+236
-13
lines changed

‎binary/MultiCOM.exe

512 Bytes
Binary file not shown.

‎scr/ComMainForm.dcu

1019 Bytes
Binary file not shown.

‎scr/ComMainForm.dfm

54 Bytes
Binary file not shown.

‎scr/ComMainForm.pas

Lines changed: 29 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -156,6 +156,32 @@ implementation
156156

157157
{$R *.DFM}
158158

159+
160+
161+
function GetLocalVersion: string;
162+
var
163+
VerInfoSize: DWORD;
164+
VerInfo: Pointer;
165+
VerValueSize: DWORD;
166+
VerValue: PVSFixedFileInfo;
167+
Dummy: DWORD;
168+
begin
169+
VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
170+
GetMem(VerInfo, VerInfoSize);
171+
GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
172+
VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
173+
with VerValue^ do
174+
begin
175+
Result := IntToStr(dwFileVersionMS shr 16);
176+
Result := Result + '.' + IntToStr(dwFileVersionMS and $FFFF);
177+
Result := Result + '.' + IntToStr(dwFileVersionLS shr 16);
178+
Result := Result + '.' + IntToStr(dwFileVersionLS and $FFFF);
179+
end;
180+
FreeMem(VerInfo, VerInfoSize);
181+
end;
182+
183+
/////////////////////////////////////////////////////////////////////////////
184+
159185
function TMainForm.GetAppDir: string;
160186
begin
161187
Result := ExtractFilePath(Paramstr(0));
@@ -350,7 +376,7 @@ procedure TMainForm.UpDateStatusBar();
350376
begin
351377
for x := 0 to 5 do
352378
begin
353-
StatusBar.Panels[x].Width := Width div 6;
379+
StatusBar.Panels[x].Width := (Width - 100) div 6;
354380
end;
355381
end;
356382

@@ -362,11 +388,11 @@ procedure TMainForm.FormShow(Sender: TObject);
362388
begin
363389

364390
ConfigFile := GetAppDir + 'config.ini';
391+
LoadConfig(ConfigFile);
365392
UpDateStatusBar();
366393
UpdateEmulation();
367394
UpdateFont();
368-
369-
LoadConfig(ConfigFile);
395+
Statusbar.Panels[6].Text := 'V : '+GetLocalVersion();
370396

371397
for x := 0 to 5 do
372398
begin

‎scr/MultiCOM.dof

Lines changed: 5 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -65,7 +65,7 @@ IncludeVerInfo=1
6565
AutoIncBuild=0
6666
MajorVer=1
6767
MinorVer=0
68-
Release=1
68+
Release=2
6969
Build=0
7070
Debug=0
7171
PreRelease=0
@@ -77,11 +77,12 @@ CodePage=1252
7777
[Version Info Keys]
7878
CompanyName=Brian Canning
7979
FileDescription=Windows applications that allows you to monitor up to 6 serial ports …
80-
FileVersion=1.0.1.0
80+
FileVersion=1.0.2.0
8181
InternalName=
8282
LegalCopyright=
8383
LegalTrademarks=
8484
OriginalFilename=
85-
ProductName=MultiCom
85+
ProductName=MultiCOM
8686
ProductVersion=1.0.0.0
87-
Comments=Windows applications that allows you to monitor up to 6 serial ports
87+
Comments=Windows applications that allows you to monitor up to 6 serial ports
88+
MultCOM, 6 port serial Monitoring

‎scr/MultiCOM.dsk

Lines changed: 202 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -30,7 +30,7 @@ ModuleType=SourceModule
3030
FormState=0
3131
FormOnTop=0
3232

33-
[C:\Program Files (x86)\Borland\Delphi6\Projects\ProjectGroup1.bpg]
33+
[D:\Delphi\Ents Booking V4.3\ProjectGroup1.bpg]
3434
FormState=0
3535
FormOnTop=0
3636

@@ -63,13 +63,13 @@ LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000
6363
RightPanelSize=0
6464
BottomPanelSize=0
6565
BottomPanelClients=MessageView@EditWindow0
66-
BottomPanelData=00000400010000000B0000004D65737361676556696577D60400000000000002EC00000000000000010000000000000000000000000100000000D6040000000000000100000000D6040000000000000100000000D6040000000000000100000000D6040000000000000100000000D6040000000000000100000000D6040000000000000100000000D6040000000000000100000000D6040000000000000100000000D6040000000000000100000000D6040000000000000100000000D6040000000000000100000000D60400000B0000004D65737361676556696577FFFFFFFF
66+
BottomPanelData=00000400010000000B0000004D65737361676556696577D60400000000000002EC00000000000000010000000000000000000000000100000000D6040000000000000100000000D6040000000000000100000000D6040000000000000100000000D6040000000000000100000000D6040000000000000100000000D6040000000000000100000000D6040000000000000100000000D6040000000000000100000000D6040000000000000100000000D6040000000000000100000000D6040000000000000100000000D604000000000000FFFFFFFF
6767

6868
[View0]
6969
Module=D:\Delphi\MultiCom\ComMainForm.pas
70-
CursorX=15
71-
CursorY=231
72-
TopLine=241
70+
CursorX=22
71+
CursorY=392
72+
TopLine=375
7373
LeftCol=1
7474

7575
[View1]
@@ -127,6 +127,36 @@ TBDockHeight=305
127127
LRDockWidth=438
128128
Dockable=1
129129

130+
[Components]
131+
Create=1
132+
Visible=0
133+
State=0
134+
Left=420
135+
Top=251
136+
Width=183
137+
Height=266
138+
MaxLeft=-1
139+
MaxTop=-1
140+
ClientWidth=167
141+
ClientHeight=227
142+
143+
[CPUWindow]
144+
Create=1
145+
Visible=0
146+
State=0
147+
Left=6
148+
Top=1
149+
Width=798
150+
Height=568
151+
MaxLeft=-1
152+
MaxTop=-1
153+
ClientWidth=782
154+
ClientHeight=529
155+
DumpPane=79
156+
DisassemblyPane=187
157+
RegisterPane=231
158+
FlagPane=64
159+
130160
[AlignmentPalette]
131161
Create=1
132162
Visible=0
@@ -157,10 +187,105 @@ LRDockWidth=266
157187
Dockable=1
158188
SplitPos=131
159189
ArrangeBy=Name
160-
SelectedItem=OnCloseUp
190+
SelectedItem=
161191
ExpandedItems=AnimEffects.FormShow,AnimEffects.Minimizing,BoundLabel,FormHeader,MenuAnimation,Timeouts
162192
HiddenCategories=
163193

194+
[WatchWindow]
195+
Create=1
196+
Visible=0
197+
State=0
198+
Left=224
199+
Top=624
200+
Width=799
201+
Height=117
202+
MaxLeft=-1
203+
MaxTop=-1
204+
ClientWidth=783
205+
ClientHeight=78
206+
TBDockHeight=149
207+
LRDockWidth=421
208+
Dockable=1
209+
210+
[BreakpointWindow]
211+
Create=1
212+
Visible=0
213+
State=0
214+
Left=0
215+
Top=0
216+
Width=516
217+
Height=900
218+
MaxLeft=-1
219+
MaxTop=-1
220+
ClientWidth=500
221+
ClientHeight=861
222+
TBDockHeight=607
223+
LRDockWidth=140
224+
Dockable=1
225+
Column0Width=124
226+
Column1Width=60
227+
Column2Width=240
228+
Column3Width=40
229+
Column4Width=75
230+
Column5Width=75
231+
232+
[CallStackWindow]
233+
Create=1
234+
Visible=0
235+
State=0
236+
Left=429
237+
Top=351
238+
Width=294
239+
Height=161
240+
MaxLeft=-1
241+
MaxTop=-1
242+
ClientWidth=278
243+
ClientHeight=122
244+
TBDockHeight=161
245+
LRDockWidth=294
246+
Dockable=1
247+
248+
[ThreadStatusWindow]
249+
Create=1
250+
Visible=0
251+
State=0
252+
Left=488
253+
Top=524
254+
Width=641
255+
Height=253
256+
MaxLeft=-1
257+
MaxTop=-1
258+
ClientWidth=625
259+
ClientHeight=214
260+
TBDockHeight=253
261+
LRDockWidth=641
262+
Dockable=1
263+
Column0Width=145
264+
Column1Width=100
265+
Column2Width=115
266+
Column3Width=250
267+
268+
[ModuleWindow]
269+
Create=1
270+
Visible=0
271+
State=0
272+
Left=45
273+
Top=135
274+
Width=638
275+
Height=347
276+
MaxLeft=-1
277+
MaxTop=-1
278+
ClientWidth=622
279+
ClientHeight=308
280+
TBDockHeight=347
281+
LRDockWidth=638
282+
Dockable=1
283+
Column0Width=125
284+
Column1Width=100
285+
Column2Width=155
286+
EntryPointPane=225
287+
CompUnitPane=104
288+
164289
[ObjectTree]
165290
Create=1
166291
Visible=1
@@ -177,6 +302,77 @@ TBDockHeight=352
177302
LRDockWidth=266
178303
Dockable=1
179304

305+
[DebugLogView]
306+
Create=1
307+
Visible=0
308+
State=0
309+
Left=229
310+
Top=148
311+
Width=647
312+
Height=392
313+
MaxLeft=-1
314+
MaxTop=-1
315+
ClientWidth=631
316+
ClientHeight=353
317+
TBDockHeight=392
318+
LRDockWidth=647
319+
Dockable=1
320+
321+
[LocalVarsWindow]
322+
Create=1
323+
Visible=0
324+
State=0
325+
Left=273
326+
Top=197
327+
Width=421
328+
Height=192
329+
MaxLeft=-1
330+
MaxTop=-1
331+
ClientWidth=405
332+
ClientHeight=153
333+
TBDockHeight=192
334+
LRDockWidth=421
335+
Dockable=1
336+
337+
[ToDo List]
338+
Create=1
339+
Visible=0
340+
State=0
341+
Left=405
342+
Top=387
343+
Width=470
344+
Height=250
345+
MaxLeft=-1
346+
MaxTop=-1
347+
ClientWidth=454
348+
ClientHeight=211
349+
TBDockHeight=250
350+
LRDockWidth=470
351+
Dockable=1
352+
Column0Width=200
353+
Column1Width=30
354+
Column2Width=100
355+
Column3Width=70
356+
Column4Width=70
357+
SortOrder=4
358+
ShowHints=1
359+
ShowChecked=1
360+
361+
[FPUWindow]
362+
Create=1
363+
Visible=0
364+
State=0
365+
Left=228
366+
Top=209
367+
Width=457
368+
Height=250
369+
MaxLeft=-1
370+
MaxTop=-1
371+
ClientWidth=441
372+
ClientHeight=211
373+
RegisterPane=121
374+
FlagPane=59
375+
180376
[CodeExplorer@EditWindow0]
181377
Create=1
182378
Visible=1

‎scr/MultiCOM.exe

-2.28 MB
Binary file not shown.

‎scr/MultiCOM.res

0 Bytes
Binary file not shown.

0 commit comments

Comments
 (0)