WinApi Рисование

[NEoMASTERR]

Здравствуйте, пишу графический движок, рисование идет на битмапе затем выводится картинка на DC формы, но при перемещении формы dc обновляется и почему то перерисовка не происходит. Подскажите пожалуйста.

procedure MainPaint;
var
  ohbr,hbr:HBRUSH;
begin
  // Заливка битмапа черным vvvvv
  hbr:=CreateSolidBrush(0);
  ohbr:=SelectObject(BitMapHandle, hbr);
  FillRect(BitMapHandle,rect(0,0,Main_Width,Main_Height),hbr);
  SelectObject(BitMapHandle,ohbr);
  DeleteObject(hbr);
  // Заливка битмапа черным ^^^^^

  if @NGlDrawProc <> nil then NGlDrawProc;
  // Рисуем из клиентского кода

  BitBlt(dc,0,0,Main_width,Main_Height,BitMapHandle,0,0,SRCCOPY);
  // Выводим на дс окна
end;

function windowproc(wnd: hwnd; msg: integer; wparam: wparam; lparam: lparam):lresult;stdcall;
var
  ps : PAINTSTRUCT;
begin
  case msg of
//...
  WM_PAINT:
    begin
      dc := BeginPaint(form, ps);
      Result:=0;
    end;
//...
end

И Код клиента

procedure MainPaint;
begin
  NPaint_Line(100,100,300,300,psSolid,3,RGB(0,100,100));
  NPaint_Rect(Random(1920),Random(1080),60,60,psSolid,3,random(100500));
end;

begin
  LoadNEoGLLibrary('MyGlEngine.dll');
  NGlRegProcedure(NGL_Draw,@MainPaint);
  NGlCreateWindow(1920,1080);
  NGlInit;
end.

Заранее спасибо

[Stilet]

WM_PAINT:
begin
dc := BeginPaint(form, ps);
Result:=0;
end;

А где вызов MainPaint()?

[NEoMASTERR]

Сообщение от Stilet

А где вызов MainPaint()?

MainPaint вызывается по таймеру, с dc который был получен в сообщении.

procedure MMCallBack(uTimerID, uMsg: UINT; dwUser, dw1, dw2: DWORD); stdcall;
begin
  case dwUser of
    0: exit;
    1: MainPaint;
  else
    TNEoGlTimer(dwUser).OnTimer;
  end;
end;

procedure NGLInit;
begin
  timeSetEvent(10, 1, @MMCallBack, 1,TIME_CALLBACK_FUNCTION or TIME_PERIODIC);

  while getmessage(mmsg,0,0,0) do
  begin
    translatemessage(mmsg);
    dispatchmessage(mmsg);
  end;
end;

>>> Сорц


Хм.
Проблема решилась добавлением

  WM_PAINT:
    begin
      //EndPaint(Form,ps);
      InvalidateRect(Form,nil,false);
      dc := BeginPaint(form, ps);

      Result:=0;
    end;

Влепил наугад, верное решение?)

[Stilet]

Даж не знаю... Я как-то по таймеру рисование не делал, в основном все в WM_PAINT. Изменения контента в таймере еще понимаю, но рисовать как-то привык в соответствующем событии\сообщении.

[NEoMASTERR]

Ну WM_Paint приходит лишь один раз (пока не подергаешь), а там движущиеся фигуры которые надо перерисовывать, движок + игрушку делаю. С Формой сделал но хочу отдельно дллкой и на апи

[Человек_Борща]

Bitmap и Canvas - одно и тоже. Берите технологии приспособленние для нужд. Иначе сами потом матерясь будите все это переписывать на GDI хотя бы. Но и у него есть ограничение на вроде бы 8-10 тыс. объектов.

[Stilet]

приходит лишь один раз

Ниче такого )
Она приходит когда окну нужно перерисоваться. И не один раз а много по необходимости - винда сама знает когда это сделать.

а там движущиеся фигуры которые надо перерисовывать

У нас тут на форуме обсуждались темы как писать игры - рекомендую пошариться поиском по ветке http://www.programmersforum.ru/forumdisplay.php?f=33

[NEoMASTERR]

Сообщение от Stilet

Ниче такого )
Она приходит когда окну нужно перерисоваться. И не один раз а много по необходимости - винда сама знает когда это сделать.

И Что ждать пока винда сама решит когда игроку видеть соперников?) Я навязываю ей, думаю так и другие движки делают

Сообщение от Stilet

У нас тут на форуме обсуждались темы как писать игры - рекомендую пошариться поиском по ветке http://www.programmersforum.ru/forumdisplay.php?f=33

Я не прошу помочь с игрой, я прошу помощи с графическим движком). Я не хочу готовый взять и использовать, мне интересно двиг. Первый раз такое делаю вот и поинтересовался. С формой сделал и 1200 объектов с нарисованным фоном в битмапе на 6 мб прыгали и бегали и не лагали, подумал выкинуть форму, взять таймер другой, короче полная переделка кода, там рисовал канвой а тут всякие SelectObject и подобное. В интернетах не нашёл ничего путного так что иду наугад

Вот кстати заготовка игры

Сообщение от Человек_Борща

Bitmap и Canvas - одно и тоже. Берите технологии приспособленние для нужд. Иначе сами потом матерясь будите все это переписывать на GDI хотя бы. Но и у него есть ограничение на вроде бы 8-10 тыс. объектов.

Я и так на GDI все это делаю, всё по стандарту..

[Пепел Феникса]

вы можете подать сигнал окну на перерисовку.
Refresh попробуйте.

Я навязываю ей, думаю так и другие движки делают

рисуя насильно вы не навязываете.
движки не так делают
тем более граф движки вообще немного на иной технологии пашут

[Stilet]

Я не хочу готовый взять и использовать, мне интересно двиг.

Да я только теорию предлагаю )
Так сказать для кругозора. Просто я не очень понимаю как же в таймере так изголиться чтоб за все обьекты отвечать. Я еще понимаю мол параметры перса и окружения меняются в сопроцессах, но таймер...