Check-in [c55b899d8b]

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

Overview
Comment:Disabled config form; it's not really necessary anyway.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: c55b899d8b7a6acf09d65309c49da99e36a20cb2
User & Date: MCO 2014-09-08 12:26:07
Context
2014-09-08
12:30
Adjusted build number to 1.0.0.1. check-in: 074ec770b0 user: MCO tags: trunk
12:26
Disabled config form; it's not really necessary anyway. check-in: c55b899d8b user: MCO tags: trunk
12:24
Adjusted the date's font size to be a bit larger. Hide the cursor on create, and restore it on close. In case of preview, reparent the form to the given parent handle. check-in: a88a240ac7 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
16
..
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
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
................................................................................
  Application.Initialize;
  Application.Title := 'Datum+ Screen Saver';

  // Remove the task bar button
  Application.MainFormOnTaskbar := False;
  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);
    frmMain.Left := Screen.PrimaryMonitor.Left;
    frmMain.WindowState := wsMaximized;
  end;
  Application.Run;
end.







|
|







 







|
|
|
|




|


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
..
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
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
................................................................................
  Application.Initialize;
  Application.Title := 'Datum+ Screen Saver';

  // Remove the task bar button
  Application.MainFormOnTaskbar := False;
  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);
    frmMain.Left := Screen.PrimaryMonitor.Left;
    frmMain.WindowState := wsMaximized;
//  end;
  Application.Run;
end.

Changes to src/ssdatum.dproj.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
..
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
..
98
99
100
101
102
103
104
105
106
107
108

109
110
111
112
113
114
115
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
    <PropertyGroup>
        <ProjectGuid>{3507CA79-CC38-4FCD-84FA-9267A3630437}</ProjectGuid>
        <ProjectVersion>15.4</ProjectVersion>
        <FrameworkType>VCL</FrameworkType>
        <MainSource>ssdatum.dpr</MainSource>
        <Base>True</Base>
        <Config Condition="'$(Config)'==''">Debug</Config>
        <Platform Condition="'$(Platform)'==''">Win32</Platform>
        <TargetedPlatforms>1</TargetedPlatforms>
        <AppType>Application</AppType>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
        <Base>true</Base>
    </PropertyGroup>
................................................................................
        <DCC_DebugDCUs>true</DCC_DebugDCUs>
        <DCC_Optimize>false</DCC_Optimize>
        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
        <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
        <DCC_RemoteDebug>true</DCC_RemoteDebug>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
        <Debugger_RunParams>/c</Debugger_RunParams>
        <VerInfo_Locale>1033</VerInfo_Locale>
        <DCC_RemoteDebug>false</DCC_RemoteDebug>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_2)'!=''">
        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
................................................................................
        <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>
        <None Include="ssdatum.sample.ini"/>
        <BuildConfiguration Include="Release">
            <Key>Cfg_2</Key>
            <CfgParent>Base</CfgParent>
        </BuildConfiguration>
        <BuildConfiguration Include="Base">







|







 







<







 







|
<
|
<
>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
..
76
77
78
79
80
81
82

83
84
85
86
87
88
89
..
97
98
99
100
101
102
103
104

105

106
107
108
109
110
111
112
113
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
    <PropertyGroup>
        <ProjectGuid>{3507CA79-CC38-4FCD-84FA-9267A3630437}</ProjectGuid>
        <ProjectVersion>15.4</ProjectVersion>
        <FrameworkType>VCL</FrameworkType>
        <MainSource>ssdatum.dpr</MainSource>
        <Base>True</Base>
        <Config Condition="'$(Config)'==''">Release</Config>
        <Platform Condition="'$(Platform)'==''">Win32</Platform>
        <TargetedPlatforms>1</TargetedPlatforms>
        <AppType>Application</AppType>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
        <Base>true</Base>
    </PropertyGroup>
................................................................................
        <DCC_DebugDCUs>true</DCC_DebugDCUs>
        <DCC_Optimize>false</DCC_Optimize>
        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
        <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
        <DCC_RemoteDebug>true</DCC_RemoteDebug>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">

        <VerInfo_Locale>1033</VerInfo_Locale>
        <DCC_RemoteDebug>false</DCC_RemoteDebug>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_2)'!=''">
        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
................................................................................
        <DelphiCompile Include="$(MainSource)">
            <MainSource>MainSource</MainSource>
        </DelphiCompile>
        <DCCReference Include="F_Main.pas">
            <Form>frmMain</Form>
        </DCCReference>
        <DCCReference Include="SingleInstance.pas"/>
        <DCCReference Include="ScreenSaverUtils.pas">

            <Form>*,

  F_Config in &apos;F_Config.pas&apos; {frmConfig}*</Form>
        </DCCReference>
        <None Include="ssdatum.sample.ini"/>
        <BuildConfiguration Include="Release">
            <Key>Cfg_2</Key>
            <CfgParent>Base</CfgParent>
        </BuildConfiguration>
        <BuildConfiguration Include="Base">