Вывести на печать ScrollBox в delphi

[BuT@JL]

Вообще это реально вывести на печать ScrollBox??? если да, то как это сделать???

[Izhic]

Т.е. как в Access?
Думаю через HDC.
[Process.....]
Упс весь экран вывел Уже почти...
[Process.....]
Готово:

var
ScreenDC:hdc;
Canvas:TCanvas;
begin
ScreenDC := GetDC(ScrollBar1.Handle);

Canvas:=TCanvas.Create();
Canvas.Handle:=ScreenDC;
Image1.Canvas.Copyrect(Rect(0,0,Scr ollBar1.Width,ScrollBar1.Height),
Canvas, Rect(0,0,ScrollBar1.Width,ScrollBar 1.Height));
ReleaseDC(0,ScreenDC);
Canvas.Free;

end;

[BuT@JL]

Izhic спасибо... но это немного не подходит, у меня ScrollBox длинный и непомещается на всей форме, а тут получается рисунок с отображением того что сейчас видно на форме. Мне нужно чтобы весь он распечатывался... как это сделать я не знаю ((

[Delphi_Koder]

Доработка вышеприведенного примера по выводу содержимого ScrollBox в картинку.(Учитывается то, что компоненты расположенные на ScrollBox могут не вмещаться на нём, как следствие того появляются полосы прокрутки со всеми вытекающими)
___________________________________ ________________________

procedure Tmain.Button1Click(Sender: TObject);
var
ScreenDC:hdc;
Canvas:TCanvas;
x,y:integer;
dx,dy:integer;
IMG:TImage;
begin
      ScrollBox1.VertScrollBar.Position:=0;
      ScrollBox1.HorzScrollBar.Position:=0;
          ScrollBox1.Repaint;
		  
      if save_pic_dlg.execute then
      begin
      IMG:=TImage.Create(Self);
      x:=0;
      IMG.Width:=ScrollBox1.HorzScrollBar.Range;
      IMG.Height:=ScrollBox1.VertScrollBar.Range;

          while ScrollBox1.HorzScrollBar.Position<ScrollBox1.HorzScrollBar.Range do
          begin
          y:=0;
          ScrollBox1.VertScrollBar.Position:=0;
          ScrollBox1.Repaint;

          //Отступы для обрезки полос прокрутки
              if ScrollBox1.VertScrollBar.IsScrollBarVisible=true then dx:=21 else dx:=0;
              if ScrollBox1.HorzScrollBar.IsScrollBarVisible=true then dy:=21 else dy:=0;

          ScreenDC := GetDC(ScrollBox1.Handle);

          Canvas:=TCanvas.Create();
          Canvas.Handle:=ScreenDC;
          IMG.Canvas.Copyrect(Rect(x,0,x+ScrollBox1.Width-dx,ScrollBox1.Height-dy),Canvas, Rect(0,0,ScrollBox1.Width-dx,ScrollBox1.Height-dy));
    //По y-ку            
             while ScrollBox1.VertScrollBar.Position<ScrollBox1.VertScrollBar.Range do
             begin
                Canvas.Free;
                Canvas:=TCanvas.Create();
                Canvas.Handle:=ScreenDC;
              ScrollBox1.VertScrollBar.Position:=ScrollBox1.VertScrollBar.Position+ScrollBox1.Height-dy;
              ScrollBox1.Repaint;
              Application.ProcessMessages;

              if y=ScrollBox1.VertScrollBar.Position then break;
              y:=ScrollBox1.VertScrollBar.Position;
              IMG.Canvas.Copyrect(Rect(x,y,x+ScrollBox1.Width-dx,y+ScrollBox1.Height-dy),Canvas, Rect(0,0,ScrollBox1.Width-dx,ScrollBox1.Height-dy));
             end;
    //По y-ку    

          ScrollBox1.HorzScrollBar.Position:=ScrollBox1.HorzScrollBar.Position+ScrollBox1.Width-dx;
          ScrollBox1.Repaint;
          if x=ScrollBox1.HorzScrollBar.Position then break;

          x:=ScrollBox1.HorzScrollBar.Position;

          ReleaseDC(0,ScreenDC);
          Canvas.Free;
          Application.ProcessMessages;
          dx:=0;
          end;

       IMG.Picture.SaveToFile(save_pic_dlg.filename);
       IMG.Free;
       IMG:=nil;
       Application.MessageBox('Готово!','Внимание',mb_ok+MB_ICONINFORMATION);
      end;
end;

___________________________________ ________________________

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[min@y™]

у меня ScrollBox длинный и непомещается на всей форме

А чо у него там внутри?

[Delphi_Koder]

Просто мне недавно потребовалось сотворить такую функцию в своём приложении, и если кому-то тоже когда нибудь такое потребуется, то возможно кому-то как и мне посчастливится найти в поисковике ссылочку на нужную ветку форума (и неважно какого года там будет запись).

По поводу вопроса "А чо у него там внутри?":
У меня например строится некая сетка из компонентов, которая на один экран не вмещается, а чтобы например эту сетку распечатать пришлось бы например скрином экрана долго вырезать,вставлять и склеивать всё в единую картинку.