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: 17:51:10 01/14/02 Mon
Author: Michel
Subject: Re: Drawing on ImageScrollBox
In reply to: Darrell 's message, "Drawing on ImageScrollBox" on 13:34:09 01/14/02 Mon


Hi Darrel,

There are two way to draw on a TImageScrollBox. The first, is using the Graphic property, but this requires that you have a image loaded to draw on. If you do this, you need to call ImageScrollBox.Redraw(True) once you are done.

I don't see why you would want to draw on an image scroll box without a graphic (you would not be able to save anything, and it would not refresh properly), but if you really want to, you can create a canvas to draw on the scroll box. This is want is done in the EnRubber.Pas unit for rubberbanding.

For example,

FCanvas := TCanvas.Create;
FCanvas.Handle := GetDC(FImageScrollBox.Handle);

FCanvas.Draw(...); etc...

ReleaseDC(FImageScrollBox.Handle, FCanvas.Handle);
FCanvas.Free;

You can simply create a DibGraphic, call NewImage, and then assign it to the Graphic property.

The you have a Graphic loaded in the image scroll box that you can modify, then save in the format you want.

Best regards,

Michel
>I want to draw on an ImageScrollBox that has been
>created at design and where no image has been loaded.
>The following code gives an AV. What code do I need
>to add?
>
>
>ImageScrollBox1.Graphic.Canvas.Brush.Color := clBlue;
>Imagescrollbox1.Graphic.Canvas.FillRect(rect(5,5,10,10)
>);

[ 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.