2 Integerwerte minus xxProzent

[davtix]

Hi und frohes neus euch allen :)

Ich bin gerade dabei ein Bild als Tbitmap Proportional zu verkleinern.
die sollgröße der längsten Seite (entweder x oder y) soll 256, für eine TimageList werden.
Ich hab das nu mit n paar Bildern getestet und bin der Meinung das es passt...
... oder????? Sieht da jemand mehr im vorraus?

Code:

  
  x_ak := pic.Width;      //original maße
  y_ak := pic.Height;     log(1, 'org_pic_x_y ' + inttostr( x_ak) +' , ' + inttostr( y_ak) );

  if ( x_ak > y_ak ) then
    begin
      diff := x_ak - 256;                              log(1, 'differenz ' + inttostr( diff) );    //differenz der längsten seite
      proz := Round( ((x_ak - diff) / diff ) *100 );   log(1, 'proz ' + inttostr( proz) );   //prozent

      tempI := round(( x_ak / 100) * proz );
      x_n := round(x_ak - tempI);           log(1, 'x_n ' + inttostr(x_n) );
      tempI := round(( y_ak / 100) * proz );
      y_n := round(y_ak - tempI);           log(1, 'y_n ' + inttostr(y_n) );


    end;

[davtix]

okay Kumpel hat mich gerade ausgelacht wie lange wohl die Schule bei mir her ist ^^

Code:

      log(1, '----------------- ab hier jumping' );   //prozent
      proze :=  ( 256 / x_ak );      log(1, 'proze ' + floattostr(proze) );   //prozent

      x_n := 256;                        log(1, 'x_n ' + inttostr( x_n) );   //neues X
      y_n := round( y_ak * proze );       log(1, 'y_n ' + inttostr( y_n) );   //neues Y