Majid.Ebru
پنج شنبه 23 اردیبهشت 1395, 10:03 صبح
سلام
می خوام یه برنامه بنویسم توی این برنامه از به پیشنهاد و راهنمایی BORHAN-TEC (http://barnamenevis.org/member.php?75214-BORHAN-TEC)H از کامپوننت ScrollBox استفاده کردم.
الان می خوام از کل محتویات اون یه عکس یا preview ازش نشون بدم مثل برنامه فتوشاپ که از کل عکس یه preview نشون می ده.
توی اینترنت گشتم و چند تا کد پیدا کردم که از همه بهتر این بود :
procedure TForm1.Button2Click(Sender: TObject);
var
B: TBitmap;
begin
B := TBitmap.Create;
B.Width := 600;
B.Height := 600;
B.Canvas.Lock;
scrollbox1.PaintTo(B.Canvas.Handle,0,0);
B.Canvas.Unlock;
Image2.Picture.Assign(B);
end;
مشکلم اینجاست که از تمام محتویات Scrollbox عکس نمی گیره و فقط از اون قسمتی که الان داره نشون می ده عکس می گیره و ار تمامش عکس نمی گیره.
اگه امکان داره لطفن راهنمایی کنید
با تشکر فراوان
می خوام یه برنامه بنویسم توی این برنامه از به پیشنهاد و راهنمایی BORHAN-TEC (http://barnamenevis.org/member.php?75214-BORHAN-TEC)H از کامپوننت ScrollBox استفاده کردم.
الان می خوام از کل محتویات اون یه عکس یا preview ازش نشون بدم مثل برنامه فتوشاپ که از کل عکس یه preview نشون می ده.
توی اینترنت گشتم و چند تا کد پیدا کردم که از همه بهتر این بود :
procedure TForm1.Button2Click(Sender: TObject);
var
B: TBitmap;
begin
B := TBitmap.Create;
B.Width := 600;
B.Height := 600;
B.Canvas.Lock;
scrollbox1.PaintTo(B.Canvas.Handle,0,0);
B.Canvas.Unlock;
Image2.Picture.Assign(B);
end;
مشکلم اینجاست که از تمام محتویات Scrollbox عکس نمی گیره و فقط از اون قسمتی که الان داره نشون می ده عکس می گیره و ار تمامش عکس نمی گیره.
اگه امکان داره لطفن راهنمایی کنید
با تشکر فراوان