groffstudio

Check-in [f3b2f329cf]
Login

Check-in [f3b2f329cf]

Overview
Comment:Clarified comment :)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: f3b2f329cfda00fe9eee9a908425073e1b9c6630029663ad6116379acd82202e
User & Date: Cthulhux on 2022-02-24 14:03:56
Other Links: manifest | tags
Context
2022-03-03
20:53
Ugh. I forgot that I changed the account last year. check-in: 9bfb75a8e1 user: Cthulhux tags: trunk
2022-02-24
14:03
Clarified comment :) check-in: f3b2f329cf user: Cthulhux tags: trunk
13:32
Ok, there's also IRC now. check-in: 1779b6daf9 user: Cthulhux tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified src/buildoutputwindow.pas from [112d48bb21] to [e92472a1a9].

︙︙
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53

  OutputText: String;
  BuildStatusWindow: TBuildStatusWindow;

implementation

{$R *.lfm}

// TODO: not working
function TBuildStatusWindow.BuildDocument(CommandLine: String): Boolean;
var
  p: TProcess;
  AStringList: TStringList;
begin
  p := TProcess.Create(nil);
  p.Options := p.Options + [poWaitOnExit, poUsePipes];








<








39
40
41
42
43
44
45

46
47
48
49
50
51
52

  OutputText: String;
  BuildStatusWindow: TBuildStatusWindow;

implementation

{$R *.lfm}


function TBuildStatusWindow.BuildDocument(CommandLine: String): Boolean;
var
  p: TProcess;
  AStringList: TStringList;
begin
  p := TProcess.Create(nil);
  p.Options := p.Options + [poWaitOnExit, poUsePipes];
︙︙
74
75
76
77
78
79
80

81
82
83
84
85
86

    // We don't have any output. We can close the window.
    BuildStatusWindow.Close;
    result := True
  end
  else begin
    // There was some output. Chances are that warnings occurred.
    // Keep it shown.

    result := False
  end;
end;

end.









>







73
74
75
76
77
78
79
80
81
82
83
84
85
86

    // We don't have any output. We can close the window.
    BuildStatusWindow.Close;
    result := True
  end
  else begin
    // There was some output. Chances are that warnings occurred.
    // Keep it shown.
    // TODO: This does not always work well...
    result := False
  end;
end;

end.

Modified src/groffstudio.lps from [fe3914d2f8] to [10df3282b6]. 

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

<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
  <ProjectSession>
    <PathDelim Value="\"/>
    <Version Value="12"/>
    <BuildModes Active="Default"/>
    <Units>
      <Unit>
        <Filename Value="groffstudio.lpr"/>
        <IsPartOfProject Value="True"/>

        <EditorIndex Value="1"/>
        <CursorPos X="47" Y="22"/>
        <UsageCount Value="42"/>
        <Loaded Value="True"/>
      </Unit>
      <Unit>
        <Filename Value="unit1.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="MainForm"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="Unit1"/>
        <TopLine Value="302"/>
        <CursorPos X="39" Y="309"/>
        <UsageCount Value="42"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit>
      <Unit>
        <Filename Value="helpers.pas"/>
        <IsPartOfProject Value="True"/>











>

|










|
|








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

<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
  <ProjectSession>
    <PathDelim Value="\"/>
    <Version Value="12"/>
    <BuildModes Active="Default"/>
    <Units>
      <Unit>
        <Filename Value="groffstudio.lpr"/>
        <IsPartOfProject Value="True"/>
        <IsVisibleTab Value="True"/>
        <EditorIndex Value="1"/>
        <CursorPos X="35" Y="4"/>
        <UsageCount Value="42"/>
        <Loaded Value="True"/>
      </Unit>
      <Unit>
        <Filename Value="unit1.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="MainForm"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="Unit1"/>
        <TopLine Value="121"/>
        <CursorPos X="68" Y="134"/>
        <UsageCount Value="42"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit>
      <Unit>
        <Filename Value="helpers.pas"/>
        <IsPartOfProject Value="True"/>
︙︙
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56

      <Unit>
        <Filename Value="buildoutputwindow.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="BuildStatusWindow"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="BuildOutputWindow"/>
        <IsVisibleTab Value="True"/>
        <EditorIndex Value="2"/>
        <TopLine Value="53"/>
        <CursorPos X="22" Y="80"/>
        <UsageCount Value="24"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit>
      <Unit>
        <Filename Value="C:\lazarus\lcl\stdctrls.pp"/>
        <UnitName Value="StdCtrls"/>








<

|
|








40
41
42
43
44
45
46

47
48
49
50
51
52
53
54
55
56

      <Unit>
        <Filename Value="buildoutputwindow.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="BuildStatusWindow"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="BuildOutputWindow"/>

        <EditorIndex Value="2"/>
        <TopLine Value="49"/>
        <CursorPos X="39" Y="66"/>
        <UsageCount Value="24"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit>
      <Unit>
        <Filename Value="C:\lazarus\lcl\stdctrls.pp"/>
        <UnitName Value="StdCtrls"/>
︙︙