Pytanka

0

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

0

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

0

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....

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0