Simple Date Screen Saver
Check-in [1ab08a4219]
Login
HomeTimelineBranchesTagsTicketsWiki

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

Overview
Comment:Streamlined code for config form.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 1ab08a421935f6b2da2174ffbd16a84e552058b6
User & Date: MCO 2014-09-08 12:22:44.442
Context
2014-09-08
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
12:22
Streamlined code for config form. check-in: 1ab08a4219 user: MCO tags: trunk
2014-09-05
10:53
Added ignore file. check-in: 2ec74090fd user: MCO tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/F_Config.dfm.
︙︙
124
125
126
127
128
129
130
131
132
133
134
135

    Margins.Top = 8
    Margins.Right = 8
    Margins.Bottom = 8
    Align = alBottom
    Anchors = [akLeft, akTop, akRight, akBottom]
    BevelOuter = bvLowered
    TabOrder = 6
    ExplicitLeft = 0
    ExplicitTop = 136
    ExplicitWidth = 418
  end
end








<
<
<



124
125
126
127
128
129
130



131
132

    Margins.Top = 8
    Margins.Right = 8
    Margins.Bottom = 8
    Align = alBottom
    Anchors = [akLeft, akTop, akRight, akBottom]
    BevelOuter = bvLowered
    TabOrder = 6



  end
end
Changes to src/F_Config.pas. 
1
2
3
4
5

6
7
8
9
10
11
12
13
14
15

unit F_Config;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.ValEdit, Vcl.StdCtrls,
  Vcl.ExtCtrls;

type
  TfrmConfig = class(TForm)
    lblLanguage: TLabel;
    cbxLanguage: TComboBox;
    lblFont: TLabel;
    cbxFont: TComboBox;






>
|
<
|








1
2
3
4
5
6
7

8
9
10
11
12
13
14
15

unit F_Config;

interface

uses
  System.SysUtils, System.Variants, System.Classes,
  Winapi.Windows, Winapi.Messages,

  Vcl.Forms, Vcl.Controls, Vcl.Graphics, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TfrmConfig = class(TForm)
    lblLanguage: TLabel;
    cbxLanguage: TComboBox;
    lblFont: TLabel;
    cbxFont: TComboBox;
︙︙
27
28
29
30
31
32
33


34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

60






61
62
63

    { Public declarations }
  end;

var
  frmConfig: TfrmConfig;

implementation



{$R *.dfm}

procedure TfrmConfig.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  cbxLanguage.Items.BeginUpdate;
  for i := 0 to Languages.Count - 1 do begin
    cbxLanguage.Items.AddObject(Languages.Name[i], TObject(NativeUInt(Languages.LocaleID[i])));
  end;
  cbxLanguage.Sorted := True;
  cbxLanguage.Sorted := False;
  cbxLanguage.Items.Insert(0, 'system - ' + Languages.NameFromLocaleID[Languages.UserDefaultLocale]);
  cbxLanguage.Items.EndUpdate;

  cbxFont.Items.BeginUpdate;
  for i := 0 to Screen.Fonts.Count - 1 do begin
    if (Length(Screen.Fonts[i]) > 0) and (Screen.Fonts[i][1] <> '@') then
      cbxFont.Items.Add(Screen.Fonts[i]);
  end;
  cbxFont.Sorted := True;
  cbxFont.Sorted := False;
  cbxFont.Items.InsertObject(0, '(default)', TObject(NativeInt(-1)));
  cbxFont.Items.EndUpdate;


  // TODO: load settings






end;

end.








>
>













|









<


>

>
>
>
>
>
>




27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58

59
60
61
62
63
64
65
66
67
68
69
70
71

    { Public declarations }
  end;

var
  frmConfig: TfrmConfig;

implementation
uses
  F_Main;

{$R *.dfm}

procedure TfrmConfig.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  cbxLanguage.Items.BeginUpdate;
  for i := 0 to Languages.Count - 1 do begin
    cbxLanguage.Items.AddObject(Languages.Name[i], TObject(NativeUInt(Languages.LocaleID[i])));
  end;
  cbxLanguage.Sorted := True;
  cbxLanguage.Sorted := False;
  cbxLanguage.Items.Insert(0, 'System [' + Languages.NameFromLocaleID[Languages.UserDefaultLocale] + ']');
  cbxLanguage.Items.EndUpdate;

  cbxFont.Items.BeginUpdate;
  for i := 0 to Screen.Fonts.Count - 1 do begin
    if (Length(Screen.Fonts[i]) > 0) and (Screen.Fonts[i][1] <> '@') then
      cbxFont.Items.Add(Screen.Fonts[i]);
  end;
  cbxFont.Sorted := True;
  cbxFont.Sorted := False;

  cbxFont.Items.EndUpdate;


  // TODO: load settings

  // TODO: load test form

//  frmMain := TfrmMain.Create(Application);
//  frmMain.Parent := pnlSample;
//  frmMain.Show;
end;

end.
Powered by Fossil · RSS