'Programming/C++'에 해당되는 글 1건

336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.

 

  
void __fastcall ScrollBoxPaintTo(TScrollBox *ScrollBox,HDC DC,int X,int Y,int Wid,int Hei) 

    int I, EdgeFlags, BorderFlags, SaveIndex; 
    TRect R; 

    ScrollBox->ControlState=ScrollBox->ControlState<< csPaintCopy; 
    MoveWindowOrg(DC, X, Y); 
    IntersectClipRect(DC, 0, 0, Wid, Hei); 

    BorderFlags = 0; 
    EdgeFlags = 0; 

    if( GetWindowLong(ScrollBox->Handle, GWL_EXSTYLE) & WS_EX_CLIENTEDGE != 0 ) 
    { 
        EdgeFlags  = EDGE_SUNKEN; 
        BorderFlags = BF_RECT | BF_ADJUST; 
    } 
    else if( GetWindowLong(ScrollBox->Handle, GWL_STYLE) & WS_BORDER != 0 ) 
    { 
        EdgeFlags = BDR_OUTER; 
        BorderFlags = BF_RECT | BF_ADJUST | BF_MONO; 
    } 

    if( BorderFlags !=0) 
    { 
        R=Rect( 0, 0, Wid, Hei); 
        DrawEdge(DC, &R, EdgeFlags, BorderFlags); 
        MoveWindowOrg(DC, R.Left, R.Top); 
        IntersectClipRect(DC, 0, 0, R.Right - R.Left, R.Bottom - R.Top); 
    } 

    //일반 캡쳐의 경우 ... 
    //scroll전체 캡쳐를 위해 빼버림 
// ScrollBox->Perform(WM_ERASEBKGND, (int)DC, 0); 
// ScrollBox->Perform(WM_PAINT, (int)DC, 0); 

    for ( int i=0;i< ScrollBox->ControlCount;i++) 
    { 
        if(ScrollBox->Controls[i]->Visible) 
        { 
            if(ScrollBox->Controls[i]->InheritsFrom(__classid(TWinControl))) 
            { 
                ((TWinControl *)ScrollBox->Controls[i])->PaintTo(DC,ScrollBox->Controls[i]->Left+ScrollBox->HorzScrollBar->Position ,ScrollBox->Controls[i]->Top+ScrollBox->VertScrollBar->Position); 
            } 
            else if(ScrollBox->Controls[i]->InheritsFrom(__classid(TGraphicControl))) 
            { 
                 MoveWindowOrg(DC, ScrollBox->Controls[i]->Left+ScrollBox->HorzScrollBar->Position, ScrollBox->Controls[i]->Top+ScrollBox->VertScrollBar->Position); 
                ((TGraphicControl *)ScrollBox->Controls[i])->Perform(WM_PAINT,(int)DC,0);// PaintTo(DC,ScrollBox->Controls[i]->Left+ScrollBox->HorzScrollBar->Position ,ScrollBox->Controls[i]->Top+ScrollBox->VertScrollBar->Position); 
                 MoveWindowOrg(DC, -ScrollBox->Controls[i]->Left-ScrollBox->HorzScrollBar->Position, -ScrollBox->Controls[i]->Top-ScrollBox->VertScrollBar->Position);//MoveWindowOrg(DC, R.Left, R.Top); 
            } 
        } 
    } 
    ScrollBox->ControlState=ScrollBox->ControlState>>csPaintCopy;// Exclude(FControlState, csPaintCopy); 



Graphics::TBitmap * __fastcall GetScrollBoxImage(TScrollBox *ScrollBox) 

    if(ScrollBox==NULL)return NULL; 

    Graphics::TBitmap *bmp=NULL; 
    TRect rc=Rect(0,0,ScrollBox->HorzScrollBar->Range,ScrollBox->VertScrollBar->Range); 

    bmp=new Graphics::TBitmap; 

    bmp->Width=ScrollBox->HorzScrollBar->Range; //ScrollBox->ClientWidth; 
    bmp->Height=ScrollBox->VertScrollBar->Range; //ScrollBox->ClientHeight; 
    bmp->Canvas->Brush = ScrollBox->Brush; 
    bmp->Canvas->FillRect(rc);//ScrollBox->ClientRect); 
    bmp->Canvas->Lock(); 

    try 
    { 
        int Ofs=0; 
        if(GetWindowLong(ScrollBox->Handle, GWL_STYLE) & WS_BORDER ) 
            Ofs = -1;  // Don't draw form border 
        else 
            Ofs = 0;  // There is no border 

        ScrollBoxPaintTo(ScrollBox,bmp->Canvas->Handle,Ofs, Ofs, rc.right,rc.bottom); 
    // ScrollBox->PaintTo(bmp->Canvas->Handle, Ofs, Ofs); 

    } 
    __finally 
    { 
        bmp->Canvas->Unlock(); 
    } 

    return bmp; 

void __fastcall TForm3::Button5Click(TObject *Sender) 

    Graphics::TBitmap *bmp; 

    bmp=GetScrollBoxImage(ScrollBox1); 
// bmp->SaveToFile("C:\\TestScrollBoxImage.bmp"); 
    Image1->Picture->Bitmap->Assign(bmp); 
    Image1->AutoSize=true; 
    delete bmp; 

//---------------------------------------------------------------------------
     

 

 

추가   08-11-25

출처  http://www.delphi.co.kr/zboard/view.php?id=qanda&page=1&page_num=20&select_arrange=headnum&desc=&sn=off&ss=on&sc=on&keyword=&no=115191&category=

 

