2012.05.12 19:47
모든길 조회 수:9299
MainMenu ,PageControl 등..글자크기 어덯게 조정하는지요?
font 가 없던대요.
2012.05.14 20:34
MainMenu는 Font를 바꿀 수 없습니다.
하지만 OwnerDraw를 이용해서 변경 할 수 있습니다.
메뉴의 OnDrawItem 이벤트에 아래와 같이 코딩하시면 폰트의 크기를 변경 할 수 있습니다.
procedure TForm1.test21DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
Selected: Boolean);
var
MyCaption: string;
begin
MyCaption := (Sender as TMenuItem).Caption;
ACanvas.Font.Size := 15;
ARect.Left := 5;
DrawText(ACanvas.Handle, PChar(MyCaption), -1, ARect, DT_LEFT or DT_VCENTER or DT_SINGLELINE or DT_NOCLIP);
end;
댓글
MainMenu는 Font를 바꿀 수 없습니다.
하지만 OwnerDraw를 이용해서 변경 할 수 있습니다.
메뉴의 OnDrawItem 이벤트에 아래와 같이 코딩하시면 폰트의 크기를 변경 할 수 있습니다.
procedure TForm1.test21DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
Selected: Boolean);
var
MyCaption: string;
begin
MyCaption := (Sender as TMenuItem).Caption;
ACanvas.Font.Size := 15;
ARect.Left := 5;
DrawText(ACanvas.Handle, PChar(MyCaption), -1, ARect, DT_LEFT or DT_VCENTER or DT_SINGLELINE or DT_NOCLIP);
end;