wie aus Delphi Wert 'aaa' in ein Memo1 von Fastreport ?

[EccoBravo]

Hallo Alzaimar,

Danke danke!
TChart kenne ich schon zur Genüge, und nach LineSeries u.ä. habe ich schon gesucht, aber nichts gefunden.

Dann hatte ich aber auf Eure Empfehlung mal in den Frx-Demos umgedehen und den Array-Adapter oder den StringGrid-Adapter "TfrxCrossView" gefunden.
Dabei dachte ich mit, mit den Diagrammen müsse es genauso gehen, so verwendete ich "TfrxChartView"
Wie ich es probiert habe (leider ohne Erfolg, haber ich mal angehangen.

Vielleicht erkennst Du einen Fehler.

Delphi-Quellcode:

procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
var
  Cross: TfrxCrossView;
  Diag:  TfrxChartview;
  i, j: Integer;
begin
  if c is TfrxCrossView then
  begin
    Cross := TfrxCrossView(c);
    for i := 1 to 16 do
      for j := 1 to 16 do
        Cross.AddValue([i], [j], [StringGrid1.Cells[i - 1, j - 1]]);
  end;
  if c is TfrxChartView then
  begin
    Diag := TfrxChartView(c);
    for i := 1 to 16 do

     //Diag.SeriesData.Add.XValues(IntToStr(i));   ???
     //Diag.SeriesData.Add.YValues(IntToStr(i));   ???
  end;
end;

Dann nochmals Danke und Grüße

E. B.

[alzaimar]

Du kannst Userdataset verwenden. Schau mal hier. Geht bestimmt einfacher, aber so eben auch.

[EccoBravo]

Vielen Dank alzaimar,

habe mir den Code angesehen und ausprobiert. Funktioniert sehr gut. UserDataSet erinnert mich sehr an ein AsapterPattern oder BridgePattern, kann das sein?
Bei QuickReport ist man ohne eines solchen Adapters ausgekommen.
Etwas gewöhnungsbedürftig, aber bei Wiederverwendung angenehmer als QuickReport.

Nun mal eine andere Frage, ich will mir nun das FastReport 4 kaufen, Es gibt das Base Package, das Standard Package, das Professional Package und das Enterprise Package.

ich programmiere mit RAD 2007 Architect nur No-DataBase und nur Win32. Mache aber viel mit farbigen Tabellen, Bildern und Diagrammen. Welches Package würdest Du mir empfehlen (PrivatKauf).

Danke nochmal und Tschüß

E. B.

PS: Habe soeben auch kapiert, wie man statische Arrays in das Diagramm bringt. Tolle Methode, wenn man daran denkt, DiagrammCode aus seinen ProgrammCode fernzuhalten.

Nun aber noch eine abschliessende Frage:

Ich Habe versucht, verschiedene Kurven Y(X) in ein Diagramm zu malen,
so Y1(X1) und Y2(X2).

Dabei habe ich bemerkt daß er in dem Disgramm statt Y1(X1) und Y2(X2)
die Kurven Y1(X1) und Y2(X1) malt.
Er malt also die Kurven Y1 und Y2 auf die selben X-Werte von X1, also auf die Abzisenwerte von X1

Gibt es einen Weg, die Kurven Y1(X1) und Y2(X2) in X zu entkoppeln?


Nochmals Danke und Tschüß

E. B.

[EccoBravo]

Hallo Alzaimar,

habe die Lösung mit dem TfrxCrossView auch schon selbst gefunden (mit Hilfe der Demos), trotzdem nochmal herzlichen Dank, ist eben am Anfang alles ein wenig tricky.

Jetzt aber die Frage:
Im Demo PrintStringGrid ist im FastReport4 ein CrossView als Objekt mit einer Zelle in einem MasterData Bereich eingesetzt worden.

Erst im ProgrammCode

Delphi-Quellcode:

procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
var
  Cross: TfrxCrossView;
  i, j: Integer;
begin
  if c is TfrxCrossView then
  begin
    Cross := TfrxCrossView(c);
    for i := 1 to 16 do
      for j := 1 to 16 do
        Cross.AddValue([i], [j], [StringGrid1.Cells[i - 1, j - 1]]);
  end;
end;

wird dieses CrossView in FastReport4 zu einem mehrzeiligen/mehrspaltigen Gebilde aufgebläht.

Nun will ich diese Tabbelle CrossView aber schon vorher in der Entwurfsansicht formatieren (WhatYouSeeWhatYouGet), da ich verschiedene Zellfarben, Zellschriften, Spaltenbreiten verwenden will, da diese "FastReport Tabelle" mit anderen "FastReport Elenemten" per Sicht harmonieren soll.

Daher brauche ich eine Anleitung, wie ich eine Tabelle nach Sicht im FastReport4 vorher entwerfen kann und im Code mit Inhalt füllen kann.

Ist das in dieser Form mit FastReport4 möglich?


Also nochmal Dank und Grüße

E. B.



E. B. schrieb vorhin:
Hallo Alzaimar,

ausgehend von Deinem gut funktioniertenden Code für ein TFrxChartView im FastReport nun eine Datenübergabe für ein TFrxCrossView.
Wie bekomme ich aus dem Programm die Werte eines StringGrids oder die Werte von x,y: array[1..12] of single; in ein TFrxCrossView?

Danke und Grüße

E. B.

[EccoBravo]

Hallo

ich fummele immer noch an der ScriptFormatierung von TfrxCrossObject. Habe dazu im FastReport UserManual folgenden Code gefunden

Delphi-Quellcode:

procedure Cross1OnPrintCell(Memo: TfrxMemoView;
    RowIndex, ColumnIndex, CellIndex: integer;
    RowValues, ColumnValues, Value: Variant);
begin
    if ColumnIndex = 2 then
        Memo.Color := clRed;
end;

Nun finde ich nicht die Stelle wo das hin kommt.
Packe ich das in den Quellcode meines Programmes dann passiert nichts.
Nicht einmal meckert der Compiler bei groben Schreibfehlern der Procedure.
Ich verstehe einfach diese Codesequenz nicht, ein Cross1 gibt es als Object im Unit nicht, nur ein frxCrossObject1.
Und wenn ich in den Formularentwurf auf das TfrxCrossObject-Symbol gehe, finde ich im Objectinspector keinerlei Einträge.

Weiss hier jemand weiter?

Danke E. B.

[Union]

Du musst das Ereignis im Objektinspektor des fr-Designers deinem Crossview OnPrintCell zuweisen. Hierbei handelt es sich nicht um Delphi Code sondern FastScript!

[EccoBravo]

Danke Union,

ich habe einen FrxDesigner und eine Menge Fs...
Aber nirgens habe ich im ObjectInspector ein OnPrintCell-Ereignis gefunden.
Ich habe die FrxDesigner und Fs...Komponenten versuchsweise nacheinander in die Entwurfssicht des Form1 gesetzt.
Irgendwie muß ich falsch liegen!

Danke für weitere Tips

Grüsse

E. B.

[Union]

Ich meinte nicht in TFrxDesigner, sondern im fr-Designer. Wenn Du auf einen tfrxReport-Komponente doppelklickst, öffnet sich doch ein Designer. Dort definierst Du ja auf der Seite Dein Crossview-Objekt. In dem Designer gibt es einen eigenen OI, und in dem kannst Du Eigenschaften der jeweils selektierten Element festlegen. Auf der Registerseite "Code" kannst Du den Code bearbeiten.

[EccoBravo]

Vielen Dank,

da lag ich wirklich ganz schön falsch, aber was will man erwarten, wenn die Ausfertigung einer Tabelle an vielen unerklärlichen Stellen verstreut liegt.

Vielen Dank

E. B.

[EccoBravo]

Habs selber gefunden

Danke E. B.


EccoBravo schrieb:
Hallo Folgefrage:

Kann ich das Masterband um 90grd drehen, sodass die Daten nicht mehr als Reihen untereinander sondern wie Tabellenspalten nebeneinander gedruckt werden?

Danke

E. B.