como insertar el caracter 251

[DarkBlue]

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]

Empezado por DarkBlue

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]

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]

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]

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.