|
임프랍니다.
그대로 변환해봤습니다.
타이핑하신 델파이 소스중 ClipQANDA 부분은 ClipBoard가 잘못 된 거 같군요.
void __fastcall TMainForm::InsertBitmap(TObject *Sender)
{
if(FOpenPictureDialog->Execute())
{
TPicture *Pict = new TPicture;
try
{
Pict->LoadFromFile(FileName);
ClipBoard->Assign(Pict);
Editor->PasteFromClipBoard();
}
__finally
{
delete Pict;
}
}
}
컴파일은 안해봤습니다.
그럼 이만...
홍조호 님이 쓰신 글 :
:
: 부탁드릴께요...
:
: 아래부분은 RX에서 이미지를 넣는 소스부분인데요 이걸 빌더로 변환부탁드려요..
:
: procedure TMainForm.InsertBitmap(Sender: TObject);
: var
: Pict: TPicture;
: begin
: with FOpenPictureDialog do begin
: if Execute then begin
: Pict := TPicture.Create;
: try
: Pict.LoadFromFile(FileName);
: ClipQANDA.Assign(Pict);
: Editor.PasteFromClipQANDA;
: finally
: Pict.Free;
: end;
: end;
: end;
: end;
:
:
|