groffstudio

Check-in [abbf41a4a7]
Login
Overview
Comment:[Bugfix] When editing an unsaved document, the status panel will (correctly) display '[unsaved file]' now.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: abbf41a4a73d82a0d46395fb90f5771ddcd5b0f8744bcc6a20c70c74e5111245
User & Date: Cthulhux on 2022-03-10 15:14:27
Other Links: manifest | tags
Context
2022-03-10
15:23
[Bugfix] Windows builds still had a seemingly broken update check. Fixed the status display. check-in: ebe98e25b1 user: Cthulhux tags: trunk, release-0.10.1
15:14
[Bugfix] When editing an unsaved document, the status panel will (correctly) display '[unsaved file]' now. check-in: abbf41a4a7 user: Cthulhux tags: trunk
14:48
groffstudio 0.10.0: Large build process revamp, featuring log output to a file, and some bugfixes. check-in: f6741c12c7 user: Cthulhux tags: trunk, release-0.10.0
Changes

Modified CHANGES.txt from [cbc60e910f] to [4a00451b46].







1
2
3
4
5
6
7
8

9
10
11
12
13
14
15

16
17
18
19
20






Version 0.10.0
2022-03-10

[Feature] Log file creation.
[Changed] Replaced the build output window by a status window.
[Bugfix] Windows builds erroneously showed "-1" in the update status field.
[Bugfix] Building a document without a macro package works now.



Version 0.9.9.1
2022-03-10

[Feature] macOS builds are working now.
[Feature] First macOS release.



Version 0.9.9.0
2022-02-24

[Feature] First working version.
>
>
>
>
>
>








>







>





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
Version [unreleased]

[Bugfix] When editing an unsaved document, the status panel will (correctly) display "[unsaved file]" now.

-------------------------------

Version 0.10.0
2022-03-10

[Feature] Log file creation.
[Changed] Replaced the build output window by a status window.
[Bugfix] Windows builds erroneously showed "-1" in the update status field.
[Bugfix] Building a document without a macro package works now.

-------------------------------

Version 0.9.9.1
2022-03-10

[Feature] macOS builds are working now.
[Feature] First macOS release.

-------------------------------

Version 0.9.9.0
2022-02-24

[Feature] First working version.

Modified src/helpers.pas from [9366c012e2] to [1080e43d57].

46
47
48
49
50
51
52
53
54
55
56
57
58
59

60
61
62
63
  if nE2 > 1 then
    nV2 := StrToInt(Copy(oldVersion,1,(nE2-1)))
  else
    nV2 := 0;

  if nV1 = nV2 then
    VerStrCompare(Copy(newVersion, nE1 + 1, Length(newVersion)), Copy(oldVersion, nE2 + 1, Length(oldVersion)), comp)
   else if nV1 > nV2 then
     comp := 1
   else if nV1 < nV2 then
     comp := -1;
  end
  else
    comp := 0;

end;

end.








|
|
|
|
|
|
|
>




46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
  if nE2 > 1 then
    nV2 := StrToInt(Copy(oldVersion,1,(nE2-1)))
  else
    nV2 := 0;

  if nV1 = nV2 then
    VerStrCompare(Copy(newVersion, nE1 + 1, Length(newVersion)), Copy(oldVersion, nE2 + 1, Length(oldVersion)), comp)
  else if nV1 > nV2 then
    comp := 1
  else if nV1 < nV2 then
    comp := -1;
 end
 else
   comp := 0;
 end;
end;

end.

Modified src/unit1.pas from [3005494ec9] to [00c2628984].

152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
  end else begin
    edtGroffInstalledVersion.Text := 'n/a';
    hasGroff := False;
    lblTroffCommandNotFound.Visible := True;
  end;

  // Default file name
  currentGroffFilePath := '[unsaved file]';

  // Embed the license
  ResStream:= TResourceStream.Create(HInstance, 'LICENSE', RT_RCDATA);
  try
    mLicense.Lines.LoadFromStream(ResStream);
  finally
    ResStream.Free;







|







152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
  end else begin
    edtGroffInstalledVersion.Text := 'n/a';
    hasGroff := False;
    lblTroffCommandNotFound.Visible := True;
  end;

  // Default file name
  currentGroffFileName := '[unsaved file]';

  // Embed the license
  ResStream:= TResourceStream.Create(HInstance, 'LICENSE', RT_RCDATA);
  try
    mLicense.Lines.LoadFromStream(ResStream);
  finally
    ResStream.Free;
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
   {$ENDIF}
end;

procedure TMainForm.btnBuildClick(Sender: TObject);
var
  buildSuccess: Boolean;
  buildOpts: String;
  logFileName: String;
  outputFileName: String;
begin
  // Reset status display:
  MainStatusBar.Panels[1].Text := '';

  BuildWindow := TBuildStatusWindow.Create(Application);
  BuildWindow.Show;







|







294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
   {$ENDIF}
end;

procedure TMainForm.btnBuildClick(Sender: TObject);
var
  buildSuccess: Boolean;
  buildOpts: String;
  logFileName: String = '';
  outputFileName: String;
begin
  // Reset status display:
  MainStatusBar.Panels[1].Text := '';

  BuildWindow := TBuildStatusWindow.Create(Application);
  BuildWindow.Show;