VoyForums

Login ] [ Contact Forum Admin ] [ Main index ] [ Post a new message ] [ Search | Check update time | Archives: 12345[6]78910 ]


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

Date Posted: 04:12:51 05/31/02 Fri
Author: Paul
Subject: Re: Is it possible to programmatically set an "Rubberband"-area
In reply to: Michel 's message, "Re: Is it possible to programmatically set an "Rubberband"-area" on 17:59:32 05/30/02 Thu

Hi Michel,

IMSB.Graphic.Draw( X, Y, Graphic ) returns an error:

"Incompatible Types: TCanvas and Integer"

Ok, I'll try to explain what I want to do. I have two Tiff-images. I load the first image into an ImageScrollbox, then I want to copy the second(smaller) into a region of the first one. And all that without using the mouse (or even ImageScrollbox if that is possible).

Thanks in advance
Paul



>
>Hi Paul,
>
>I am not sure I understand you properly, but a simpler
>way to do this would be to copy the graphic into
>another graphic using the Canvas property:
>
>IMSB.Graphic.Draw( X, Y, Graphic )
>
>where X,Y is the upper left corner of the selection
>rect.
>
>Best regards,
>
>Michel
>
>
>>Hi!
>>
>>Without any mouse interaction I want to copy and paste
>>a tiff-image into another. Like this:
>>
>>ATiff: TTiffGraphic;
>>IMSB: TImageScrollBox;
>>ATiff.LoadFromStream();
>>.
>>.
>>.
>>Graphic := TDibGraphic.Create;
>> try
>> Graphic.Assign(ATiff);
>> //programmatically create an "rubberband"-area
>> IMSB.MouseMode := mmUser;
>> RubberbandHandler := IMSB.MouseHandler as
>>TRubberbandMouseHandler;
>> SetSelection() .... //how to do this?
>> IMSB.CopyGraphicIntoSelection(Graphic);
>> IMSB.Redraw(True);
>> finally
>> Graphic.Free;
>> end

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


Replies:


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