Ver Mensaje Individual
  #1  
Antiguo 07-07-2008
zidfrid zidfrid is offline
Miembro
 
Registrado: abr 2007
Ubicación: buga valle colombia
Posts: 66
Reputación: 18
zidfrid Va por buen camino
Smile codigo en delphi a c++ builder

Hola de nuevo amigos del foro espero esten todos bien.

veran amigos tengo un problemiya pasando un codigo de delphi a c++, el codigo original en delphi es:
Código Delphi [-]
 begin
  VMRBitmap:= TVMRBitmap.Create(VideoWindow);

  with VMRBitmap, Canvas do
  begin
    LoadEmptyBitmap(300,200,pf24bit, clSilver);
    Source := VMRBitmap.Canvas.ClipRect;
    Options := VMRBitmap.Options + [vmrbSrcColorKey];
    ColorKey := clSilver;
    Brush.Color := clSilver;
    Font.Color := clWhite;
    Font.Style := [fsBold];
    Font.Size := 30;
    Font.Name := 'Arial';
    TextOut(0,0,'Hello Word ');
    DrawTo(0,0,1,1,0.5);
  end;
end;
y mi traduccion al buielder es la siguiente:
Código:
{
  VMRBitmap= new  TVMRBitmap(VideoWindow);
  text->LoadEmptyBitmap(600,400,pf24bit,clSilver);
  text->Source= text->Canvas->ClipRect;             
  text->Options.operator +=(vmrbSrcColorKey); //problemas
  text->ColorKey= clSilver;
  Canvas->Brush->Color= clSilver;
  Canvas->Font->Color= clWhite;
  Canvas->Font->Style.operator =(fsBold); //problemas
  Canvas->Font->Size= 30;
  Canvas->Font->Name= Arial;                 //problemas
  text->Canvas->TextOutA(2, 2,"hola" );
  text->DrawTo(2,2,5,5,0.5,true);
}
las lineas señaladas con problemas son las que no he podido hacer funcionar y si las suprimo el programa corre mas no funciona como debe de ser.
agradesco de antemano cualquier tipo de ayuda o pista con este problema o si he omitido algo en mi traduccion del codigo a buielder.

una vez mas muchas gracias por el tiempo que han gastado leyendo este hilo
__________________
documentos de word
Responder Con Cita