Rapor Tasarım Programı

[pasa_yasar]

Herkese İyi Çalışmalar,

Üstatlar programda kullanıcının kendi düzenleyeceği bir tasarım programı yapmam gerekiyor , bunu alıp düzenleyebileceğim türkçe desteği olan bir rapor tasarım programı evar mı yoksa kendim mi bir tane yazmam gerekecek...

[mcihad]

FastReport İşini görür zannediyorum ama parası biraz fazla tabii

[pasa_yasar]

fast report kullanıcı için bir fazla profesyonel ;
özür dileyerek soruyu biraz değiştireyim ,
form üzerinde kullanıcıya istediğim gibi tasarım yaptırabileceğim fast report desinger deki düzgün ,güzel bir şekilde kendi yapabileceğim uygun bir tasarım vcl 'si veya bu konuda bilgi alabileceğim site veya kod biliyormusunuz...
tasarım programını ben yapsam kullanıcı için daha kolay olacak gibi...

[sychorax]

torry.net'te quickreport için qrdesigner diye bi bileşen vardı.ordan arattırıp indirebilirsin.

[oguzozturk74]

Bu kodda bir form üzerindeki image bileşeni runtime da taşınabiliyor. Belki bir fikir verir.

move components at Runtime
{ This example shows how to move components at runtime, dragging it. You are able to see the components move as you drag them. Attach the Control event handlers (ControlMouseDown,...)
to all components you want to move. }

Kod: Tümünü seç

type 
  TForm1 = class(TForm) 
    Image1: TImage; 
    procedure ControlMouseDown(Sender: TObject; Button:TMouseButton; Shift:TShiftState;  X, Y: Integer); 
    procedure ControlMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); 
    procedure ControlMouseUp(Sender: TObject; Button: TMouseButton; 
Shift: TShiftState; X, Y: Integer); 
  private 
    FDownX, 
    FDownY: Integer; 
    FDragging: Boolean; 
  public 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.DFM} 

type 
  TMoveCracker = class(TControl); 

procedure TForm1.ControlMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
begin 
  FDownX := X; 
  FDownY := Y; 
  FDragging := True; 
  TMoveCracker(Sender).MouseCapture := True; 
end; 

procedure TForm1.ControlMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); 
begin 
  if FDragging then 
    with Sender as TControl do 
    begin 
      Left := X - FDownX + Left; 
      Top  := Y - FDownY + Top; 
    end; 
end; 

procedure TForm1.ControlMouseUp(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); 
begin 
  if FDragging then 
  begin 
    FDragging := False; 
    TMoveCracker(Sender).MouseCapture := False; 
  end; 
end