Changeset 426

User picture

Author: nrymanov@gmail.com

(2010/01/29 09:20) About 2 years ago

see #29 - Редизайн и унификация пользовательского интерфейса

Affected files

Updated trunk/Forms/frm_edit_author.dfm Download diff

425426
3
  Top = 0
3
  Top = 0
4
  HelpContext = 117
4
  HelpContext = 117
5
  BorderStyle = bsDialog
5
  BorderStyle = bsDialog
 
6
  Caption = #1060'.'#1048'.'#1054
6
  Caption = #1048#1085#1092#1086#1088#1084#1072#1094#1080#1103' '#1086#1073' '#1072#1074#1090#1086#1088#1077
7
  ClientHeight = 195
7
  ClientHeight = 216
8
  ClientWidth = 292
8
  ClientWidth = 358
 
9
  Color = clBtnFace
9
  Color = clBtnFace
10
  Font.Charset = DEFAULT_CHARSET
10
  Font.Charset = DEFAULT_CHARSET
11
  Font.Color = clWindowText
11
  Font.Color = clWindowText
...
...
17
  OnShow = FormShow
17
  OnShow = FormShow



18
  PixelsPerInch = 96
18
  PixelsPerInch = 96



19
  TextHeight = 13
19
  TextHeight = 13



20
  object RzGroupBox1: TRzGroupBox
20
  object gbInfo: TGroupBox



21
    AlignWithMargins = True
21
    AlignWithMargins = True



22
    Left = 3
22
    Left = 3



23
    Top = 149
23
    Top = 3



24
    Width = 286
24
    Width = 352



25
    Height = 43
25
    Height = 102



26
    Align = alBottom
26
    Align = alTop



27
    TabOrder = 0
27
    TabOrder = 0



28
    object btnSave: TRzBitBtn



29
      Left = 9



30
      Top = 12



31
      Width = 120



32
      Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100



33
      TabOrder = 0



34
      Kind = bkOK



35
    end



36
    object RzBitBtn2: TRzBitBtn



37
      Left = 151



38
      Top = 12



39
      Width = 128



40
      Caption = #1054#1090#1084#1077#1085#1072



41
      TabOrder = 1



42
      Kind = bkCancel



43
    end



44
  end



45
  object RzGroupBox2: TRzGroupBox



46
    AlignWithMargins = True



47
    Left = 3



48
    Top = 3



49
    Width = 286



50
    Align = alClient



51
    TabOrder = 1



52
    object Label1: TLabel
28
    object Label1: TLabel



53
      Left = 9
29
      Left = 9



54
      Top = 10
30
      Top = 17



55
      Width = 44
31
      Width = 48



56
      Height = 13
32
      Height = 13



57
      Caption = #1060#1072#1084#1080#1083#1080#1103
33
      Caption = '&'#1060#1072#1084#1080#1083#1080#1103':'



34
      FocusControl = edFamily



58
    end
35
    end



59
    object Label2: TLabel
36
    object Label2: TLabel



60
      Left = 9
37
      Left = 9



61
      Top = 52
38
      Top = 44



62
      Width = 19
39
      Width = 23



63
      Height = 13
40
      Height = 13



64
      Caption = #1048#1084#1103
41
      Caption = '&'#1048#1084#1103':'



42
      FocusControl = edName



65
    end
43
    end



66
    object Label3: TLabel
44
    object Label3: TLabel



67
      Left = 151
45
      Left = 9



68
      Top = 52
46
      Top = 71



69
      Width = 49
47
      Width = 53



70
      Height = 13
48
      Height = 13



71
      Caption = #1054#1090#1095#1077#1089#1090#1074#1086
49
      Caption = #1054'&'#1090#1095#1077#1089#1090#1074#1086':'



50
      FocusControl = edMiddle



72
    end
51
    end



73
    object edFamily: TRzEdit
52
    object edFamily: TEdit



74
      Left = 9
53
      Left = 73



75
      Top = 26
54
      Top = 14



76
      Width = 270
55
      Width = 270



77
      Height = 21
56
      Height = 21



78
      TabOrder = 0
57
      TabOrder = 0



79
    end
58
    end



80
    object edName: TRzEdit
59
    object edName: TEdit



81
      Left = 9
60
      Left = 73



82
      Top = 71
61
      Top = 41



83
      Width = 136
62
      Width = 270



84
      Height = 21
63
      Height = 21



85
      TabOrder = 1
64
      TabOrder = 1



86
    end
65
    end



87
    object edMiddle: TRzEdit
66
    object edMiddle: TEdit



88
      Left = 151
67
      Left = 73



89
      Top = 71
68
      Top = 68



90
      Width = 128
69
      Width = 270



91
      Height = 21
70
      Height = 21



92
      TabOrder = 2
71
      TabOrder = 2



93
    end
72
    end



94
  end
73
  end



95
  object gbAddNew: TRzGroupBox
74
  object gbAddNew: TGroupBox



96
    AlignWithMargins = True
75
    AlignWithMargins = True



97
    Left = 3
76
    Left = 3



98
    Top = 111
77
    Top = 108



99
    Width = 286
78
    Width = 352



100
    Height = 35
79
    Height = 61



101
    Margins.Top = 0
