Delphi 轉 bcb

發文回覆瀏覽次數：1210

推到 Plurk!

推到 Facebook!

答題得分者是：GrandRURU

polom
一般會員

發表：15
回覆：14
積分：15
註冊：2010-08-05

發送簡訊給我

#1 引用回覆回覆

發表時間：2011-08-22 00:40:09

IP:114.42.xxx.xxx 訂閱

高手教教我
如何把下列函式轉成bcb

procedure TForm1.btn1Click(Sender: TObject);
Var
MyPage: TRavePage;
MyBitmap: TRaveBitmap;
begin
RvProject.Open;
MyPage := RvProject.ProjMan.FindRaveComponent('Report1.Page1', nil) as TRavePage;
MyPage.Orientation:=poLandscape; // You can do this, but I prefer setting it from Rave Designer
MyBitmap:= MyPage.FindComponent('BMP1') As TRaveBitmap;
MyBitmap.Image.Assign(Img1.Picture.Bitmap);
RvProject.Execute;
RvProject.Close;
end;

GrandRURU
站務副站長

發表：240
回覆：1680
積分：1874
註冊：2005-06-21

發送簡訊給我

#2 引用回覆回覆

發表時間：2011-08-23 09:17:42

IP:59.120.xxx.xxx 訂閱

void TForm1::btn1Click(TObject * Sender)

{

RvProject->Open();

TRavePage *MyPage = TRavePage(RvProject->ProjMan->FindRaveComponent("Peport1->Page1", NULL));

MyPage->Orientation = poLandscape;

TRaveBitmap *MyBitmap = TRaveBitmap(MyPage->FindComponent("BMP1"));

MyBitmap->Image->Assign(Img1->Picture->Bitmap);

RvProject->Execute();

RvProject->Close();

}

===================引用 polom 文章===================
高手教教我
如何把下列函式轉成bcb

procedure TForm1.btn1Click(Sender: TObject);
Var
MyPage: TRavePage;
MyBitmap: TRaveBitmap;
begin
RvProject.Open;
MyPage := RvProject.ProjMan.FindRaveComponent('Report1.Page1', nil) as TRavePage;
MyPage.Orientation:=poLandscape; // You can do this, but I prefer setting it from Rave Designer
MyBitmap:= MyPage.FindComponent('BMP1') As TRaveBitmap;
MyBitmap.Image.Assign(Img1.Picture.Bitmap);
RvProject.Execute;
RvProject.Close;
end;

系統時間：2024-04-27 13:09:24

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！