VoyForums

[ Login ] [ Contact Forum Admin ] [ Main index ] [ Post a new message ] [ Search | Check update time | Archives: 1, [2], 3, 4, 5, 6, 7, 8, 9, 10 ]

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Date Posted: 06:43:11 11/19/03 Wed
Author: Michel
Subject: Re: Thumbnail captions
In reply to: Monte Etherton 's message, "Thumbnail captions" on 09:43:45 11/17/03 Mon


Hi Monte,

You will need to write directly on the image. Here is an example of writing text over an image. This is what the evaluation version of Envision does in TDibGraphic.Draw.

ACanvas.Font.Size := 10;
ACanvas.Font.Name := 'Arial';
ACanvas.Font.Style := [fsBold];
ACanvas.Font.Color := clLime;
SetBkMode(ACanvas.Handle, Windows.TRANSPARENT);

ACanvas.TextOut(4, 2, 'Envision Image Library Demo');

ACanvas.Font.Color := clGray;
ACanvas.Font.Size := 9;
ACanvas.TextOut(4, 20, 'www.intervalsoftware.com');

SetBkMode(ACanvas.Handle, Windows.OPAQUE);

ACanvas is the Canvas property of a TDibGraphic.

Best regards,

Michel

>Using the TThumbNailForm code as a template I am
>building a TDrawgrid into an app for viewing
>thumbnails.
>
>Instead of having a FileListBox, I want the thumbnails
>to have text captions.
>
>Can anyone advise me on how this is accomplished?
>
>Thank you in advance,
>
>Monte Etherton

[ Next Thread | Previous Thread | Next Message | Previous Message ]
[ Contact Forum Admin ]

Forum timezone: GMT-5
VF Version: 3.00b, ConfDB:
Before posting please read our privacy policy.
VoyForums(tm) is a Free Service from Voyager Info-Systems.
Copyright © 1998-2019 Voyager Info-Systems. All Rights Reserved.