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

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

2017.03.23 15:12

험프리 조회 수:843

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

이 게시물을
Profile
목록
목록
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 17213
공지 유용한 관련 사이트 관리자2 2014.03.20 56087
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 99526
1459 try catch가 작동하지 않는 현상 [1] 고고고 2015.10.27 447
1458 컴포넌트 등 델파이 이슈에 관한 문의 [3] 김준성 2017.11.16 448
1457 ERROR : Project1.exe raised too many consecutive exceptions: 'access.... [2] file 미노~ 2017.03.17 448
1456 안녕하세요. 질문드립니다. [1] hongmoonki 2016.03.04 448
1455 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 6 - Exercise 3 [9] 관리자 2016.05.02 449
1454 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 7 - Exercise 1 [1] 관리자 2016.05.02 449
1453 Android Virtual Device [2] file Natura 2016.12.19 449
1452 [마이그레이션] MaxLength 속성이 이전버전(2007 이전)에서는 한글이 2였는데... file 험프리 2017.12.14 449
1451 xmpp와 mqtt에 대해서 문의사항있어요 [1] 엠카바데로 2017.05.15 450
1450 BLE 페어링 [1] Brian 2017.09.14 450
1449 firedac으로 mssql 연결 쿼리시 속도가 너무 느림 [1] 빅비스 2019.12.19 450
1448 xe10.2에서 VKAutoShowMode 가 작동하지 않는 문제 [4] 개발자 2018.04.12 451
1447 [10.4 시드니 신기능] 이제 리눅스 클라이언트 프로그램 개발이 윈도우처럼 가능합니까? 험프리 2020.06.10 451
1446 델파이 10.4에서 10.3.3 에서 되던 fcm push가 안됩니다. [3] 델파이_사랑 2020.12.04 451
1445 10.3.3에서 TChart관련 문의드립니다. [2] ppqao 2020.06.22 452
1444 Delphi XE7 컴파일 시 용량 문의드립니다. [1] file zzakakzzakak 2015.05.19 452
1443 c++ buider 10.4.2 버젼 설치하고 테스트 [2] sihwan 2021.02.25 452
1442 파이어몽키로 사진저장 파일오류...?? [1] 밤바야 2016.05.26 453
1441 VCL 컴포넌트를 FMX용으로 바꾸고 싶습니다. [6] 쿠리 2018.09.12 453
1440 sqlite [1] 희망나라 2021.03.10 453
쓰기
태그