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

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

Bitmap & WinAPI [D6, Win95/98]

Cosmic ©   (2003-01-24 08:00:00) 

Здравствуйте!

Как на окно, созданное при помощи CreateWindowEx, навесить какой-нибудт битмап, загруженный с винта, в качестве заднего фона?

---

MBo   (2003-01-27 10:44:00) [1]


TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
procedure WMERASEBACKGROUND(var m:TMessage); message WM_ERASEBKGND;
public
{ Public declarations }
end;

var
Form1: TForm1;
b:Tbitmap;
memdc:hdc;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.WMERASEBACKGROUND(var m: TMessage);
begin
inherited;
StretchBlt(Canvas.Handle,0,0,width,height,memdc,0,0,b.width, b.height,SRCCOPY);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
b:=tbitmap.create;
b.LoadFromFile("e:\4.bmp");
memdc:=CreateCompatibleDC(0);
SelectObject(memdc,b.handle);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
DeleteDC(memdc);
b.free;
end;

---

Cosmic   (2003-01-27 10:22:00) [2]

Купил, читал, разбирался, но понял не все. Может, кто поделится рабочимкодом? Если не жалко... :)

---

Novgorodov   (2003-01-25 17:24:00) [3]

книга Петзольда с примерами:
http://ganz2004.chat.ru/pw95cpr.rar1

---

Cosmic   (2003-01-25 00:44:00) [4]

Нет, ну а все-таки... Может поделитесь кусочком кода... :) Плиз... Ну не нашел я этого в форуме - может, искать не умею? Так ссылку дайте.

---

CjCrazy   (2003-01-24 16:04:00) [5]

Рисуем Bitmap (AlexandrRya 21.01.03 11:13)

вот как это называлось!

---

CjCrazy   (2003-01-24 16:01:00) [6]

недавно в форуме проскакивала тема по этому поводу.
называлась или hbitmap, или tbitmap. вобщем, если полистать форум, то мона найти. там всё было написано.

помнится, я над этим недели две бился...
потом был праздник. все напились. через день, кады я очухался я, то смог решить эту задачу..... (отсюда мона сделать соответствующие выводы :))

---

Игорь Шевченко   (2003-01-24 11:00:00) [7]

Cosmic © (24.01.03 10:45)

http://ближайшийкнижный магазин

---

Cosmic   (2003-01-24 10:45:00) [8]

Да я знаю. Мне бы ссылку, т.к. не нашел я этого в Сети.

---

MBo   (2003-01-24 10:32:00) [9]

Это книга такая (Программирование для Windows 95), наверно, и в сети где-нибудь есть, поскольку она уже старая. Если серьезно собрался работать с графикой, книга Фень Юаня весьма хороша.

---

Cosmic   (2003-01-24 10:22:00) [10]

А где читать этого Петцольда ?:)

---

MBo   (2003-01-24 10:03:00) [11]

В общем-то, надо читать Петцольда и смотреть примеры (C-шные, конечно, в основном, но различия несущественные)

---

Cosmic   (2003-01-24 09:57:00) [12]

А поподробнее можно? А то как-то непонятно, что же конкретно делать...

---

Игорь Шевченко   (2003-01-24 09:33:00) [13]

В дополнение к MBo © (24.01.03 08:07)

И вызов функций хххххBlt производить при обработке сообщения WM_ERASEBKGND

---

MBo   (2003-01-24 08:07:00) [14]

выбрать (SelectObject) HBitmap в контекст окна.
или BitBlt его, если надо размножить, StretchBlt - для растягивания

---

Наверх