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

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

2017.03.23 15:12

험프리 조회 수:1059

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 34486
공지 유용한 관련 사이트 관리자2 2014.03.20 73994
1732 [10.2 도쿄 출시세미나] 리눅스 웹서비스 제작시 아파치 모듈 말고 httpd 서버(nginx 등)도 적용 가능한가요? 험프리 2017.04.06 274
1731 [10.2 도쿄 출시세미나] ClassGroup은 10.2부터 추가된 건가요? 그리고, 멀티플랫폼 개발에서 unit작성할때마다 필수로 추가해야 하나요? 험프리 2017.04.06 350
1730 Tool Palette 정렬 [1] 송동진 2017.04.06 471
1729 listview 오류 [7] file 제트콜 2017.04.06 297
1728 무슨 에러인가요.. 해결이 안됩니다. file KayKim 2017.04.06 259
1727 델파이 컴파일 옵션 관련 문의 드립니다 [2] 손보라 2017.04.05 1024
1726 시애틀 업데이트팩 1설치후 컴파일 불가 [2] KayKim 2017.04.05 498
1725 INDY9 -> INDY10으로 변경 시 오류 file ki 2017.04.04 392
1724 10.2 도쿄에서 IBX(TIBQuery, TIBTable 등) 컴포넌트가 보이지 않습니다. file 험프리 2017.04.03 539
1723 실행되지만 레퍼런스에 없는 system.default 2 임병기 2017.04.01 168
1722 Rest 클라이언트 Post방법 질문합니다. [2] 루피 2017.03.29 302
1721 Windows CE [1] 가필드 2017.03.31 309
1720 실행되지만 레퍼런스에 없는 system.default [1] 임병기 2017.03.26 219
1719 InputBox 질문입니다. 희망나라 2017.03.28 309
1718 DATASNAP - CALLBACK 관련 문의 드립니다. [2] 담더기 2017.03.25 333
1717 [FMX] System.IOUtils 설정 위치는 implementation 밑에 있어야 하나요? [1] 스카이 2017.03.24 290
1716 Indy Compressor 에 버그가 있는것 같습니다. [1] 우정 2017.03.26 561
1715 윈도우함수 관련 문의드립니다. [2] 이룸넷류 2017.03.24 416
1714 [ilink32 Error] Fatal: Unable to open file 'FRXCLASS.OBJ' 오류가 발생합니다. 험프리 2017.03.24 1568
» MainMenu의 글자크기를 크게할 수 있나요? file 험프리 2017.03.23 1059
쓰기
태그