Pytanka

Jak skonwertować typ zmiennoprzecinkowy(np.Currency) na Integer.
Jakie są dostępne w Delphi konwersje typów.
Jak stworzyć miniaturkę obrazka zachowując jego proporcje tzn. wysokość i szerokość. hmm... --PJ

Nie wiem czy to ci pomoże, ale po primo:

1. Rzeczywiste typy do integerów najlepiej konvertować przez zaokrąglanie.
2. Dowolny typ można skonvertować na dowolny inny w następujący sposób:
   x :Rael;
   y :Char;
   x:=Real(y);
   Problem polega na tym, że nie zawsze ma to sens. ;))--Delphi 4

Skysh The God, Your Slave

Co do miniaturki obrazka sprobuj tak:
Wrzuc dwa TImage do formy, do Image1 zaladuj jakoas bitmapke, dodaj do tego buttona i pod onclick w buttonie daj to:

procedure TForm1.Button1Click(Sender: TObject);
const Procent=0.5;
var Bmp: TBitmap;
begin
Bmp:=TBitmap.Create;
Bmp.Width:=Round(Image1.Width * Procent);
Bmp.Height:=Round(Image1.Height * Procent);
Bmp.Canvas.CopyRect(Rect(0,0,Bmp.Width,Bmp.Height),Image1.Canvas,Rect(0,0,Image1.Width,Image1.Height));
Image2.Picture.Bitmap:=Bmp;
Bmp.Free;
end;

const Procent oznacza do ilu ma zmienjszyc obrazek w procentach, zachowujac proporcje obrazka. Chyba juz nie bedzie Ci juz trudno przerobic tego kodu na wlasne potrzeby?
{hello} --sys:> logout....