set billed's width

Har lige lavet denne, tror nok den virker:

Hvis du vil sætte bredden til f.eks. 800 skriver du:
SetWH(800,0,Image1);

Hvis du vil sætte højden til f.eks. 1000 skriver du:
SetWH(0,1000,Image1);

---------------

procedure SetWH(Width, Height: Integer; Image : TImage);
var
  Ratio: Double;
  AHeight : Integer;
  AWidth : Integer;
begin
    Ratio := Image.Picture.Width / Image.Picture.Height;
    if Height=0 then
    begin
        AHeight := Round(Width / Ratio);
        AWidth := Width;
    end
    else
    begin
        AWidth := Round(Height * Ratio);
        AHeight := Height;
    end;

    Image.Width := AWidth;
    Image.Height := AHeight;
end;

Det virker super godt :-)

Totalt cool lavet!