Supeposición de etiquetas cuando cambio la fuente en un QReport!

[[Lepe]]

¿Por qué no usas un qrDBMemo?

Usas la propiedad Dataset para indicar de donde vienen los datos.

En su interior pones:

Producto : {FieldProducto}
Descripción: {FieldDescripcion}
Precio: {FieldPrecio}

Lo que va entre llaves lo interpreta como nombres de campos del Dataset al que está asociado. El resto, es texto que se imprime tal y como aparece. Si un texto no cabe en una linea, automáticamente "empuja" el texto hacia abajo.

Creo que puedes ponerle Autosize y AutoStrech al Memo para que crezca/decrezca automáticamente.

Saludos

[arieliten]

Empezado por Lepe

¿Por qué no usas un qrDBMemo?

Usas la propiedad Dataset para indicar de donde vienen los datos.

En su interior pones:

Producto : {FieldProducto}
Descripción: {FieldDescripcion}
Precio: {FieldPrecio}

Lo que va entre llaves lo interpreta como nombres de campos del Dataset al que está asociado. El resto, es texto que se imprime tal y como aparece. Si un texto no cabe en una linea, automáticamente "empuja" el texto hacia abajo.

Creo que puedes ponerle Autosize y AutoStrech al Memo para que crezca/decrezca automáticamente.

Saludos

Hola, primero que nada, uso Delphi 7 y aunque instalé la paleta de QReport, no veo el componente QRDBMemo
Segundo, creo que el problema lo voy a seguir teniendo, ya que yo podría cambiar la propiedad "Font" pero de TODO el QRDBMemo y lo que yo necesito es asignar distintos "Fonts" a cada rengón! ¿Me explico?
Gracias de todas formas.

[[Lepe]]

Código Delphi [-]
unit LpFont;

interface

uses Graphics,sysutils, types,windows;


function FontHeight(const Fuente:TFont;const Texto:string):Integer;
function FontWidth(const Fuente:TFont;const Texto:string):Integer;

implementation

uses shellapi;


function FontWidth(const Fuente:TFont;const Texto:string):Integer;
var c:TCanvas;
begin
  try
    c:= TCanvas.Create;
    c.Handle := GetDC(0);

    c.Font.Assign(Fuente);
    Result := c.TextWidth(Texto);
  finally
    FreeAndNil(c);
  end;
end;

function FontHeight(const Fuente:TFont;const Texto:string):Integer;
var c:TCanvas;
begin
  try
    c:= TCanvas.Create;
    c.Handle := GetDC(0);

    c.Font.Assign(Fuente);
    Result := c.TextHeight(Texto);
  finally
    FreeAndNil(c);
  end;
end;

asignas el tamaño a los qrlabels y despues llamas a estas funciones para ver cuanto ocupan, así le das el tamaño.

Código Delphi [-]
  QRLABEL4.Font.Size := 23;
  QRLABEL4.Height := lpfont.FontHeight(QRLabel4.Font,qrlabel4.caption);

Puede que haya otra forma más fácil, pero no la he probado, esta forma la tenía más a mano .

Saludos

[arieliten]

Gracias por tu ayuda Lepe. Estoy intentando probarla y no sé ni siquiera dónde coloco el código que me pasastes y cómo lo aplico a mi ejemplo. Si puedieras darme una manito más te lo agradecería.
Primero que nada, la unit lpconstantes no la tengo y me da error. Cuando la saco, me compila bien pero no sé donde llamar o cómo usar las funciones que defines. ¿Qué es "lpfont" que usas en el ejemplo de uso de la función?
Muchas gracias por tu tiempo.
Ariel

[[Lepe]]

lpFont.pas es la unidad donde tengo esas rutinas, puedes borrarlo con tranquilidad.

lpconstantes, es una unidad donde tengo definidas mis constantes, tampoco hacen falta.

Ambos fueron errores de copiar y pegar .

Añade esas rutinas a una unidad nueva, y despues incluyela en el "uses" de tu ventana para poder usarla.

Acabo de editar el mensaje anterior para añadir las 2 primeras líneas.

Saludos

[arieliten]

Ok, muchas gracias Lepe. Estoy probando y al parecer me puede ser útil. Voy a seguir "jugando" un poco con estas rutinas a ver qué sale.
Gracias por tu tiempo nuevamente.

Ariel