To change the copyright font add a TPopupmenu to the form, Add a MenuItem called "Font"1 and give it a caption of "Font", then assign the ImageENVect1.Popupmenu to Popupmenu1, then add this code:
procedure TForm1.Font1Click(Sender: TObject);
begin
ImageENVect.ObjFontName[-2] := 'Arial'; // 'Times New Roman';
// the font name can be any valid font name
ImageENVect.Update;
end;
After adding the copyright to the image scrolldown to the bottom of the image and select the "Copyright Object" and activate the popupmenu with a rightmouseclick and select "Font".
William Miller
Adirondack Software & Graphics
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html
Search
