Rapora Lisans Sahibinin İsmini Eklemek

[ifthen]

Arkadaşlar Merhaba;

Forumda aradım ama bulamadım. FastReport 3 kullanıyorum. Lisans sahibinin veya firmanın ismini bir text dosyada saklıyorum. Programdaki bütün raporlarda, raporun en altında veya üstünde lisans sahibi kişinin veya firmanın adını yazdırmak istiyorum. GetValue özelliğini kullandım fakat olmadı. Çünkü getvalue özelliği sadece kayıtlarda geçerli sanırım. Yardımlarınız için şimdiden teşekkür ederim.

[freeman35]

runtime da footer ekleyip bunun üzerinede label eklersen sanırım istediğin olur. Eklediğin headerda olabilir bunu en üste setlersen sayfanın başına yazdırmış olabilirsin

kolay gele

[t-hex]

@ifthen,

FastReport 3'ün OnUserFunc olayından faydalanabilirsin.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  frxReport1.AddFunction('function LISANS:string;');
  frxReport1.ShowReport(true);
end;

function TForm1.frxReport1UserFunction(const MethodName: String;
  var Params: Variant): Variant;
begin
  if MethodName = 'LISANS' then begin
    //Lisans bilgisini okut, Result'a ata
  end;
end;

Yukarıdaki kod ile FastReport'un scriptine LISANS diye bir fonksiyon tanımlamış oluyorsun.

LISANS bilgisini göstermek içinde rapor bir memo at ve içine

Kod: Tümünü seç

  [LISANS]

yaz, çalışır.

Kolay gelsin.

[ifthen]

Arkadaşlar,

Yardımlarınız için teşekkürler. İstediğim oldu. Kolay gelsin.