::: 델파이 Tip&Trick :::

델파이 Tip&Trick 성격에 맞지 않는 광고,비방,질문의 글은 즉시 삭제하며
내용을 복사하여 사용할 경우 반드시 이곳(http://www.howto.pe.kr)을 출처로 명시하여 주세요


Category

  김영대(2003-03-06 21:36:41, Hit : 5443, Vote : 1279
 두개의 RichEdit 사이에 내용 복사하기

// 아래의 소스을 clCopyRTF.pas 파일로 만들어서 unit으로 사용하세요

unit clCopyRTF;

{written by Mike Orriss (mjo@3kcc.co.uk)

This unit provides a simple method of copying RTF text
between two RichEdit controls (see CopyRTF procedure below).

Data copied will be the source selected text or the whole
source if there is none selected.

The copied data will replace the destination selected text
or be inserted at the current caret position
}

interface

uses Windows,Classes,ComCtrls,richedit;

procedure CopyRTF(source,dest: TRichEdit);

implementation

{$IFNDEF VER120}
type TEditStreamCallBack = function (dwCookie: Longint; pbBuff: PByte;
                                     cb: Longint; var pcb: Longint): Longint; stdcall;

  TEditStream = record
    dwCookie: Longint;
    dwError: Longint;
    pfnCallback: TEditStreamCallBack;
  end;
{$ENDIF}

//---------------------------------------------------------------------------//
function InCallback(dwCookie: Longint; pbBuff: PByte; cb: Longint; var pcb: Longint): Longint; stdcall;
var stream: TStream;
var bytes: LongInt;
begin
  stream := TStream(dwCookie);
  bytes := stream.Size-stream.Position;
  if bytes > cb then bytes := cb;
  pcb := stream.Read(pbBuff^,bytes);
  Result := 0;
end;

//---------------------------------------------------------------------------//
function OutCallback(dwCookie: Longint; pbBuff: PByte; cb: Longint; var pcb: Longint): Longint; stdcall;
begin
  if cb > 0 then pcb := TStream(dwCookie).Write(pbBuff^,cb);
  Result := 0;
end;

//---------------------------------------------------------------------------//
procedure GetRTF(re: TRichEdit; stream: TStream);
var editstream: TEditStream;
begin
  editstream.dwCookie:= Longint(stream);
  editstream.dwError:= 0;
  editstream.pfnCallback:= OutCallBack;
  re.Perform(EM_STREAMOUT,SF_RTF or SFF_SELECTION,longint(@editstream));
  stream.Position := 0;
end;

//---------------------------------------------------------------------------//
procedure PutRTF(re: TRichEdit; stream: TStream);
var editstream: TEditStream;
begin
  editstream.dwCookie:= Longint(stream);
  editstream.dwError:= 0;
  editstream.pfnCallback:= InCallBack;
  re.Perform(EM_STREAMIN,SF_RTF or SFF_SELECTION,longint(@editstream));
end;

//---------------------------------------------------------------------------//
procedure CopyRTF(source,dest: TRichEdit);
var mstream: TMemoryStream;
begin
  if source.GetTextLen=0 then exit;

  mstream := TMemoryStream.Create;
  try
    if source.SelLength=0 then begin
      source.SelStart := 0;
      source.SelLength := source.GetTextLen;
    end;
    GetRTF(source,mstream);
    PutRTF(dest,mstream);
  finally
    mstream.Free;
  end;
end;

end.





651   [윈도우즈 API] Windows 가 Shutdown 되는지 검사하기  김영대 2003/03/04 4287 1293
650   [일반/컴포넌트] 마우스로 ProgressBar의 Position 바꾸기  김영대 2006/02/28 5003 1292
649   [일반/컴포넌트] RichEdit 에 URL link 만들기  김영대 2004/08/04 5796 1292
648   [일반/컴포넌트] Treeview의 수평 스크롤바 감추고 스크롤 막기  김영대 2006/03/22 5648 1290
647   [윈도우즈 API] Windows Desktop에 직접 그림을 그리고(draw) 지우기(refresh)  김영대 2003/03/04 4630 1290
646   [시스템] 여러개의 DOS 명령어를 차례데로 실행하기  김영대 2004/10/21 6398 1289
645   [윈도우즈 API] 현재 키보드 입력 언어 구하기  김영대 2004/07/24 4812 1289
644   [윈도우즈 API] 다른 프로그램의 구동 디렉토리 알아내기  김영대 2003/03/07 4775 1287
643   [시스템] 파일의 소유자와 도메인 구하기2  김영대 2004/09/25 4715 1286
642   [윈도우즈 API] 윈도우즈 탐색기에서 "Copy" 될 파일목록 구하기  김영대 2003/03/07 4871 1286
641   [일반/컴포넌트] TOpenDialog 의 '선택','취소' 버튼 이름 바꾸기  김영대 2003/03/07 4166 1286
640   [시스템] 윈도우즈 화면 잠그기  김영대 2004/08/03 5064 1285
639   [일반/컴포넌트] Access Violation at address ?????? 로부터 소스위치 알기  김영대 2003/03/07 6525 1284
638   [시스템] 파일이 다른 프로그램에 의해 사용중인지 검사  김영대 2003/03/07 5771 1283
637   [윈도우즈 API] PrintScreen(PrtSc)키의 동작 막기  김영대 2003/03/07 5731 1282
636   [윈도우즈 API] 4가지 윈도우즈 관련 폴더의 path 구하기  김영대 2003/04/08 5681 1281
635   [일반/컴포넌트] ListView의 타이틀 폰트 바꾸기  김영대 2005/03/31 5366 1280
634   [시스템] 드라이브 포맷(Format) API 함수  김영대 2003/03/04 4726 1280
633   [COM/OLE] TWebBrowser에서 JavaScript 호출하기2  김영대 2004/10/10 6271 1279
  [일반/컴포넌트] 두개의 RichEdit 사이에 내용 복사하기  김영대 2003/03/06 5443 1279
631   [시스템] 프로그램에서 화면모드 변경하기  김영대 2003/03/04 4673 1279
630   [일반/컴포넌트] 객체의 valid검사 Assigned() 대체  김영대 2005/07/29 4897 1277
629   [일반/컴포넌트] MIME 타입에 해당하는 파일 확장자 구하기  김영대 2004/11/18 4795 1277
628   [윈도우즈 API] Canvas의 색상수  김영대 2003/03/04 4119 1277
627   [일반/컴포넌트] StringGrid의 Cell에 입력 값 제한 하기  김영대 2003/03/04 5915 1277
626   [COM/OLE] 윈도우즈 "인터넷 등록 정보" 화면  김영대 2004/07/25 4109 1276
625   [일반/컴포넌트] 명령행 인자(command line argument) 사용하기  김영대 2003/03/05 4689 1276
624   [시스템] 한글 한 음절을 초성,중성,종성 음소로 분해하기('김' => 'ㄱ'+'ㅣ'+'ㅁ')  김영대 2004/10/22 7941 1275
623   [윈도우즈 API] 전체 화면(Full Screen) 만들기  김영대 2003/03/29 4987 1275
622   [일반/컴포넌트] 해상도(screen resolution)를 변경했는지 검사  김영대 2003/03/07 4495 1273
621   [COM/OLE] IE의 속성을 변경하여 뛰우기  김영대 2006/02/28 5455 1271
620   [COM/OLE] TWebBroswer 에서 오른쪽 마우스 클릭 막기  김영대 2004/11/24 5116 1271
619   [시스템] 윈도우즈에 설치된 모든 인증서(certificate) 정보 읽어오기  김영대 2004/10/29 5712 1271
618   [COM/OLE] ActiveForm의 OnDestroy 대용  김영대 2005/04/21 5435 1270
617   [윈도우즈 API] 화면캡처하기 Delphi3.0에서...  김영대 2003/03/04 4720 1270
616   [네트웍/인터넷] 네트워크 공유 설정/공유 사용 권한/해제 하기 (Windows NT/2000)  김영대 2004/11/06 5507 1268
615   [네트웍/인터넷] 소켓의 전송크기는 얼마 ?  김영대 2003/03/05 5199 1267
614   [데이터베이스] Stored Procedure 작성을 어떻게 하나  김영대 2003/03/04 4911 1266
613   [윈도우즈 API] 떠있는 모든 Microsoft Internet Explorer 죽이기  김영대 2003/03/29 4479 1265
612   [윈도우즈 API] Windows error beep 켜기/끄기  김영대 2003/03/07 4441 1265

[1][2][3][4][5][6][7][8] 9 [10]..[25] [다음 10개]
 

Copyright 1999-2020 Zeroboard / skin by zero