0
     //hCurDC:=getdc(form1.handle);

      var

        hbmp: HBITMAP;      
        bmi: BITMAPINFO;    
        pvBits: Pointer;    
        x,y: integer;
 begin

with bmi.bmiHeader do
begin
  biSize         := sizeof(BITMAPINFOHEADER);
  biWidth        := 100;
  biHeight       := 100;
  biPlanes       := 1;
  biBitCount     := 24;   // 24 pf  (r,g,b)
  biCompression  := BI_RGB;
  biSizeImage    := 100*100*3;
end;

hbmp := CreateDIBSection(hCurDC, bmi, DIB_RGB_COLORS, pvBits, 0, 0);
SelectObject(hCurDC, hbmp);

   for x := 1 to 50 do
   for y := 1 to 50 do

  PULONG(Integer(pvBits) +
          (x + y ) * sizeof(ULONG))^ :=$0000ff

2 ответа 2

0

Само рисование выполняется при вызове функции BitBlt. См. второй вызов функции в моем ответе здесь.

0

Думаю, ты ЭТО имеешь ввиду :

> var bmp:Tbitmap;   
> begin 
> bmp:=Tbitmap.Create; 
> bmp.canvas.Handle:=getdc(0);       // получаем контекст(HDC) рабочего стола 
> bmp.canvas.Rectangle(0,0,200,100); // А далее рисуем, как в обычном TbitMap`е =)
5
  • нет, я не ЭТО имею ввиду, я описываю бмп и вывожу на окно
    – ололо
    22 янв 2012 в 16:53
  • То есть ты хочешь рисовать в чужом окне, как в битмапе?
    – AseN
    22 янв 2012 в 16:53
  • Не совсем. Я хочу выводить в окно картинку как здесь: альфа-смешивание.
    – ололо
    22 янв 2012 в 16:55
  • Ну вы планируете использовать такой алгоритм: 1) Получить дескриптор окна и его контекст 2) Создать битмап и присвоить ему контекст, полученного окна. 3) Вывести туда рисунок Так?
    – AseN
    22 янв 2012 в 17:02
  • Да. Только битмап должен выглядить как тут: f1-delphi.ru/books/delphi_tryuki_i_effekty/6_9_alfa_smeshivanie А не TBTIMAP
    – ололо
    22 янв 2012 в 17:06

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.