| View previous topic :: View next topic |
| Author |
Message |
epalomaro
Member
Joined: 25 Jul 2003
Posts: 1
Location: Brazil
|
 Posted: 25/07/03 15:51 Post subject: Write on Picshow |
 |
|
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 |
|
| Back to top |
|
 |
Kambiz
Administrator
Joined: 07 Mar 2003
Posts: 235
|
| Posted: 25/07/03 17:56 Post subject: |
|
|
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: | 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 |
|
| Back to top |
|
|
Kambiz
Administrator
Joined: 07 Mar 2003
Posts: 235
|
| Posted: 26/07/03 14:08 Post subject: |
|
|
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: | procedure TForm1.PicShow1Start(Sender: TObject; Picture, Screen: TBitmap);
begin
Picture.Canvas.TextOut(10, 10, 'Sample');
end; |
Cheers,
Kambiz |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
