Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Высота/Ширина рисунка.

Sholah_Weras © (2007-03-30 23:11:00)
Здрасте.
Такая проблема. Нужно изменить следующие значения:
Image1.Picture.Height
Image1.Picture.Width
Т.е. размеры рисунка устанавливаются такие, какие мне нужны. Прошу не путать с Image1.Height и, соответсвенно, Image1.Width
Заранее, почти что, благодарен

Sholah_Weras (2007-03-31 22:08:00) [1]
Ага, спасибо, понятно. Про топ и лэфт знаю, не совсем уж дурак)

RASkov (2007-03-31 20:54:00) [2]
И опять у тебя будет видна только последняя картинка...
Нужно менять Left и Top...

RASkov (2007-03-31 20:51:00) [3]
> [11] Sholah_Weras © (31.03.07 20:41)
> Все бы замечательно, но картинок не видно.

Images[i].Parent:=<WinControl>;

Sholah_Weras (2007-03-31 20:41:00) [4]
Все бы замечательно, но картинок не видно. Т.е. каждая строчка кода выполняется без ошибок, но Images[i] не видно на форме. Может какое свойство включить надо?

MikePetrichenko (2007-03-31 20:09:00) [5]
Images[i] := TImage.Create(Self);

Sholah_Weras (2007-03-31 20:02:00) [6]
В догонку - как динамически создать объекты типа TImage?
Пробовал такой вариант:
Var
Images: array of TImage;

Procedure click;
var
begin
SetLength(Images,10);
For i := 2 To Length(Images) - 1 Do
Begin
Images[i].Picture.LoadFromFile('1.jpg');
Images[i].Stretch := True;
Images[i].Height := StrToInt(Edit1.Text);
Images[i].Width := StrToInt(Edit2.Text);
End;
end;

Естественно, не работает. Может куто подскажет как правильно динамически создавать объекты вообще и работать с ними?

Sholah_Weras (2007-03-31 19:51:00) [7]
Да, Image.Streach:=True; то что надо, спасибо.

RASkov (2007-03-31 14:55:00) [8]
Draw из [5] - можно выкинуть. Хотя.... тоже зависит от алгоритма

RASkov (2007-03-31 14:53:00) [9]
> [4] Sholah_Weras © (31.03.07 14:49)

Или же простой вариант:
Image.Streach:=True;
Image.Width:=xxx;
Image.Height:=xxxx;
Для твоих целей вполне может сойти.

RASkov (2007-03-31 14:51:00) [10]
> [4] Sholah_Weras © (31.03.07 14:49)

TBitmap,
Draw, StrechDraw, Bitblt..., можно и дальше продолжать, зависит от конкретной задачи.

Sholah_Weras (2007-03-31 14:49:00) [11]
Да, нужен масштаб. В какую сторону повернуть лопату?

RASkov (2007-03-31 12:52:00) [12]
> Код работает, но вместо требуемого изображения в нужном
> масштабе выводится только белый прямоугольник. Что я делаю
> не так?

А тебе чего надо? Масштаб? Ты не в ту сторону копаешь...

Sholah_Weras (2007-03-31 06:11:00) [13]
Ну, вроде Image это VCL и его (компонент) можно на форме разместить. А TBitmap что такое?
И еще

Image1.Picture.LoadFromFile('1.jpg');
Image1.Picture.Bitmap.Height := StrToInt(Edit1.Text);
Image1.Picture.Bitmap.Width := StrToInt(Edit2.Text);

Код работает, но вместо требуемого изображения в нужном масштабе выводится только белый прямоугольник. Что я делаю не так?

RASkov (2007-03-31 00:55:00) [14]
Image.Picture.Bitmap.Width:=ххх; ?
Вот не понятно, для чего это?
Может Image вообще не нужен тогда, а? Хватит TBitmap'а...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »