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

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


Category

  ±è¿µ´ë(2003-03-07 09:36:50, Hit : 3235, Vote : 709
 Memo, RichEdit ¼±ÅÃÇàÀÇ µé¿©¾²±â/³»¿©¾²±â

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.WordWrap := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i, firstline, lastline: Integer;
begin
  with Memo1 do
  begin
    Lines.BeginUpdate; // repaint ¸¦ ±ÝÁöÇÑ´Ù
    firstline := Perform(EM_LINEFROMCHAR, SelStart, 0); // ¼±Åà ½ÃÀÛÇà
    lastline  := Perform(EM_LINEFROMCHAR, SelStart+SelLength, 0); // ¼±Åà ¸¶Áö¸·Çà
    for i := lastline downto firstline do
    begin
      SelStart := Perform(EM_LINEINDEX, i, 0);
      SelLength := 0;
      // SelText´Â ¼±ÅÃµÈ ¿µ¿ªÀ» ´Ù¸¥ ¹®ÀÚ¿­ ¹Ù²Ü¶§ »ç¿ëÇÏ´Â °ÍÀ¸·Î
      // ¿©±â¼­´Â SelLength °¡ 0 À̹ǷΠ' 'À» »ðÀÔÇÏ¿© µé¿©¾²±â(indent)°¡ µÈ´Ù
      SelText := ' ';
    end;
    Lines.EndUpdate;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i, firstline, lastline: Integer;
begin
  with Memo1 do
  begin
    Lines.BeginUpdate; // repaint ¸¦ ±ÝÁöÇÑ´Ù
    firstline := Perform(EM_LINEFROMCHAR, SelStart, 0); // ¼±Åà ½ÃÀÛÇà
    lastline  := Perform(EM_LINEFROMCHAR, SelStart+SelLength, 0); // ¼±Åà ¸¶Áö¸·Çà
    for i := lastline downto firstline do
    begin
      SelStart := Perform(EM_LINEINDEX, i, 0);
      SelLength := 1;
      // SelText´Â ¼±ÅÃµÈ ¿µ¿ªÀ» ´Ù¸¥ ¹®ÀÚ¿­ ¹Ù²Ü¶§ »ç¿ëÇÏ´Â °ÍÀ¸·Î
      // ¿©±â¼­´Â SelLength °¡ 1 À̹ǷΠ°ø¹éÀ» »ðÀÔÇÏ¿©(»èÁ¦È¿°ú) ³»¿©¾²±â°¡ µÈ´Ù
      SelText  := '';
    end;
    Lines.EndUpdate;
  end;
end;

end.





491   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¼ýÀÚ¸¦ ÇÑ±Û Ç¥±â·Î ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 3610 927
490   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¼ýÀÚ¸¦ ¿µ¹® Ç¥±â·Î ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 4244 890
489   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÁÖ¾îÁø ¿µ¿ªÀÇ È­¸é ĸó  ±è¿µ´ë 2003/03/07 3558 1008
488   [³×Æ®¿÷/ÀÎÅͳÝ] RS232 Åë½Å  ±è¿µ´ë 2003/03/07 6916 1855
487   [½Ã½ºÅÛ] À©µµ¿ìÁî ½Ã½ºÅÛ Ç¥ÁØ ÆùÆ® ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 3019 850
486   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¾ÆÀÌÄÜ »çÀÌÆ®  ±è¿µ´ë 2003/03/07 3613 1067
485   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] À©µµ¿ìÁî Á¾·á¿Í °°Àº ±×´ÃÁø È­¸é ¸¸µé±â  ±è¿µ´ë 2003/03/07 3138 840
484   [³×Æ®¿÷/ÀÎÅͳÝ] ÇÁ·Î±×·¥À¸·Î ³×Æ®¿öÅ© µå¶óÀÌºê ¿¬°á/ÇØÁ¦  ±è¿µ´ë 2003/03/07 6716 1250
483   [½Ã½ºÅÛ] »ç¿îµåÆÄÀÏ ¾øÀÌ PC ½ºÇÇÄ¿·Î À½¾Ç¿¬ÁÖ  ±è¿µ´ë 2003/03/07 4637 923
482   [½Ã½ºÅÛ] CPU Á¾·ù ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 4802 1194
481   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TRichEdit ÀÇ ¼±ÅÃµÈ ¿µ¿ª¸¸ ÀμâÇÏ±â  ±è¿µ´ë 2003/03/07 4472 725
480   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TRichEdit ÀÇ 64K ÇÑ°è  ±è¿µ´ë 2003/03/07 4027 1097
479   [½Ã½ºÅÛ] ¼³Ä¡µÈ ÇÁ¸°ÅÍ µå¶óÀ̹ö Á¤º¸ ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 3083 814
478   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] PASCAL Æ÷ÀÎÅÍ ¿¬»ê  ±è¿µ´ë 2003/03/07 2828 789
477   [½Ã½ºÅÛ] Time Zone Á¤º¸¸¦ ½ÃºÐÀ¸·Î Àоî¿À±â  ±è¿µ´ë 2003/03/07 2909 790
476   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] {$I-} and {$I+} do not work under NT4.0  ±è¿µ´ë 2003/03/07 2315 591
475   [½Ã½ºÅÛ] Thread »ç¿ëÇÏ±â  ±è¿µ´ë 2003/03/07 4216 1153
474   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¿­°ÅÇü(Enumerated) »ó¼ö¸¦ ¹®ÀÚ¿­·Î ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 4338 1277
473   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÆûÀÇ ÃÖ¼ÒÈ­½Ã ¿¡´Ï¸ÅÀÌ¼Ç ¾ÆÀÌÄÜ º¸¿©ÁÖ±â  ±è¿µ´ë 2003/03/07 3176 888
472   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] À©µµ¿ìÁî Á¦¾îÆÇ È­¸é ¶ç¿ì±â  ±è¿µ´ë 2003/03/07 4568 1246
471   [µ¥ÀÌÅͺ£À̽º] TDBGrid - Boolean CheckBox  ±è¿µ´ë 2003/03/07 3249 807
470   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÆÄÀÏÀÇ ¹öÀüÁ¤º¸ Àоî¿À±â  ±è¿µ´ë 2003/03/07 3431 891
469   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] MS-OutLook À¸·Î ¸Þ½ÃÁö º¸³»±â  ±è¿µ´ë 2003/03/07 5132 1175
468   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] MessageDlg()ÀÇ default ¹öư ¼±ÅÃÇØ¼­ ¶ç¿ì±â  ±è¿µ´ë 2003/03/07 3470 993
467   [³×Æ®¿÷/ÀÎÅͳÝ] ±âº» ÀÎÅÍ³Ý À¬ºê¶ó¿ìÀúÀÇ ÆÄÀÏ¸í ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 2861 783
466   [³×Æ®¿÷/ÀÎÅͳÝ] TCP/IP °¡ ¼³Ä¡µÇ¾î ÀÖ´ÂÁö °Ë»çÇÏ±â  ±è¿µ´ë 2003/03/07 3345 999
465   [½Ã½ºÅÛ] Message Queue¿¡ ƯÁ¤ ¸Þ½ÃÁö°¡ ÀÖ´ÂÁö °Ë»ç  ±è¿µ´ë 2003/03/07 3199 892
464   [À©µµ¿ìÁî API] EXCEL Á¾·á½ÃŰ±â  ±è¿µ´ë 2003/03/07 4673 1180
463   [½Ã½ºÅÛ] È­¸éº¸È£±â°¡ ¼³Ä¡µÇ¾î ÀÖ´ÂÁö °Ë»çÇÏ±â  ±è¿µ´ë 2003/03/07 3978 1153
462   [À©µµ¿ìÁî API] TreeViewÀÇ hint popup ¾ø¾Ö±â  ±è¿µ´ë 2003/03/07 5669 1811
461   [À©µµ¿ìÁî API] NT Server or NT Workstation ±¸ºÐÇÏ±â  ±è¿µ´ë 2003/03/07 3689 1094
460   [¾Ë°í¸®Áò] Bubble, Selection, Quick Sort algorithm  ±è¿µ´ë 2003/03/07 3155 927
459   [½Ã½ºÅÛ] µÎ°³ÀÇ ÆÄÀÏÀÌ ¿ÏÀüÈ÷ µ¿ÀÏÇÑÁö °Ë»çÇϱâ2  ±è¿µ´ë 2003/03/07 3376 973
458   [À©µµ¿ìÁî API] ½ÇÇàµÈ Tray Icon º¯°æÇÏ±â  ±è¿µ´ë 2003/03/07 6409 1912
457   [½Ã½ºÅÛ] BIOS ÇÔ¼ö¸¦ »ç¿ëÇÑ drive Á¢±Ù¹æ¹ý  ±è¿µ´ë 2003/03/07 3142 905
456   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TCanvas or TBitmap -> TGIFImage  ±è¿µ´ë 2003/03/07 4862 1150
  [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Memo, RichEdit ¼±ÅÃÇàÀÇ µé¿©¾²±â/³»¿©¾²±â  ±è¿µ´ë 2003/03/07 3235 709
454   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¼ýÀÚ¾ÕÀÇ ¹«È¿ÇÑ 0 Á¦°ÅÇÏ±â  ±è¿µ´ë 2003/03/07 4050 1099
453   [½Ã½ºÅÛ] À©µµ¿ìÁî¿¡ ¼³Ä¡µÈ ÇÁ¸°ÅÍ ¸®½ºÆ® ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 4254 1120
452   [½Ã½ºÅÛ] PC ½ºÇÇÄ¿ ¿ï¸®±â(Sound, NoSound)  ±è¿µ´ë 2003/03/07 4425 1204

[ÀÌÀü 10°³] [1]..[11][12] 13 [14][15][16][17][18][19][20]..[25] [´ÙÀ½ 10°³]
 

Copyright 1999-2022 Zeroboard / skin by zero