extended to integer

Expand Post »

Im trying to make a screensaver whit the option to support single and multiple images. this is the code for single images where im trying to make it fit large images to screen but no matter what of these conversion types ive used

Round Rounds a floating point number to an integer
Trunc The integer part of a floating point number

it crashes whit - Incomplete types "Integer" and "Extended"

and then im wondering if its because im yousing delphi 2009 .. maybe i should bye the 2005 if thats still possible.

this is how my code looks

Pascal and Delphi Syntax (Toggle Plain Text)
 form2.Image1.BringToFront; 
              form2.Image1.Picture.LoadFromFile(edit1.Text); {Load the picture from the destination in edit1}
 
              if form9.RadioButton1.Checked = true then {If stretxh is true then}
 
                begin
 
                  form2.Image1.Stretch := true;
 
                end
 
              else	{if stretch isn true}
 
                begin
 
                  form2.Image1.Stretch := false;
 
                  if form9.RadioButton2.Checked = true then {IF resize large images = true}
                    begin
 
                      if form2.Image1.Picture.Height > screen.Height then {if the picture is bigger then screen} 
                        begin
 
                          imageheightdiff := Trunc(form2.Image1.Picture.Height)- Trunc(screen.Height);
                          imageprocent := imageheight * Trunc(form2.Image1.Picture.height) / 100 ; {here it crashes and says Integer and extended - like if it havent been convertet to int above}
                          form2.image1.picture.height := imageprocent * 100 / Round(form2.Image1.Picture.Height);
                          form2.image1.picture.width  := imageprocent * 100 / Round(form2.Image1.Width);
 
                        end
 
                    end;
                end;
 form2.Image1.BringToFront; 
              form2.Image1.Picture.LoadFromFile(edit1.Text); {Load the picture from the destination in edit1}

              if form9.RadioButton1.Checked = true then {If stretxh is true then}

                begin

                  form2.Image1.Stretch := true;

                end

              else	{if stretch isn true}

                begin

                  form2.Image1.Stretch := false;

                  if form9.RadioButton2.Checked = true then {IF resize large images = true}
                    begin

                      if form2.Image1.Picture.Height > screen.Height then {if the picture is bigger then screen} 
                        begin

                          imageheightdiff := Trunc(form2.Image1.Picture.Height)- Trunc(screen.Height);
                          imageprocent := imageheight * Trunc(form2.Image1.Picture.height) / 100 ; {here it crashes and says Integer and extended - like if it havent been convertet to int above}
                          form2.image1.picture.height := imageprocent * 100 / Round(form2.Image1.Picture.Height);
                          form2.image1.picture.width  := imageprocent * 100 / Round(form2.Image1.Width);

                        end

                    end;
                end;

imageheightdiff & imageprocent is both integer variables

i hope someone can give me an answer cause i simple cant understand what im doing wrong...

Similar Threads

Pointers in C++
c vs c++ in C++
I've got Trojan.Holax... is this bad? in Viruses, Spyware and other Nasties
not-a-virusadware in Viruses, Spyware and other Nasties
Range Of Long?? in C++

darkyere

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

17 posts
since Nov 2008

Permalink

Dec 13th, 2008

Re: extended to integer

i found the answer elsewhere

here it is...

imageheightdiff := Trunc(form2.Image1.Picture.Height)- Trunc(screen.Height);
here you don't have to use trunc function as Height is an integer property

imageprocent := imageheight * Trunc(form2.Image1.Picture.height) / 100 ; {here it crashes and says Integer and extended - like if it havent been convertet to int above}
The problem comes from the divide by 100 which gives a non integer result.
You could put form2.Image1.Picture.height/100 in trunc parenthesis, you would get the nearest integer just below.
If you use Round function, you will get the nearest integer:
imageprocent := imageheight * Round(form2.Image1.Picture.height / 100) ;
And if you want more precision, it is better to include the multiply inside the Round parenthesis:
imageprocent := Round(imageheight * form2.Image1.Picture.height / 100) ;

form2.image1.picture.height := imageprocent * 100 / Round(form2.Image1.Picture.Height);
form2.image1.picture.width := imageprocent * 100 / Round(form2.Image1.Width);
Use Round for the whole expression in both instructions:
form2.image1.picture.height := Round(imageprocent * 100 /form2.Image1.Picture.Height);
form2.image1.picture.width := Round(imageprocent * 100 / form2.Image1.Width);

darkyere

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

17 posts
since Nov 2008

Permalink

Dec 13th, 2008

Re: extended to integer

You could also have just used div - as div is for integer devision

LizR

Reputation Points: 196

Solved Threads: 190

Posting Virtuoso

Offline

1,735 posts
since Aug 2008

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Pascal and Delphi Forum Timeline: can you help me - 2D array

Next Thread in Pascal and Delphi Forum Timeline: im lost

DaniWeb Message

Cancel Changes

User Name
Password