Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.02;
Скачать: CL | DM;

Вниз

RadioGroup   Найти похожие ветки 

 
Пантелеев Иван   (2005-08-20 22:36) [0]

Не хочет компилироваться код:
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
 0: Form1.Image1.Proportional := False;
    Form1.Image1.Stretch := False;
 1: Form1.Image1.Proportional := True;
    Form1.Image1.Stretch := False;
 2: Form1.Image1.Stretch := True;
    Form1.Image1.Proportional := False;
end;


Причина скорее всего в том что нельзя 2 действия задавать - да?
как правильно сделать?


 
Alexander Panov ©   (2005-08-20 22:44) [1]

Оператор должен быть обрамлен begin..end;


 
TUser ©   (2005-08-20 22:44) [2]

case ... of
 0: begin ... end;
 1: begin ... end;
 else: begin ... end;
end;


 
Пантелеев Иван   (2005-08-20 23:07) [3]

А можно полностью показать, а то я так не очень понимаю


 
Пантелеев Иван   (2005-08-20 23:15) [4]

Всё получилось - всем спасибо!


 
Eraser ©   (2005-08-20 23:26) [5]

0: Form1.Image1.Proportional := False;
   Form1.Image1.Stretch := False;
1: Form1.Image1.Proportional := True;
   Form1.Image1.Stretch := False;
2: Form1.Image1.Stretch := True;
   Form1.Image1.Proportional := False;


здесь "Form1." можно убрать.


 
Германн ©   (2005-08-21 02:04) [6]

2 Eraser ©   (20.08.05 23:26) [5]

А Image1 - нельзя?


 
Eraser ©   (2005-08-21 02:07) [7]

Германн ©   (21.08.05 02:04) [6]

Правильно - ну его!

Пантелеев Иван

Image1 тоже убирай )



Страницы: 1 вся ветка

Текущий архив: 2005.10.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.064 c
4-1123191743
u-12
2005-08-05 01:42
2005.10.02
SpeedButton+WinAPI


4-1123029721
Funt1k
2005-08-03 04:42
2005.10.02
Подсветка синтаксиса


14-1126694915
Александр Александрович
2005-09-14 14:48
2005.10.02
Узнать размер слов в поле?


1-1126683651
Tonich
2005-09-14 11:40
2005.10.02
Структура (запись)


1-1126114537
integery
2005-09-07 21:35
2005.10.02
как превратить TStringGrid в TBooleanGrid