Repintado de un objeto grafico

senpiterno · #8 01-07-2004

Ya solucione el problema del rectangulo que se generaba al crear el texto sobre el gradian, utilizando la propiedad Brush.Style del canvas del objeto en donde se genera el texto, a continuación muestro el codigo por si a alguien le pudiera servir:

Código Delphi [-]Function CreaTextoVertical(Objeto:TPaintBox;Texto:String):Boolean;
Var
LOGFONT : TLogFont;
Font : HFONT;
Begin
Result:=False;//Asignamos el valor por defecto de la funcion
//Utilizamos la propiedad Brush.Style y le asignamos bsClear, para indicar que 
//cuando se pinte el objeto no se rellene su interior
 
Objeto.Canvas.Brush.Style:=bsClear;
Objeto.Canvas.Font.color:= $00C0FFFF;
LOGFONT.lfHeight := -13;
LOGFONT.lfWidth := 0;
LOGFONT.lfWeight := FW_NORMAL;
LOGFONT.lfEscapement := 900; { angulo expresado en decimas de grado }
LOGFONT.lfStrikeOut := 0; { distinto de cero para activarlo }
LOGFONT.lfItalic := 0; { distinto de cero para activarlo }
LOGFONT.lfUnderline := 0; { distinto de cero para activarlo }
LOGFONT.lfFaceName := 'Tahoma';
LOGFONT.lfQuality:=PROOF_QUALITY; 
Font := CreateFontIndirect(LOGFONT);
SelectObject(Objeto.Canvas.Handle,Font);
Objeto.Canvas.TextOut(6,Objeto.Height - 10,'Entrada');
 
Result:=True;//Le damos el valor de salida a la funcion
 
End;//Function

Gracias a todos por su ayuda.....