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

← →
Sholah_Weras © (2007-03-30 23:11) [0]

Здрасте.
Такая проблема. Нужно изменить следующие значения:
Image1.Picture.Height
Image1.Picture.Width
Т.е. размеры рисунка устанавливаются такие, какие мне нужны. Прошу не путать с Image1.Height и, соответсвенно, Image1.Width
Заранее, почти что, благодарен

← →
RASkov (2007-03-31 00:55) [1]

Image.Picture.Bitmap.Width:=ххх; ?
Вот не понятно, для чего это?
Может Image вообще не нужен тогда, а? Хватит TBitmap"а...

← →
Sholah_Weras © (2007-03-31 06:11) [2]

Ну, вроде 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 12:52) [3]

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

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

← →
Sholah_Weras © (2007-03-31 14:49) [4]

Да, нужен масштаб. В какую сторону повернуть лопату?

← →
RASkov (2007-03-31 14:51) [5]

> [4] Sholah_Weras © (31.03.07 14:49)

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

← →
RASkov (2007-03-31 14:53) [6]

> [4] Sholah_Weras © (31.03.07 14:49)

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

← →
RASkov (2007-03-31 14:55) [7]

Draw из [5] - можно выкинуть. Хотя.... тоже зависит от алгоритма

← →
Sholah_Weras © (2007-03-31 19:51) [8]

Да, Image.Streach:=True; то что надо, спасибо.

← →
Sholah_Weras © (2007-03-31 20:02) [9]

В догонку - как динамически создать объекты типа 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;

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

← →
MikePetrichenko © (2007-03-31 20:09) [10]

Images[i] := TImage.Create(Self);

Все бы замечательно, но картинок не видно. Т.е. каждая строчка кода выполняется без ошибок, но Images[i] не видно на форме. Может какое свойство включить надо?

← →
RASkov (2007-03-31 20:51) [12]

← →
RASkov (2007-03-31 20:54) [13]

И опять у тебя будет видна только последняя картинка...
Нужно менять Left и Top...

Ага, спасибо, понятно. Про топ и лэфт знаю, не совсем уж дурак)

Высота/Ширина рисунка. Найти похожие ветки