자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

Q, 

MainMenu의 글자크기를 크게할 수 있나요?

 

A, 

아래 코드를 폼 생성 시 넣으면 됩니다.

procedure TForm1.FormCreate(Sender: TObject);
begin
  MainMenu1.OwnerDraw := True;
  Screen.MenuFont.Size := 15;
end;
 

또는, 

MainMenu 속성 중 OwnerDraw 를 True로 하고, 

각 메뉴아이템(TMenuItem)의 OnDrawItem과 OnMeasureItem을 아래의 이벤트에 연결하면됩니다.

large_mainmenu.png

procedure TForm1.MenuDrawItem(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;

procedure TForm1.MenuMeasureItem(Sender: TObject; ACanvas: TCanvas;
  var Width, Height: Integer);
var
  NewSize: TSize;
begin
  ACanvas.Font.Size := 15;
  NewSize := ACanvas.TextExtent((Sender as TMenuItem).Caption);
  Width := NewSize.cx;
  Height := NewSize.cy;
end;

 

참고링크 : http://www.tek-tips.com/viewthread.cfm?qid=1360646

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 20049
공지 유용한 관련 사이트 관리자2 2014.03.20 58957
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102574
1719 Indy Compressor 에 버그가 있는것 같습니다. [1] 우정 2017.03.26 478
1718 윈도우함수 관련 문의드립니다. [2] 이룸넷류 2017.03.24 315
1717 [ilink32 Error] Fatal: Unable to open file 'FRXCLASS.OBJ' 오류가 발생합니다. 험프리 2017.03.24 1209
» MainMenu의 글자크기를 크게할 수 있나요? file 험프리 2017.03.23 921
1715 설치 에러 관련 문의 드립니다. [1] file 관리자2 2017.03.23 63
1714 vcl160.bpl access violation [1] 도의 2017.03.20 1350
1713 FireDac Oracle 개발시 [1] 나도몰라 2017.03.20 156
1712 string 타입 질문입니다. [2] 희망나라 2017.03.20 162
1711 TstringList Addobject 질문입니다. [1] 희망나라 2017.03.17 220
1710 xe7 폼 사이즈 나 폼위치를 자유자래로 지정할수 없나요? [2] file 라빌레나 2017.03.19 316
1709 [VCL][FMX] WebBrowser 문제(호환성 및 오래된 브라우저 문제) [1] 스카이 2017.03.17 1987
1708 C++빌더 10.1 검토 중 컴포넌트(ComPort, Office2K) 사용가능 여부 문의합니다. 험프리 2017.03.17 447
1707 ERROR : Project1.exe raised too many consecutive exceptions: 'access.... [2] file 미노~ 2017.03.17 474
1706 [RAD서버-201703 세미나] 모바일 화면디자인에 도움이 되는 샘플안내 부탁드립니다. 험프리 2017.03.17 117
1705 [RAD서버-201703 세미나] EMS와 데이터스냅의 차이를 알고 싶어요. 험프리 2017.03.17 254
1704 [RAD서버-201703 세미나] 기존 Delphi7의 Com+ Datasnap구성에서 RAD 3-Tier 구성 변경 하는 방안 험프리 2017.03.17 284
1703 [RAD서버-201703 세미나] 리눅스 및 ARM 계열 크로스컴파일 업그레이드 일정 험프리 2017.03.17 96
1702 FastReport 설치 오류 [1] file 박준형 2017.03.16 279
1701 FRXCLASS.OBJ 링크에러 관련 문의 드립니다 [1] file 가나다99 2017.03.16 291
1700 RTL210.bpl 파일 관련 문의 드립니다. [1] 가나다99 2017.03.15 1271