Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   como insertar el caracter 251 (https://www.clubdelphi.com/foros/showthread.php?t=76405)

DarkBlue 29-10-2011 22:53:20

como insertar el caracter 251
 
como es posible que se vea el caracter 251 es el que parece una palomita como en un check list
pero que aparesca en mi label ó en un quickreportlabel???
gracias!!!

ecfisa 30-10-2011 03:26:38

Cita:

Empezado por DarkBlue (Mensaje 417080)
como es posible que se vea el caracter 251 es el que parece una palomita como en un check list
pero que aparesca en mi label ó en un quickreportlabel???
gracias!!!

Hola DarkBlue.

Un ejemplo con Label:
Código Delphi [-]
  Label1.Font.Charset:= SYMBOL_CHARSET;
  Label1.Caption:= Chr(252);

Saludos.

DarkBlue 31-10-2011 00:52:23

hola muchas gracias intente tu primer metodo y me funciono a la perfeccion pero ahora lo intente con el reporte y no me ha funcionado, le he cambiado el charset ala etiqueta del repote y ademas he puesto esto

OnPrint

label.caption:=char(miconsulta.fieldbyname('campo').asinteger);
no he conseguido obtener el valor que necesito que represente como caracter
si me puedes dar mas ideas te lo agradeciria

DarkBlue 31-10-2011 02:10:34

oh bueno, he resuelto este problema escribiendo ese codigo no en la etiqueta que queria que pusiera ese simbolo sino en otro evento onprint de otra etiqueta, esto es muy extraño...supongo que es uno de los tantos secretos del quickreport... saludos y hasta la proxima duda

ecfisa 31-10-2011 02:32:20

Hola DarkBlue.

No sé como tenes organizado el reporte, pero suponiendo que tengas:
  • TQuickRep
  • TQRSubDetail (propiedad DataSet = tu TDataSet)
  • TQRLabel (dentro del TQRSubDetail)

Una forma podría ser:
Código Delphi [-]
procedure TForm1.QRSubDetail1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  QRLabel1.Font.Charset:= SYMBOL_CHARSET;
  QRLabel1.Caption:= Chr(StrToInt(DataSet.FieldByName('CAMPO').AsString));
end;

Un saludo.


La franja horaria es GMT +2. Ahora son las 07:34:33.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi