Delphi 델파이XE2의 VCL Styles 활용하기
2012.01.19 00:54
VCL Styles 란 ?
이전의 윈도우 화면들은 하나의 테마만을 지원하였습니다. 델파이 XE2에서는 여러 가지 스타일들을 제공하여 다양하고 멋진 윈도우 화면을 작성할 수 있으며 또한 새로운 스타일 타입을 생성하여 적용할 수 있는 VCL Styles을 지원합니다. TWinControl 및 TGraphicControl 컴포넌트들에 적용할 수 있습니다(단 TRibbonControl, TMainMenu, TPopupMenu등에는 적용되지 않습니다).
스타일리쉬한 Fish Facts 작성
동일한 프로그램을 VCL Styles을 이용하여 다양한 스타일의 화면으로 보여주고, 새로운 스타일을 작성하여 적용하여 보겠습니다.
1. File->New->VCL Forms Application 메뉴를 시작하여 프로젝트를 시작합니다.
2. 화면을 아래와 같이 디자인하여 컴포넌트들을 연결합니다.
컴포넌트 | 속성 | 값 |
TMainMenu | Item를 클릭하거나 컴포넌트를 더블클릭하여 다음과 같이 디자인합니다. | |
TSQLConnection | Driver | InterBase |
Driver.DataBase | C:\Program Files (86) \Common Files\CodeGear Shared\Data\DBDEMOS.GDB | |
Driver.UserName | sysdba | |
Driver.Password | masterkey(소문자) | |
LoginPrompt | False | |
TSQLQuery | SQL Connection | SQLConnection1 |
SQL | select * from biolife | |
T DataSetProvider | DataSet | SQLQuery1 |
T ClientDataSet | ProviderName | DataSetProvider1 |
TDataSource | DataSet | ClientDataSet 1 |
TDBGrid | DataSource | DataSource1 |
3. 메뉴 리스트에 있는 VCL Style들을 사용하기 위해서는 아 래와 같이 Project Option창에서 스타일들을 선택합니다.
4. File 의 Connect Active 메뉴의 OnClick 이벤트 핸들러를 디음과 같이 구현하여 데이터베이스와 연결합니다.
procedure TForm1.ConnectionActive1Click(Sender: TObject); begin SQLConnection1.Connected := not SQLConnection1.Connected; ClientDataSet1.Active := not ClientDataSet1.Active; ConnectionActive1.Checked := SQLConnection1.Connected; end; |
5. 각 메뉴 항목의 OnClick 이벤트 핸들러를 구현하여 지정한 스타일로 표시합니다.
TStyleManager.SetStyle(' Aqua Graphite '); TStyleManager.SetStyle(' Aqua Light Slate '); TStyleManager.SetStyle(' Emerald Light Slate '); TStyleManager.SetStyle(' Golden Graphite '); TStyleManager.SetStyle(' Ruby Graphite '); TStyleManager.SetStyle('Windows'); |
6. 프로그램을 실행하여 화면 스타일을 변경해 봅니다. 왼쪽은 원래의 윈도우 스타일이고 오른쪽은 Ruby Graphite Style를 선택한 화면입니다.
7. 이번에는 새로운 스타일을 만들어서 적용해 보도록 하겠습니다.
8. Tools 메뉴에서 VclStyleManager 를 실행합니다. VclStyleManager는 VCL Styles를 새로 작성하거나 편집하기 위해서 사용합니다.
9. 아래와 같은 VclStyleManager 화면이 표시됩니다.
10. File->Open 메뉴에서 “C:\Documents and Settings\All Users\Documents\RAD Studio\9.0\Styles ¥RubyGraphite.vsf ” 를 선택하면 스타일의 정보가 표시됩니다.
11. File->New 메뉴를 선택하거나 Ctrl +N로 새로운 VCL Style을 작성합니다(Name을 My Graphite 로 설정합니다.)
12. 원하는 원하는 아이템들을 수정하고 C:\Documents and Settings\All Users\Documents\RAD Studio\9.0\Styles 에 MyGraphite.vsf 로 저장합니다. 여기서는 화면의 Caption->Image->Title->Caption->SysButtons->CaptionTitle의 Color를 노란색으로 변경하였습니다.
13. 프로젝트 Options에서 아래와 같이 “ My Graphite ” 라는 VCL Style이 추가된 것을 확인하실 수 있습니다.
14. My Graphite를 선택하고 프로그램을 실행하여 메뉴에서 “ My Graphite ” 를 클릭하면 다음과 같이 작성한 스타일로 적용됩니다.