Edit-Text in Rave-Text anzeigen

[Helmi]

Hallo,

ich hab mir jetzt mehrere Threads über Rave angeschaut,
aber so richtig schlau werd ich ned draus.

Ich hab mal testweise in einem Rave-Projekt eine Text-Komponente (Name: Text1) und eine Bitmap-Komponente (Name: Bitmap1) auf den Report geklatscht und würd nun gerne diese beiden Komponenten von Delphi aus beschreiben.
Wenn das dann geschehen ist, würd ich gern den Report sehen.

Kann mir das jemand mal erklären wie das funktioniert? - ein kleines Code-Beispiel wär da ned schlecht.

Danke im Vorraus!

[merlin17]

Hallo,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   MyPage   : TRavePage;
   MyText   : TRaveText;
   MyMemo   : TRaveMemo;
   MyBitmap : TRaveBitmap;
   Buffer   : PChar;
begin
   RvProject1.Open;
   with RvProject1.ProjMan do begin
        // Look for components we want to update
        MyPage := FindRaveComponent('RepThomas.Page1', nil) as TRavePage;
        MyText := FindRaveComponent('Text1', MyPage) as TRaveText;
        MyMemo := FindRaveComponent('Memo1', MyPage) as TRaveMemo;
        MyBitmap := FindRaveComponent('Bitmap2', MyPage) as TRaveBitmap;
        // Modify Text and font color of 'Text2' in report
        MyText.Text := 'Hallo Delphi-Praxis.net!';
        MyText.Color := clRed;

        // Typecasting of Delphi Memo1 into RaveMemo language
        GetMem(Buffer,Length(Memo1.Text) + 1);
        StrCopy(Buffer, PChar(Memo1.Text));
        MyMemo.Text:=Buffer;
        FreeMem(Buffer);
        // Assignation of Delphi Image1 to Rave Bitmap
        MyBitmap.Image.Assign(Image1.Picture.Bitmap);
   end;
   RvProject1.ExecuteReport('RepThomas');
   RvProject1.Close;
end;

aber evtl. ist der Weg über Parameter bzw. CustomConnection einfacher/sinnvoller......

-take care


thomas, TeamNevrona