http://delphi.newswhat.com/geoxml/forumhistorythread?groupname=borland.public.delphi.graphics&messageid=40446566$1@newsgroups.borland.com

 

 

  
procedure Tform1.PaintControl( aControl: TWinControl; aCanvas: TCanvas; offsetx, offsety: Integer ); 
begin 
   SaveDC( aCanvas.handle );  
   try  
      SetWindowOrgEx( aCanvas.handle, - (acontrol.left + offsetx), - (acontrol.top + offsety), nil );  
      acontrol.perform( WM_PRINT, acanvas.handle, PRF_CHILDREN or PRF_CLIENT or PRF_NONCLIENT or PRF_ERASEBKGND );  
   finally  
      RestoreDC( aCanvas.handle, - 1 );  
   end;  
end;  


procedure Tform1.Button1Click(Sender: TObject);  
var  
 bmp: TBitmap;  
 i: integer;  
begin  

  bmp := TBitmap.Create;  
  try  
    bmp.width := scrollbox1.HorzScrollBar.Range;  
    bmp.height := scrollbox1.VertScrollBar.Range;  

    bmp.canvas.lock;  
    SetMapMode( bmp.canvas.handle, MM_ISOTROPIC );  
    SetWindowExtEx( bmp.canvas.handle, 400, 400, nil );  
    SetViewportExtEx( bmp.canvas.handle, 400, 400, nil );  
    try  
      SetWindowOrgEx( bmp.canvas.handle, - scrollbox1.HorzScrollBar.Position, - scrollbox1.VertScrollBar.POsition, nil );  
      bmp.Canvas.Brush := scrollbox1.Brush; 
      bmp.Canvas.FillRect(Rect(0,0,bmp.width,bmp.height)); 
      scrollbox1.perform( WM_PAINT, bmp.canvas.handle, 1 );  
      SetWindowOrgEx( bmp.canvas.handle, 0, 0, nil );  
      for i := 0 to scrollbox1.controlcount - 1 do  
         if scrollbox1.Controls[i] is TWincontrol then  
            Paintcontrol(TWincontrol(scrollbox1.Controls[i]), bmp.canvas, scrollbox1.horzscrollBar.Position, scrollbox1.vertScrollBar.Position ); 
    finally  
         bmp.canvas.unlock;  
    end;  

    bmp.SaveToFile('c:\test.bmp');  
  finally  
    bmp.free;  
  end;  

end; 
     

 

추가 08-12-02

위 델파이 버젼 코드를 다시 좀 수정 했습니다.

다른사람코드를 거의 그대로 복사해 넣다보니 쓸데없는 부분이 좀 있네요

다음은 수정한 코드입니다.

 

  
function GetScrollBoxImage(ScrollBox:TScrollBox):TBitmap; 
var 
  bmp: TBitmap; 
  i: integer; 
  wCtrl:TWinControl; 

  function iMax(iVal1,iVal2:Integer):Integer; 
  begin 
    if iVal1>iVal2 then Result:=iVal1 
    else Result:=iVal2; 
  end; 
begin 

  Result:=nil; 
  bmp := TBitmap.Create; 

  // bitmap을 Scroll-Range 크기만하게 만들어준다. 
  // Scroll-Range가 ScrollBox의 원래크기보다 작은경우가 잇으므로 Max값으로 한다. 
  bmp.width := iMax(ScrollBox.HorzScrollBar.Range,ScrollBox.Width); 
  bmp.height :=iMax(ScrollBox.VertScrollBar.Range,ScrollBox.Height); 

  bmp.canvas.lock; 

  //ScrollBox의 Brush를 이용해서 배경을 그려준다. 
  bmp.Canvas.Brush := ScrollBox.Brush; 
  bmp.Canvas.FillRect(Rect(0,0,bmp.width,bmp.height)); 

  //ScrollBox의 이미지 즉 ScrollBox와 그위에 올려진 GraphicControl의 그린다. 
  //그릴때 현재 ScrollBar의 위치만큼 DC의 Offset을 설정하고 그린다. 
  SetWindowOrgEx( bmp.canvas.handle, - ScrollBox.HorzScrollBar.Position, - ScrollBox.VertScrollBar.POsition, nil ); 
  ScrollBox.perform( WM_PAINT, bmp.canvas.handle, 0 ); 

  //ScrollBox위에 모든 Window-Control을 그려준다. 
  for i := 0 to ScrollBox.controlcount - 1 do 
  begin 
     if ScrollBox.Controls[i] is TWincontrol then 
     begin 
      wCtrl:=TWinControl(ScrollBox.Controls[i]); 
      SaveDC( bmp.Canvas.Handle ); 
      SetWindowOrgEx( bmp.Canvas.Handle, - (wCtrl.Left + ScrollBox.horzscrollBar.Position), - (wCtrl.Top +  ScrollBox.vertScrollBar.Position), nil );
      wCtrl.Perform(WM_PAINT,bmp.Canvas.Handle,0); 
      RestoreDC(bmp.Canvas.Handle,-1 ); 
     end; 
  end; 

  bmp.canvas.Unlock; 
  Result:=Bmp; 
end; 

//사용예 
procedure TForm1.Button2Click(Sender: TObject); 
var 
  bmp:TBitmap; 
begin 
  bmp:=GetScrollBoxImage(ScrollBox1); 
  Image2.Picture.Bitmap.Assign(bmp); 
  Image2.AutoSize:=true; 
  bmp.free; 
end;
     

 



[출처]

http://cafe.naver.com/bcbmaster.cafe?iframe_url=/ArticleRead.nhn%3Farticleid=759

블로그 이미지

By훈트

,