Check-in [5f28379b23]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Added units necessary for setup.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 5f28379b23a49d19d8427e4e9760f79d3a44f809
User & Date: MCO 2014-09-03 15:31:29
Context
2014-09-03
16:54
First working version. No config yet. check-in: e610b70763 user: MCO tags: trunk
15:31
Added units necessary for setup. check-in: 5f28379b23 user: MCO tags: trunk
15:30
Added units for setup of screen saver. check-in: 728576f7a4 user: MCO tags: trunk
Changes

Changes to src/ssdatum.dpr.

1
2
3

4
5



6
7
8
9







10
11
12









13

14
15
program ssdatum;

uses

  Vcl.Forms,
  F_Main in 'F_Main.pas' {frmMain};




{$R *.res}

begin







  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.Title := 'Datum+';









  Application.CreateForm(TfrmMain, frmMain);

  Application.Run;
end.



>

|
>
>
>




>
>
>
>
>
>
>

|
|
>
>
>
>
>
>
>
>
>
|
>


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
33
34
35
36
program ssdatum;

uses
  WinApi.Windows,
  Vcl.Forms,
  F_Main in 'F_Main.pas' {frmMain},
  SingleInstance in 'SingleInstance.pas',
  ScreenSaverUtils in 'ScreenSaverUtils.pas',
  F_Config in 'F_Config.pas' {frmConfig};

{$R *.res}

begin
  // First, process the Param's passed to see
  // what mode the screen saver is to run in
  // This set's the global variable's ScreenSaverMode
  // and ParentHandle. If the mode was to set the password,
  // a call to this function will never return (it calls Halt).
  SetScreenSaverMode;

  Application.Initialize;
  Application.MainFormOnTaskbar := False;
  Application.Title := 'Datum+ Screen Saver';

  // Remove the task bar button
  SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);

  if ScreenSaverMode = ssConfigure then begin
    // Create the configure form to configure the screen saver
    Application.CreateForm(TfrmConfig, frmConfig);
  end else begin
    // We are either doing a preview or actually running the screen saver
    Application.CreateForm(TfrmMain, frmMain);
  end;
  Application.Run;
end.

Changes to src/ssdatum.dproj.

87
88
89
90
91
92
93





94
95
96
97
98
99
100
    </PropertyGroup>
    <ItemGroup>
        <DelphiCompile Include="$(MainSource)">
            <MainSource>MainSource</MainSource>
        </DelphiCompile>
        <DCCReference Include="F_Main.pas">
            <Form>frmMain</Form>





            <FormType>dfm</FormType>
        </DCCReference>
        <BuildConfiguration Include="Release">
            <Key>Cfg_2</Key>
            <CfgParent>Base</CfgParent>
        </BuildConfiguration>
        <BuildConfiguration Include="Base">







>
>
>
>
>







87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
    </PropertyGroup>
    <ItemGroup>
        <DelphiCompile Include="$(MainSource)">
            <MainSource>MainSource</MainSource>
        </DelphiCompile>
        <DCCReference Include="F_Main.pas">
            <Form>frmMain</Form>
        </DCCReference>
        <DCCReference Include="SingleInstance.pas"/>
        <DCCReference Include="ScreenSaverUtils.pas"/>
        <DCCReference Include="F_Config.pas">
            <Form>frmConfig</Form>
            <FormType>dfm</FormType>
        </DCCReference>
        <BuildConfiguration Include="Release">
            <Key>Cfg_2</Key>
            <CfgParent>Base</CfgParent>
        </BuildConfiguration>
        <BuildConfiguration Include="Base">