Главная страница
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
1-84161
Aleksandr
2003-06-11 15:29
2003.06.26
Что надо сделать для


1-84121
Sliften
2003-06-10 09:13
2003.06.26
навигация по ENTER


3-84016
Avreliy
2003-05-30 16:30
2003.06.26
---|Ветка была без названия|---


1-84358
Александр-И
2003-06-16 17:09
2003.06.26
LabeledEdit + UpDown


14-84623
Vulko
2003-06-06 19:57
2003.06.26
Вам говорит о чем нибудь...