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;