Скачать: CL | DM;

Получение параметров HBitmap   Найти похожие ветки 

← →
Th ©   (2002-09-25 18:02) [0]

Есть объект TBitmap, у него соотв. Handle - HBitmap. Объясните пожалуйста, как по этому хэндлу получить соответствующую структуру BITMAPINFOHEADER, и чем она отличается от BITMAPCOREHEADER.

---

← →
MBo ©   (2002-09-25 18:23) [1]

BITMAPCOREHEADER - заголовок старого формата bitmap OS/2, а нем всего 5 полей, а ао втором от 11 и выше (первые поля такие же)

см. исходники graphics.pas

---

← →
Th ©   (2002-09-25 18:37) [2]

Так как же все таки получить эту структуру (BITMAPINFOHEADER) объекта HBitmap? Дело в том, что мне надо установить знак высоты изображения, а если я просто сделаю SelectObject, то получу обычную структуру Bitmap, в которой высота всегда положительна, независимо от того, как изображение расположено в памяти - нижняя строка по младшим адресам или верхняя.

---

← →
Evgeny ©   (2002-09-26 05:16) [3]

см. исходники graphics.pas

---

← →
MBo ©   (2002-09-26 06:02) [4]

procedure TForm1.Button1Click(Sender: TObject);
var b:tbitmap;
dibs:TDibSection;
begin
b:=tbitmap.create;
b.loadfromfile("e:\4.bmp");
GetObject(B.Handle, SizeOf(TDibSection), @dibs);
label1.caption:=inttostr(dibs.dsBmih.biHeight);
b.free;
end;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c