MensajePublicado: Mar 01 Ago, 2006 12:26 pm    Asunto: De RichEdit o (TWinControl) a un bitmap Responder citando
Hola:

/*
NO Bitmap->Canvas->Lock();
RichEdit1->PaintTo(Bitmap->Canvas->Handle, 0, 0);
Bitmap->Canvas ->Unlock();
Image1 ->Picture ->Bitmap ->Assign(Bitmap);
*/
// RichEdit1->SelectAll();
// RichEdit1->CopyToClipboard(); NO
//TRect Rect = RichEdit1->ClientRect; NO
//HDC Hand;
// Handle = GetWindowDC (RichEdit1 ->Handle) ;
//RichEdit1->Perform(WM_PRINT, Canvas->Handle, (LPARAM)&Rect );
//RichEdit1->Perform(WM_PRINT, 0 ,(LPARAM)&Rect );

//Image1 ->Canvas-> CopyRect (Rect,RichEdit1->Canvas, Rect) NO

//Canvas->CopyMode = cmWhiteness; NO
//Canvas->BrushCopy(RichEdit1->ClientRect, Bitmap, RichEdit1->ClientRect, clBlack);
//Image1 ->Canvas->CopyRect(RichEdit1->ClientRect, this ->Canvas, RichEdit1->ClientRect);
//Canvas ->StretchDraw(Image1 ->ClientRect, Bitmap);



SIII

Código:

Image1 ->Tranparent = true;
Image1 ->Picture ->Bitmap = NULL;

TFormatRange range;
range.hdc = Image1 ->Canvas ->Handle;
range.hdcTarget =  Image1 -> Canvas ->Handle;
range.rc.left = 0;
range.rc.top = 0;
range.rc.right = Image1 -> Width* 1440 / Font ->PixelsPerInch;
range.rc.bottom = Image1 ->Height* 1440 / Font ->PixelsPerInch;
range.chrg.cpMax = -1;//300;//-1;
range.chrg.cpMin = 0;//500;//RichEdit1 ->GetTextLeng();

 SendMessage(RichEdit1 ->Handle, EM_FORMATRANGE, 1, long (&range));
 SendMessage(RichEdit1->Handle, EM_FORMATRANGE, 0, 0);




Aun tengo que mirar el tamaño, y alguna cosa mas, pero basicamente era lo que necesitaba.
En teoria se asigna un hdc sobre otro asi que valdria para inumerables cosas.

By.