[DELPHI] Problem z kompilacją


(Mr Hektor) #1

Witam! Pisze przeglądarke obrazów z funkcją zmieniania rozmiaru obrazu. Umieściłem na formatce komponent RadioGroup1 a w środku niego pola typu Radio z wyborem wymiarów obrazu. Jednak podczas pisania kodu piszę tak:

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin


case RadioGroup1.ItemIndex of

 0: Image1.Picture.Height := 320;

    Image1.Picture.Width := 240;

Ale nie che mi się to skompilować, podkreśla mi na czerwono '';'' w tej linijce:

Image1.Picture.Width := 240;

Wie ktoś gdzie jest błąd?

THX!


(system) #2

Dawno się w delphi nie bawiłem ale wydaje mi się że powinno być coś takiego :

0:

Begin

    Image1.Picture.Height := 320;

    Image1.Picture.Width := 240;

End;

(Mr Hektor) #3

Hmm tez nie działa.


(inż. Piniol) #4

Z tego co pamiętam to

Image.Picture.Bitmap.Width

Tudzież oprzeć się na obiekcie Canvas -> http://delphi.about.com/od/graphics/a/resize_image.htm

Lub bardziej rozbudowane funkcje -> http://www.swissdelphicenter.ch/torry/s ... hp?id=1896


(Mr Hektor) #5

Też nie działa :frowning:


(inż. Piniol) #6

Na bank działa tylko Ty masz coś nie tak :wink:

Poza tym z tego co pamiętam to w Delphi Twój kod z pierwszego postu powinien mieć postać taką jaką podał Tabcin :wink:


(Mr Hektor) #7

Jednak działa to jest właściwy kod:

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin


case RadioGroup1.ItemIndex of

 0: begin

   Image1.Picture.Bitmap.Height := 320;

   Image1.Picture.Bitmap.Width := 240;

 end;



end;

end;

end.

;D

A jak zrobić żeby (już w programie), nie obcinało obrazu tylko zmiejszało jego wielkość proporcjonalnie?


(inż. Piniol) #8

Cytuję mój wcześniejszy post:

" Tudzież oprzeć się na obiekcie Canvas -> http://delphi.about.com/od/graphics/a/resize_image.htm "

:wink:


(Mr Hektor) #9

THX za pomoc :slight_smile: