| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

как запрограммировать такую штуку [D3, D4, D5, Win95/98]

novicer ©   (2002-03-30 12:44:00) 

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

---

Stexen   (2002-03-31 15:37:00) [1]

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

---

Stexen   (2002-03-31 15:34:00) [2]

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


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

P.S.
п

---

Song   (2002-03-31 11:09:00) [3]

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

---

novicer   (2002-03-31 04:18:00) [4]

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

---

Stexen   (2002-03-31 01:31:00) [5]

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

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-30 15:02:00) [6]

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

---

novicer   (2002-03-30 15:01:00) [7]

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

---

Song   (2002-03-30 13:41:00) [8]

Для любого изображения, не только для 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;


---

Наверх