線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:919
推到 Plurk!
推到 Facebook!

Delphi 轉 bcb

答題得分者是: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
站務副站長


發表:234
回覆:1651
積分:1742
註冊: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;
系統時間:2017-10-18 20:46:52
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!