Hi
I'm creating an animated GIF and I want to add a date label to the image.
I realise you can achieve this with bottomtext or infotext but I want to draw inside the image.
I've tried the OnImageDraw and OnImageOut events without any luck with this code.
procedure TfmMain.ImageImageOut(Sender: TObject; idx: Integer; OutBitmap: TIEBitmap);
var
str : string;
begin
with OutBitMap.Canvas do
begin
Brush.Style:=bsClear;
Font.Size:=10;
Font.Name:='Cascadia Mono';
Font.Color:=clBlack;
str:=FormatDateTime('MMMM YYYY',IncMonth(Fsdt,idx));
TextOut((OutBitmap.Width-TextWidth(str)) div 2,OutBitmap.Height-TextHeight(str)-2,str);
end;
end;
Although the text is visible on screen it isn't in the animation.
Is there another event I should be using?
Bruce.
Search
