[DELPHI] Problem z kompilacją

Dla specjalistów Programowanie
#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!

#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;
#3

Hmm tez nie działa.

#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

#5

Też nie działa :frowning:

#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:

#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?

#8

Cytuję mój wcześniejszy post:

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

:wink:

#9

THX za pomoc :slight_smile: