자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi TStyleManager 관련 질문
2012.04.05 02:53
Delphi Xe2로 오면서 VCL Style을 바꿀 수 있다고 해서 공부 중인데요 ..
도무지 TStyleManager를 어떻게 사용해야 하는지 모르겠어서요 ..
여기 저기 예제들을 찾아서 해봤는데 안되더라구여 ..
타입을 지정해주어야하는건가요 아니면 클래스를 상속 받아야 하는건가요 ??
아니면 평가판이라 그런건가요 .. ??
procedure TForm3.AcuaGraphic1Click(Sender: TObject);
begin
TStyleManager.SetStyle('AquaGraphite'); << 이부분이 빨간줄..
(실행하면 [DCC Error] UVCLStyle.pas(51): E2003 Undeclared identifier: 'TStyleManager' 이런 Error 가 나오는 상황입니다.)
end;
도와주세요 ..
댓글 4
-
-
구군v
2012.04.05 22:46
답변 너무 감사하구요 ..
Default 스타일 변경은 알겠는데요 ..
코딩을 통해서 스타일을 변경하는 부분에서 위에 그림처럼 스타일도 복수로 선택했는데
코딩으로 하면 TStyleManager.SetStyle 이부분이 계속 애러가 나네요 ..
[DCC Error] Unit4.pas(28): E2003 Undeclared identifier: 'TStyleManager
어떤것을 선언해줘야 코딩으로 사용 할 수 있을까요 ??
알려주신 사이트에 가봐도 잘모르겠네요 ..
-
아! 유니트 제일위에 uses 부분에
Vcl.Themes
를 추가 해줘야 합니다 ^^;
-
구군v
2012.04.06 00:55
잘 되네여
답변 감사합니다 ^^
Delphi TStyleManager 관련 질문
2012.04.05 02:53
Delphi Xe2로 오면서 VCL Style을 바꿀 수 있다고 해서 공부 중인데요 ..
도무지 TStyleManager를 어떻게 사용해야 하는지 모르겠어서요 ..
여기 저기 예제들을 찾아서 해봤는데 안되더라구여 ..
타입을 지정해주어야하는건가요 아니면 클래스를 상속 받아야 하는건가요 ??
아니면 평가판이라 그런건가요 .. ??
procedure TForm3.AcuaGraphic1Click(Sender: TObject);
begin
TStyleManager.SetStyle('AquaGraphite'); << 이부분이 빨간줄..
(실행하면 [DCC Error] UVCLStyle.pas(51): E2003 Undeclared identifier: 'TStyleManager' 이런 Error 가 나오는 상황입니다.)
end;
도와주세요 ..
댓글 4
-
구군v
2012.04.05 22:46
답변 너무 감사하구요 ..
Default 스타일 변경은 알겠는데요 ..
코딩을 통해서 스타일을 변경하는 부분에서 위에 그림처럼 스타일도 복수로 선택했는데
코딩으로 하면 TStyleManager.SetStyle 이부분이 계속 애러가 나네요 ..
[DCC Error] Unit4.pas(28): E2003 Undeclared identifier: 'TStyleManager
어떤것을 선언해줘야 코딩으로 사용 할 수 있을까요 ??
알려주신 사이트에 가봐도 잘모르겠네요 ..
-
아! 유니트 제일위에 uses 부분에
Vcl.Themes
를 추가 해줘야 합니다 ^^;
-
구군v
2012.04.06 00:55
잘 되네여
답변 감사합니다 ^^
TSytleManager는 기본적으로 메뉴에서 지정이 가능합니다.
메뉴에서 Project - Options 를 선택하고 왼쪽 트리에서 Application - Appearance를 선택하면 아래의 그림과 같은
선택 화면을 볼 수 있습니다.
오른쪽 화면에서 스타일을 선택 할 수 있습니다.
그리고 코딩을 통해서 스타일을 변경하려고 한다면
위의 화면에서 사용하고자하는 스타일들을 복수로 선택한 상태에서 프로그램 내부에서
procedure TForm1.Button1Click(Sender: TObject);
begin
TStyleManager.SetStyle('Amakrits');
end;