Changeset 435

User picture

Author: nrymanov@gmail.com

(2010/02/01 12:54) About 2 years ago

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

Affected files

Updated trunk/Forms/frm_splash.dfm Download diff

434435
600
    Proportional = True
600
    Proportional = True
601
    ExplicitWidth = 400
601
    ExplicitWidth = 400
602
  end
602
  end
 
603
  object lblState: TRzLabel
603
  object lblState: TLabel
604
    Left = 118
604
    Left = 0
605
    Top = 240
605
    Top = 234
606
    Width = 164
606
    Width = 401
607
    Height = 13
607
    Height = 25
608
    Align = alClient



608
    Alignment = taCenter
609
    Alignment = taCenter



609
    AutoSize = False
610
    AutoSize = False



610
    Caption = #1048#1085#1080#1094#1080#1072#1083#1080#1079#1072#1094#1080#1103' ...'
611
    Caption = #1048#1085#1080#1094#1080#1072#1083#1080#1079#1072#1094#1080#1103' ...'


...
...
615
    Font.Style = []
616
    Font.Style = []



616
    ParentFont = False
617
    ParentFont = False



617
    Transparent = True
618
    Transparent = True



619
    Layout = tlCenter



620
    ExplicitLeft = 118



621
    ExplicitTop = 240



622
    ExplicitWidth = 164



623
    ExplicitHeight = 13



618
  end
624
  end



619
  object RzLabel1: TRzLabel
625
  object RzLabel1: TLabel



620
    Left = 340
626
    Left = 340



621
    Top = 94
627
    Top = 94



622
    Width = 30
628
    Width = 30


...
...
630
    Font.Style = [fsBold]
636
    Font.Style = [fsBold]



631
    ParentFont = False
637
    ParentFont = False



632
    Transparent = True
638
    Transparent = True



633
    LightTextStyle = True



634
  end
639
  end



635
end
640
end





          

  Updated
trunk/Forms/frm_splash.pas  Download diff




      
      
434435
1
(* *****************************************************************************



2
  *



3
  * MyHomeLib



4
  *



5
  * Copyright (C) 2008-2010 Aleksey Penkov



6
  *



7
  * Authors 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_splash;
11
unit frm_splash;



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, ExtCtrls, StdCtrls, RzLabel, jpeg, RzStatus;
17
  Dialogs, ExtCtrls, StdCtrls, jpeg;



20
18



21
type
19
type



22
  TfrmSplash = class(TForm)
20
  TfrmSplash = class(TForm)



23
    Image1: TImage;
21
    Image1: TImage;



24
    lblState: TRzLabel;
22
    lblState: TLabel;



25
    RzLabel1: TRzLabel;
23
    RzLabel1: TLabel;



26
  private
24
  private



27
    { Private declarations }



28
  public
25
  public



29
    { Public declarations }



30
  end;
26
  end;



31
27



32
var
28
var