將 Tchart上下二圖合併,並存成圖形~多頁 |
答題得分者是:Fishman
|
seedbcc
高階會員 ![]() ![]() ![]() ![]() 發表:232 回覆:272 積分:105 註冊:2003-12-10 發送簡訊給我 |
procedure TFrm_PhVarControlChart.N2Click(Sender: TObject);
var
B1, B2: TBitmap;
R1, R2: TRect;
begin
B1 := TBitmap.Create;
B2 := TBitmap.Create; Chart_Up.CopyToClipboardBitmap;
B1.LoadFromClipboardFormat(cf_Bitmap, ClipBoard.GetAsHandle(cf_Bitmap), 0);
R1 := Rect(0, 0, B1.Width, B1.Height); Chart_Down.CopyToClipboardBitmap;
B2.LoadFromClipboardFormat(cf_Bitmap, ClipBoard.GetAsHandle(cf_Bitmap), 0);
R2 := Rect(0, B1.Height, B1.Width, B1.Height + B2.Height);
B1.Height := B1.Height + B2.Height;
B1.Canvas.CopyRect(R2, B2.Canvas, R1); With SaveDialog1 do
begin
DefaultExt := 'bmp';
Filter := 'Bitmap 檔案 (*.bmp)|*.bmp|Windows MetaFile 檔案 (*.wmf)|*.wmf';
InitialDir := ExtractFileDir(Application.ExeName) + '\';
if Execute then
begin
try
B1.SaveToFile(FileName);
Application.MessageBox(PChar(L_Message_OutputChart_Ok),PChar(L_Message_Window) , MB_OK+MB_ICONINFORMATION);
except //'圖形匯出完成' '訊息視窗'
Application.MessageBox(PChar(L_Message_OutputChart_Error),PChar(L_Message_Window) , MB_OK+MB_ICONERROR);
end; //'圖形匯出失敗' '訊息視窗'
end;
end; B1.Free;
B2.Free;
end; 但是若要合併上下二圖,且從第一頁開始到最後一頁
就不知道如何改寫了 ,請教各位大大
|
Fishman
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
Hi seedbcc, 大致如下,你可再自行修改,並請注意,不要讓 TBitMap 的 Width 與 Height 無限制的成長,以避免產生錯誤!
procedure TForm1.Button2Click(Sender: TObject); var B1, B2: TBitmap; R1, R2: TRect; i : integer; begin With SaveDialog1 do begin DefaultExt := 'bmp'; Filter := 'Bitmap 檔案 (*.bmp)|*.bmp|Windows MetaFile 檔案 (*.wmf)|*.wmf'; InitialDir := ExtractFileDir(Application.ExeName) '\'; if Execute then begin B1 := TBitmap.Create; B2 := TBitmap.Create; B1.Width := Chart1.Width * Chart1.NumPages; B1.Height := Chart1.Height Chart2.Height; B2.Width := B1.Width; B2.Height := Chart2.Height; for I := 1 to Chart1.NumPages do begin Chart1.Page := I; Chart2.Page := I; Chart1.CopyToClipboardBitmap; B2.LoadFromClipboardFormat(cf_Bitmap, ClipBoard.GetAsHandle(cf_Bitmap),0); R1 := Rect(Chart1.Width * (I-1),0, Chart1.Width * I,Chart1.Height); R2 := Rect(0,0,chart1.Width,Chart1.Height); B1.Canvas.CopyRect(R1, B2.Canvas, R2); // B1.Canvas.StretchDraw(R1,B2); Chart2.CopyToClipboardBitmap; B2.LoadFromClipboardFormat(cf_Bitmap, ClipBoard.GetAsHandle(cf_Bitmap),0); R1 := Rect(Chart1.Width * (I-1), Chart1.Height, Chart1.Width * I, B1.Height); R2 := Rect(0,0,Chart2.Width,Chart2.Height); B1.Canvas.CopyRect(R1, B2.Canvas, R2); // B1.Canvas.StretchDraw(R1,B2); end; try B1.SaveToFile(FileName); Application.MessageBox(PChar(L_Message_OutputChart_Ok),PChar(L_Message_Window) , MB_OK MB_ICONINFORMATION); except Application.MessageBox(PChar(L_Message_OutputChart_Error),PChar(L_Message_Window) , MB_OK MB_ICONERROR); end; B1.Free; B2.Free; end; end; end;
------
Fishman |
seedbcc
高階會員 ![]() ![]() ![]() ![]() 發表:232 回覆:272 積分:105 註冊:2003-12-10 發送簡訊給我 |
圖表改成由上而下
procedure TForm1.Button2Click(Sender: TObject); var B1, B2: TBitmap; R1, R2: TRect; i : integer; begin With SaveDialog1 do begin DefaultExt := 'bmp'; Filter := 'Bitmap 檔案 (*.bmp)|*.bmp|Windows MetaFile 檔案 (*.wmf)|*.wmf'; InitialDir := ExtractFileDir(Application.ExeName) '\'; if Execute then begin B1 := TBitmap.Create; B2 := TBitmap.Create; B1.Width := Chart1.Width; B1.Height := (Chart1.Height Chart2.Height) * Chart1.NumPages; B2.Width := B1.Width; B2.Height := Chart2.Height; for I := 1 to Chart1.NumPages do begin Chart1.Page := I; Chart2.Page := I; Chart1.CopyToClipboardBitmap; B2.LoadFromClipboardFormat(cf_Bitmap, ClipBoard.GetAsHandle(cf_Bitmap),0); // R1 := Rect(Chart1.Width * (I-1),0, Chart1.Width * I,Chart1.Height); R1 := Rect(0,Chart1.Height* (I-1) Chart2.Height*(I-1),Chart1.Width, Chart1.Height* I Chart2.Height*(I-1)); R2 := Rect(0,0,chart1.Width,Chart1.Height); B1.Canvas.CopyRect(R1, B2.Canvas, R2); // B1.Canvas.StretchDraw(R1,B2); Chart2.CopyToClipboardBitmap; B2.LoadFromClipboardFormat(cf_Bitmap, ClipBoard.GetAsHandle(cf_Bitmap),0); // R1 := Rect(Chart1.Width * (I-1), Chart1.Height, Chart1.Width * I, B1.Height); R1 := Rect(0,Chart1.Height*I Chart2.Height*(I-1),Chart1.Width,Chart1.Height* I Chart2.Height*I); R2 := Rect(0,0,Chart2.Width,Chart2.Height); B1.Canvas.CopyRect(R1, B2.Canvas, R2); // B1.Canvas.StretchDraw(R1,B2); end; try B1.SaveToFile(FileName); Application.MessageBox(PChar(L_Message_OutputChart_Ok),PChar(L_Message_Window) , MB_OK MB_ICONINFORMATION); except Application.MessageBox(PChar(L_Message_OutputChart_Error),PChar(L_Message_Window) , MB_OK MB_ICONERROR); end; B1.Free; B2.Free; end; end; end;發表人 - seedbcc 於 2005/10/27 16:24:51 發表人 - seedbcc 於 2005/10/27 16:32:31 |
Fishman
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
Hi seedbcc,
procedure TForm1.Button3Click(Sender: TObject); var B1, B2: TBitmap; R1, R2: TRect; I,H : integer; begin With SaveDialog1 do begin DefaultExt := 'bmp'; Filter := 'Bitmap 檔案 (*.bmp)|*.bmp|Windows MetaFile 檔案 (*.wmf)|*.wmf'; InitialDir := ExtractFileDir(Application.ExeName) '\'; if Execute then begin B1 := TBitmap.Create; B2 := TBitmap.Create; H := Chart1.Height Chart2.Height; B1.Width := Chart1.Width; B1.Height := H * Chart1.NumPages; for I := 1 to Chart1.NumPages do begin Chart1.Page := I; Chart2.Page := I; Chart1.CopyToClipboardBitmap; B2.LoadFromClipboardFormat(cf_Bitmap, ClipBoard.GetAsHandle(cf_Bitmap),0); R1 := Rect(0,H * (i - 1), Chart1.Width,H * (i - 1) Chart1.Height); R2 := Rect(0,0,Chart1.Width,Chart1.Height); B1.Canvas.CopyRect(R1, B2.Canvas, R2); // B1.Canvas.StretchDraw(R1,B2); Chart2.CopyToClipboardBitmap; B2.LoadFromClipboardFormat(cf_Bitmap, ClipBoard.GetAsHandle(cf_Bitmap),0); R1 := Rect(0,H * (I-1) Chart1.Height, Chart1.Width, H * I); R2 := Rect(0,0,Chart2.Width,Chart2.Height); B1.Canvas.CopyRect(R1, B2.Canvas, R2); // B1.Canvas.StretchDraw(R1,B2); end; try B1.SaveToFile(FileName); Application.MessageBox(PChar(L_Message_OutputChart_Ok),PChar(L_Message_Window) , MB_OK MB_ICONINFORMATION); except Application.MessageBox(PChar(L_Message_OutputChart_Error),PChar(L_Message_Window) , MB_OK MB_ICONERROR); end; B1.Free; B2.Free; end; end; end;
------
Fishman |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |