VoyForums
[ Show ]
Support VoyForums
[ Shrink ]
VoyForums Announcement: Programming and providing support for this service has been a labor of love since 1997. We are one of the few services online who values our users' privacy, and have never sold your information. We have even fought hard to defend your privacy in legal cases; however, we've done it with almost no financial support -- paying out of pocket to continue providing the service. Due to the issues imposed on us by advertisers, we also stopped hosting most ads on the forums many years ago. We hope you appreciate our efforts.

Show your support by donating any amount. (Note: We are still technically a for-profit company, so your contribution is not tax-deductible.) PayPal Acct: Feedback:

Donate to VoyForums (PayPal):

[ 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:54:12 02/26/01 Mon
Author: Michel
Subject: Re: TImageScrollBox to bitmap?
In reply to: Hans 's message, "Re: TImageScrollBox to bitmap?" on 05:39:04 02/23/01 Fri


Hi Hans,


>I was not able to create the TImage at runtime, but
>does it make a difference if I will use it every time?

If you make the TImage component not Visible on your form it should be find. It may want the Parent property to be assigned, which is the case when it is dropped on a form.

>They are
>displayed correctly in the TImage btw (I made it
>visible just for the test) so the error is in the Draw
>instruction. Any ideas?

I'm not sure on this, since they display correctly in the TImage. You may want to try,

Bitmap->PixelFormat = pf24Bit;

before,

Bitmap->Width = Image->Picture->Graphic.Width;

Have you verified the 296 tag error. I seems that your file does not have the resolution unit tag. This is ok, Envision will use a default.

Best regards,

Michel

>>be displayed. Just created programmatically (don't
>>drop it on a form), then use,
>Image->LoadFromFile(...).
>>
>>Then to convert to a TBitmap, you create a TBitmap
>>programmatically, and copy to it using:
>>
>>Bitmap->Width = Image->Picture->Graphic.Width;
>>Bitmap->Height = Image->Picture->Graphic.Height;
>>
>>Bitmap->Canvas->Draw( Image->Picture->Graphic, 0, 0 );
>
>I was not able to create the TImage at runtime, but
>does it make a difference if I will use it every time?
>
>Using a TImage dropped on the form I did the above and
>it works! But some small bmp images get distorted (the
>first few lines get scrambled, rest is ok). They are
>displayed correctly in the TImage btw (I made it
>visible just for the test) so the error is in the Draw
>instruction. Any ideas?
>There was also a TIFF file that gave an error (Tag
>296), but I yet have to check your FAQ for this.
>
>Hans

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