Write on Picshow

Please post bug reports, feature requests, or any question regarding the DELPHI AREA products here.

Write on Picshow

Postby epalomaro » July 25th, 2003, 3:51 pm

I want to write a dynammic text before the picture slides. And this text will animate together the clip, I can I do that?

Thanks

Eduardo
epalomaro
Member
Member
 
Posts: 1
Joined: July 25th, 2003, 3:45 pm
Location: Brazil

Postby Kambiz » July 25th, 2003, 5:56 pm

Unfortunately the OnStart event of PicShow does not pass the image as parameter, however by defining a boolean variable and using OnStop and OnBeforeNewFrame events of PisShow you can write a text on the image.

Code: Select all
procedure TForm1.PicShow1Stop(Sender: TObject);
begin
  Stamped := False;
end;

procedure TForm1.PicShow1BeforeNewFrame(Sender: TObject; Picture, Screen: TBitmap);
begin
  if not Stamped then
  begin
    Stamped := True;
    Picture.Canvas.TextOut(10, 10, 'Sample');
  end;
end;


In the next release of PicShow I'll modify the OnStart event to pass the Picture as parameter.

Cheers,
Kambiz
User avatar
Kambiz
Administrator
Administrator
 
Posts: 2408
Joined: March 7th, 2003, 7:10 pm

Postby Kambiz » July 26th, 2003, 2:08 pm

I just released the new update of PicShow. As I mentioned in my last post, I modified the OnStart event to passes the image to the handler. So, using the new release you can reach to your goal by the following code:

Code: Select all
procedure TForm1.PicShow1Start(Sender: TObject; Picture, Screen: TBitmap);
begin
  Picture.Canvas.TextOut(10, 10, 'Sample');
end;


Cheers,
Kambiz
User avatar
Kambiz
Administrator
Administrator
 
Posts: 2408
Joined: March 7th, 2003, 7:10 pm


Return to DELPHI AREA Products

Who is online

Users browsing this forum: No registered users and 1 guest