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

Вниз

Как изменить размеры компонента Image при масштабировании?   Найти похожие ветки 

 
Dr. Andrew ©   (2003-06-09 12:28) [0]

Если, например, установить размеры Image - 350х350 пикселов и поместить его в компонент ScrollBox, то при масштабировании (как показано в примере ниже) без вспомогательного DestBitmap реально не происходит увеличения Image1. Визуально все прорисовывается в пределах прежних размеров - 350х350 пикселов.
Как практически решить эту проблему?

Пример процедуры:

{ SrcBitmap - маленький Bitmap, который необходимо вывести на компонент Image }
procedure TForm1.ElComboBox1Change(Sender: TObject);
var DestBitmap: Tbitmap;
begin
DestBitmap:= TBitmap.Create;
DestBitmap.PixelFormat:= pf32bit; { только первой строкой, иначе все "виснет"! }
DestBitmap.Width := 256*32;
DestBitmap.Height:= 256*32;
DestBitmap.Canvas.StretchDraw(Rect(0, 0, DestBitmap.Width, DestBitmap.Height), SrcBitmap);

Image1.Left:= 0;
Image1.Top:= 0;
Image1.Width := 256*32;
Image1.Height:= 256*32;
Image1.Picture.Assign(DestBitmap);
Image1.Invalidate;
DestBitmap.Free;
end;


 
Andy BitOff ©   (2003-06-09 12:34) [1]

Поиграйся с stretch и proportional у Image.
А нужные размеры выставляй как Image.Height и Width


 
ZEE ©   (2003-06-09 12:35) [2]

зачем так сложно, можно так:
Image1.AutoSize:=false;
Image1.Stretch:=true;
Image1.Width:=256*32;
Image1.Height:=256*32;

ЗЫ: конечно в Image1 уже загружена картинка


 
Dr. Andrew ©   (2003-06-09 14:02) [3]

Image1.Stretch не годится!!!
Есть еще возможности?!



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

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

Наверх




Память: 0.47 MB
Время: 0.016 c
14-84726
neuro
2003-06-05 19:20
2003.06.26
Tcl/Tk, Awk...


3-83926
GSVSerg
2003-06-03 18:34
2003.06.26
CheckBox в DBGrid


3-83964
GSVSerg
2003-05-29 12:50
2003.06.26
dbgrid


1-84395
T2
2003-06-09 14:03
2003.06.26
Свойства Пк


3-84029
Step[B.M.]
2003-05-31 14:30
2003.06.26
Поиск ближайшего соответствия в IBTable