::: µ¨ÆÄÀÌ Tip&Trick :::

µ¨ÆÄÀÌ Tip&Trick ¼º°Ý¿¡ ¸ÂÁö ¾Ê´Â ±¤°í,ºñ¹æ,Áú¹®ÀÇ ±ÛÀº Áï½Ã »èÁ¦Çϸç
³»¿ëÀ» º¹»çÇÏ¿© »ç¿ëÇÒ °æ¿ì ¹Ýµå½Ã ÀÌ°÷(http://www.howto.pe.kr)À» Ãâó·Î ¸í½ÃÇÏ¿© ÁÖ¼¼¿ä


Category

  ±è¿µ´ë(2006-02-28 10:58:22, Hit : 6731, Vote : 1659
 http://www.howto.pe.kr
 ¼¼·Î ±Û²Ã Á¦°ÅÇÑ FontDialog

// @½ÃÀÛÇÏ´Â ¼¼·Î±Û²Ã ÆùÆ®°¡ FontDialog ¸®½ºÆ®ÀÇ ¸Ç À§¿¡ ÀÖ¾î ±¼¸²Ã¼ ãÀ»·Á¸é ÇÑÂü ½ºÅ©·Ñ
// ½ÃÄѾßÇϴµ¥ ¾Æ·¡´Â ¼¼·Î ±Û²ÃÀ» Á¦°ÅÇÑ FontDialog ¸¦ ¶ç¿ì´Â ¿¹Á¦ÀÔ´Ï´Ù

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CommDlg, Printers, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function CustomFontDlg(owr: THandle; sf: TFont; sFlags: Cardinal): TFont;
var
  cf : TChooseFont;
  lf : TLogFont;
  tf : TFont;
begin
  Result := sf;

  GetObject(sf.Handle,
            sizeof(lf),
            @lf);
  FillChar(cf, sizeof(cf), #0);
  cf.lStructSize := sizeof(cf);
  cf.hWndOwner := owr;
  cf.hdc := Printer.Handle;
  cf.lpLogFont := @lf;
  cf.iPointSize := sf.Size * 10;
  cf.Flags := sFlags;
  cf.rgbColors := sf.Color;
  if ChooseFont(cf) then
  begin
    tf := TFont.Create;
    try
      tf.Handle := CreateFontIndirect(lf);
      tf.Color := cf.RgbColors;
      Result.Assign(tf);
    finally
      tf.Free;
    end;  
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Font := CustomFontDlg(Self.Handle, Button1.Font,
                   CF_BOTH or
                   CF_INITTOLOGFONTSTRUCT or
                   CF_EFFECTS or
                   CF_SCALABLEONLY or
                   CF_WYSIWYG or
                   CF_NOVERTFONTS);
end;

end.





971   [À©µµ¿ìÁî API] ÀÛ¾÷ Ç¥½ÃÁÙ¿¡ º¸ÀÌ´Â ÇÁ·Î±×·¥ÀÇ ¾ÆÀÌÄÜ Á¤º¸  ±è¿µ´ë 2008/12/09 7732 1789
970   [À©µµ¿ìÁî API] ½ÇÇà ÆÄÀÏÀÇ ¾ÆÀÌÄÜ ¹Ù²Ù±â  ±è¿µ´ë 2008/11/27 9681 1670
969   [³×Æ®¿÷/ÀÎÅͳÝ] TClientSocket ¿¡ Local IP ¹ÙÀεùÇÏ±â  ±è¿µ´ë 2008/11/25 7788 1818
968   [¾Ë°í¸®Áò] Boyer-Moore-Horspool Text Searching  ±è¿µ´ë 2008/11/24 5985 1604
967   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Tab, Shift+Tab Å° À̺¥Æ® »ç¿ëÇÏ±â  ±è¿µ´ë 2008/11/21 6031 1670
966   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TStringList vs. THashedStringList  ±è¿µ´ë 2008/11/04 6589 1679
965   [½Ã½ºÅÛ] ÇÁ·Î¼¼½º°¡ ¿øµµ¿ìÁî ¿ø°Ý Å͹̳ο¡¼­ ½ÇÇàÁßÀÎÁö °Ë»ç  ±è¿µ´ë 2008/11/04 6337 1765
964   [½Ã½ºÅÛ] ¿øµµ¿ìÁî µµ¸ÞÀÎ À̸§ ±¸ÇÏ±â  ±è¿µ´ë 2008/11/04 17162 1736
963   [½Ã½ºÅÛ] »ç¿ëÁßÀÎ USB Æ÷Æ®ÀÇ ÀåÄ¡Á¤º¸ ±¸ÇÏ±â  ±è¿µ´ë 2008/11/04 20197 2040
962   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TreeviewÀÇ ¼öÆò ½ºÅ©·Ñ¹Ù °¨Ãß°í ½ºÅ©·Ñ ¸·±â  ±è¿µ´ë 2006/03/22 6616 1504
961   [À©µµ¿ìÁî API] ¹ÙÅÁÈ­¸éÀÇ ¸ðµç â ÃÖ¼ÒÈ­ÇÏ±â  ±è¿µ´ë 2006/02/28 6601 1623
960   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÀÏÁ¤½Ã°£ °æ°úÈÄ ¾ø¾îÁö´Â MessageBox  ±è¿µ´ë 2006/02/28 8288 1903
959   [½Ã½ºÅÛ] SystemÀÇ Idle »óŸ¦ ¾Ë¾Æ³»´Â API  ±è¿µ´ë 2006/02/28 7544 1810
958   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ListBox¿¡ Edit ¿Ã·Á Ç׸ñ ÆíÁýÇÏ±â  ±è¿µ´ë 2006/02/28 5727 1477
957   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Æû Èçµé±â  ±è¿µ´ë 2006/02/28 9144 1485
956   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¸¶¿ì½º·Î ProgressBarÀÇ Position ¹Ù²Ù±â  ±è¿µ´ë 2006/02/28 5878 1524
955   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ListBox µå·¡±×ÇÏ¿© ¾ÆÀÌÅÛ À̵¿ÇÏ±â  ±è¿µ´ë 2006/02/28 5855 1454
954   [½Ã½ºÅÛ] ÆûÀÇ Move/Resize ½ÃÀÛ,Á¾·á À̺¥Æ® °¨ÁöÇÏ±â  ±è¿µ´ë 2006/02/28 6442 1671
953   [COM/OLE] IEÀÇ ¼Ó¼ºÀ» º¯°æÇÏ¿© ¶Ù¿ì±â  ±è¿µ´ë 2006/02/28 6394 1505
  [À©µµ¿ìÁî API] ¼¼·Î ±Û²Ã Á¦°ÅÇÑ FontDialog  ±è¿µ´ë 2006/02/28 6731 1659
951   [½Ã½ºÅÛ] CPU À̸§ ±¸Çϱâ2  ±è¿µ´ë 2005/09/13 6860 1652
950   [³×Æ®¿÷/ÀÎÅͳÝ] IP Helper API ¸¦ ÀÌ¿ëÇÑ ³×Æ®¿öÅ© Ä«µå Enable/Disable ½ÃÅ°±â  ±è¿µ´ë 2005/09/10 7512 1628
949   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Æû¿¡ ÀÚ¼®È¿°ú ÁÖ±â (Delphi 6 ÀÌÇÏ)  ±è¿µ´ë 2005/08/04 11557 1709
948   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] °´Ã¼ÀÇ valid°Ë»ç Assigned() ´ëü  ±è¿µ´ë 2005/07/29 5779 1489
947   [½Ã½ºÅÛ] ½Ã½ºÅÛ ´ë±â¸ðµå/È­¸é º¸È£±â/¸ð´ÏÅÍ ²ô±â À̺¥Æ® °¨ÁöÇÏ±â  ±è¿µ´ë 2005/07/21 9185 1836
946     [COM/OLE] [re] PDF ActiveX »ç¿ëÇÏ±â  Ãʺ¸µ¨ÇÇ 2005/07/18 5887 1280
945   [½Ã½ºÅÛ] À©µµ¿ìÁî GUI ±âº» ÆùÆ®Á¤º¸ ±¸ÇÏ±â  ±è¿µ´ë 2005/07/14 6686 1627
944   [½Ã½ºÅÛ] À©µµ¿ìÁî ÀԷµµ±¸¸ðÀ½ÀÇ ÇÑ/¿µ Åä±ÛÇÏ±â  ±è¿µ´ë 2005/06/24 6409 1703
943   [COM/OLE] ActiveFormÀÇ OnDestroy ´ë¿ë  ±è¿µ´ë 2005/04/21 6240 1509
942   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ListViewÀÇ Å¸ÀÌƲ ÆùÆ® ¹Ù²Ù±â  ±è¿µ´ë 2005/03/31 6267 1531
941   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÀÏÁ¤½Ã°£ °æ°úÈÄ ¾ø¾îÁö´Â MessageDlg/ShowMessage  ±è¿µ´ë 2005/03/26 6867 1527
940   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÇÁ·Î±×·¥ÀÇ bitmapÀ» MS ±×¸²ÆÇÀ¸·Î ÆíÁýÇÏ¿© ´Ù½Ã ºÒ·¯¿À±â  ±è¿µ´ë 2005/03/22 6326 3644
939   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] RichEdit 2.0 ÁÙ°£°Ý Á¶Á¤  ±è¿µ´ë 2005/02/11 9502 1556
938   [COM/OLE] Ž»ö±â¿¡¼­ ÆÄÀÏÀ» ¼±ÅÃÇÏ¿© ActiveX(ActiveFortm)¿¡ Drag&Drop ÇÏ±â  ±è¿µ´ë 2005/01/06 8924 1644
937   [À©µµ¿ìÁî API] TDownloadURL¸¦ »ç¿ëÇÑ ÆÄÀÏ ´Ù¿î¹Þ±â  ±è¿µ´ë 2004/12/26 8280 1651
936   [COM/OLE] TWebBrowser¿¡ Á÷Á¢ HTML ¼Ò½ºÄÚµå ³Ö±â  ±è¿µ´ë 2004/12/26 7630 1571
935   [À©µµ¿ìÁî API] À©µµ¿ìÁî ½Ã½ºÅÛ Àüü¿¡¼­ »ç¿ëÀÚÀÇ ¸¶¿ì½º¿Í Å°º¸µå ÀÔ·ÂÀÌ ÀÖ´ÂÁö °Ë»çÇÏ±â  ±è¿µ´ë 2004/12/26 7382 1690
934   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ´ÙÀ̾ó·Î±× ¹Ú½º°¡ ÀÌ¹Ì ¶°ÀÖ´ÂÁö °Ë»çÇÏ¿© °­Á¦·Î ´Ý±â  ±è¿µ´ë 2004/12/22 6006 1435
933   [À©µµ¿ìÁî API] URLDownloadToFile()¸¦ »ç¿ëÇÑ ÆÄÀÏ ´Ù¿î¹Þ±â  ±è¿µ´ë 2004/12/15 9163 1761
932   [COM/OLE] ³» ÇÁ·Î±×·¥¿¡¼­ ¼±ÅÃÇÑ text¸¦ ´Ù¸¥ ÇÁ·Î±×·¥¿¡ Drag&DropÀ¸·Î ÁÖ±â  ±è¿µ´ë 2004/12/10 6554 1465

1 [2][3][4][5][6][7][8][9][10]..[25] [´ÙÀ½ 10°³]
 

Copyright 1999-2025 Zeroboard / skin by zero