Q&A

  • OwnerDraw를 True로 설정했을 때 TabSheet에 이미지 나타내기
PageControl에 OwnerDraw를 True로 설정했을 때

아래와 같이 폰트를 나타내는 건 문제가 없는데..



이미지를 나타내기 위해서는 어떻게 해야되는지 정말 잘 모르겠네요..

여러가지 방법들을 써봤는데...쩝...



procedure Tfrm_CK_Main.PN_MainDrawTab(Control: TCustomTabControl;

TabIndex: Integer; const Rect: TRect; Active: Boolean);

begin

case TabIndex of

0 :

begin

Control.Canvas.Font.Color := clblack;

Control.Canvas.TextOut(Rect.Left + 5, Rect.Top + 4, '고객관리');

end;

1 :

begin

Control.Canvas.Font.Color := clblack;

Control.Canvas.TextOut(Rect.Left + 5, Rect.Top + 4, '참고사항');

end;

end;

end;

0  COMMENTS