ImageEn for Delphi and C++ Builder ImageEn for Delphi and C++ Builder

 

ImageEn Forum
Profile    Join    Active Topics    Forum FAQ    Search this forumSearch
 All Forums
 ImageEn Library for Delphi, C++ and .Net
 ImageEn and IEvolution Support Forum
 Legacy Apps now failing because of updates - help

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!

View 
UserName:
Password:
Format  Bold Italicized Underline  Align Left Centered Align Right  Horizontal Rule  Insert Hyperlink   Browse for an image to attach to your post Browse for a zip to attach to your post Insert Code  Insert Quote Insert List
   
Message 

 

Emoji
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Black Eye [B)]
Frown [:(] Shocked [:0] Angry [:(!] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
Check here to subscribe to this topic.
   

T O P I C    R E V I E W
andyhill Posted - Jul 06 2021 : 17:50:14

//ie.IEBitmap.Allocate(w, h, clWhite, 255);
ie.IEBitmap.Allocate(w, h, ie24RGB); NOW ?


// Draw Rectangle
with ie.IEBitmap.IECanvas do begin
AV everywhere with Pen access ???
Pen.Width:= 5;
Pen.Style:= psSolid;
Pen.Mode:= pmCopy;
Pen.Color:= clGreen;
Brush.Style:= bsClear;
Rectangle(1, 1, w-1, h-1);
end;
// Refresh view
ie.Update();


Andy
3   L A T E S T    R E P L I E S    (Newest First)
xequte Posted - Jul 07 2021 : 18:06:23
Hi Andy

Sorry, I still don't see why that would cause an error. Setting LegacyBitmap to true or false should have no effect because you don't use TImageEnView.Bitmap.

Can you send me a small project that shows the error?

Nigel
Xequte Software
www.imageen.com
andyhill Posted - Jul 06 2021 : 23:33:01
I have hundreds of applications that are now taken out by the update.

ie:= TImageEnView.Create(nil); // LegacyBitmap = FALSE by default !

ie.LegacyBitmap:= True;


Andy
xequte Posted - Jul 06 2021 : 22:24:11
Hi Andy

I added the following code to a blank form with a TImageEnView and it worked without error:

procedure Tfmain.Button1Click(Sender: TObject);
const
  w = 500;
  h = 500;
var
  ie: TImageEnView;
begin
  ie := ImageEnView1;

  ie.IEBitmap.Allocate(w, h, ie24RGB);

  // Draw Rectangle
  with ie.IEBitmap.IECanvas do
  begin
    Pen.Width:= 5;
    Pen.Style:= psSolid;
    Pen.Mode:= pmCopy;
    Pen.Color:= clGreen;
    Brush.Style:= bsClear;
    Rectangle(1, 1, w-1, h-1);
  end;
  // Refresh view
  ie.Update();


What version of Delphi are you using? Is ie.LegacyBitmap set to false?



Nigel
Xequte Software
www.imageen.com