80
    Margins.Top = 0



102
    Margins.Bottom = 0
81
    Margins.Bottom = 0



103
    Align = alBottom
82
    Align = alTop



104
    TabOrder = 2
83
    Caption = #1054'&'#1087#1094#1080#1080



84
    TabOrder = 1



105
    Visible = False
85
    Visible = False



106
    object cbAddNew: TRzCheckBox
86
    object cbAddNew: TCheckBox



107
      Left = 9
87
      Left = 17



108
      Top = 12
88
      Top = 28



109
      Width = 85
89
      Width = 85



110
      Height = 15
90
      Height = 15



111
      Caption = #1053#1086#1074#1099#1081' '#1072#1074#1090#1086#1088
91
      Caption = '&'#1053#1086#1074#1099#1081' '#1072#1074#1090#1086#1088



112
      State = cbUnchecked



113
      TabOrder = 0
92
      TabOrder = 0



114
    end
93
    end



115
    object cbSaveLinks: TRzCheckBox
94
    object cbSaveLinks: TCheckBox



116
      Left = 155
95
      Left = 158



117
      Top = 12
96
      Top = 28



118
      Width = 108
97
      Width = 108



119
      Height = 15
98
      Height = 15



120
      Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100'  '#1089#1074#1103#1079#1080
99
      Caption = #1057#1086'&'#1093#1088#1072#1085#1080#1090#1100'  '#1089#1074#1103#1079#1080



121
      State = cbUnchecked



122
      TabOrder = 1
100
      TabOrder = 1



123
    end
101
    end



124
  end
102
  end



103
  object pnButtons: TPanel



104
    Left = 0



105
    Top = 175



106
    Width = 358



107
    Height = 41



108
    Align = alBottom



109
    BevelOuter = bvNone



110
    Caption = 'pnButtons'



111
    ShowCaption = False



112
    TabOrder = 2



113
    DesignSize = (



114
      358



115
      41)



116
    object btnOk: TButton



117
      Left = 194



118
      Top = 10



119
      Width = 75



120
      Height = 25



121
      Anchors = [akTop, akRight]



122
      Caption = '&'#1057#1086#1093#1088#1072#1085#1080#1090#1100



123
      Default = True



124
      ModalResult = 1



125
      TabOrder = 0



126
    end



127
    object btnCancel: TButton



128
      Left = 275



129
      Top = 10



130
      Width = 75



131
      Height = 25



132
      Anchors = [akTop, akRight]



133
      Cancel = True



134
      Caption = '&'#1054#1090#1084#1077#1085#1072



135
      ModalResult = 2



136
      TabOrder = 1



137
    end



138
  end



125
end
139
end





          

  Updated
trunk/Forms/frm_edit_author.pas  Download diff




      
      
425426
1
(* *****************************************************************************



2
  *



3
  * MyHomeLib



4
  *



5
  * Version 0.9



6
  * 20.08.2008



7
  * Copyright (c) Aleksey Penkov  alex.penkov@gmail.com



8
  *               Nick Rymanov    nrymanov@gmail.com



9
  ****************************************************************************** *)



1
10



2
{******************************************************************************}



3
{                                                                              }



4
{                                 MyHomeLib                                    }



5
{                                                                              }



6
{                                Version 0.9                                   }



7
{                                20.08.2008                                    }



8
{                    Copyright (c) Aleksey Penkov  alex.penkov@gmail.com       }



9
{                                                                              }



10
{******************************************************************************}



11



12



13
unit frm_edit_author;
11
unit frm_edit_author;



14
12



15
interface
13
interface



16
14



17
uses
15
uses



18
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
16
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,



19
  Dialogs, StdCtrls, Mask, RzEdit, RzButton, RzRadChk, ExtCtrls, RzPanel;
17
  Dialogs, StdCtrls, Mask, ExtCtrls;



20
18



21
type
19
type



22
  TfrmEditAuthorData = class(TForm)
20
  TfrmEditAuthorData = class(TForm)



23
    RzGroupBox1: TRzGroupBox;
21
    gbInfo: TGroupBox;



24
    btnSave: TRzBitBtn;
22
    edFamily: TEdit;



25
    RzBitBtn2: TRzBitBtn;



26
    RzGroupBox2: TRzGroupBox;



27
    edFamily: TRzEdit;



28
    Label1: TLabel;
23
    Label1: TLabel;



29
    edName: TRzEdit;
24
    edName: TEdit;



30
    Label2: TLabel;
25
    Label2: TLabel;



31
    edMiddle: TRzEdit;
26
    edMiddle: TEdit;



32
    Label3: TLabel;
27
    Label3: TLabel;



33
    gbAddNew: TRzGroupBox;
28
    gbAddNew: TGroupBox;



34
    cbAddNew: TRzCheckBox;
29
    cbAddNew: TCheckBox;



35
    cbSaveLinks: TRzCheckBox;
30
    cbSaveLinks: TCheckBox;



31
    pnButtons: TPanel;



32
    btnOk: TButton;



33
    btnCancel: TButton;



36
    procedure FormShow(Sender: TObject);
34
    procedure FormShow(Sender: TObject);



37
  private
35
  private



38
    function GetAddNewState: boolean;
36
    function GetAddNewState: boolean;