как запрограммировать такую штуку

← →
novicer (2002-03-30 12:44) [0]

Добрый день Мастера. Подскажите начинающему как запрограммить такую штуку.
Через OpenPicturaDialog открывается bmp – эшка, затем высчитывается ширина и высота рисунка. Если сможете кинуть в строках кода с самого начала – буду благодарен, а то так не переварю. Заранее благодарен.

← →
Song (2002-03-30 13:41) [1]

Для любого изображения, не только для bmp (но только для тех, что TImage "могёт загружать" :) )
Сделайте для Image1 свойство AutoSize:=True и дальше код:
procedure TForm1.Button1Click(Sender: TObject); begin With OpenPictureDialog1 Do IF Execute then Begin Image1.Picture.LoadFromFile(FileName); ShowMessage("Ширина: "+IntToStr(Image1.Width)+" Высота: "+IntToStr(Image1.Height)); End; end;

← →
novicer (2002-03-30 15:01) [2]

Все работает на ура.
Спасибо за помощь и за оперативность 8))

← →
novicer (2002-03-30 15:02) [3]

Все работает на ура.
Спасибо за помощь и за оперативность 8))

← →
Stexen (2002-03-31 01:31) [4]

Честно гаваря геморойный способ
Пачему бы просто так не сделать

var CliBmp: TBitmap;
W, H: string;
...

procedure Load(FileName: string);
begin
ClipBmp := TBitmap.Create;
ClipBmp.LoadFromFile(FileName);
W := ClipBmp.Width;
H := ClipBmp.Height;
end;

← →
novicer (2002-03-31 04:18) [5]

Пасиба, попробую.

← →
Song (2002-03-31 11:09) [6]

Прежде чем говорить, думайте о чём Вы говорите. Это я про "геморойный способ".
Человек просил через TImage, я ему сказал. Попросил бы через TBitMap с созданием в run time - другое дело, а блистать эрудицей Вас никто не просил.

← →
Stexen (2002-03-31 15:34) [7]

2Song: ну прости не хотел обидеть.., но все равно зачем делать автосайз тем более вдруг его невозможно сделать там интерфейс портится или еще че можно же было так:

procedure GetSize; begin ShowMessage("Ширина: "+IntToStr(Image1.Picture.Bitmap.Width)+" Высота: "+IntToStr(Image1.Picture.Bitmap.Height)); end;
P.S.
п

← →
Stexen (2002-03-31 15:37) [8]

ТОко возможно этот способ работать будет не совсем верно... кста он не просил через TImage

как запрограммировать такую штуку Найти похожие ветки