Рисование без мерцания

[NotProCoder]

Вообще для "быстрой" графики у меня есть некоторые рекомендации.

Если есть желание изобретать велосипед то
1) Пользоваться API
2) Использовать в "узких" местах хотя бы ассемблерные вставки с использованием комманд x386 (более SSE,MMX и т.п.)
3) Использовать контексты и DIB
4) Использовать для рендера двойную буферизацию (для лёгкой анимации, и только!)

А вообще есть компонент "Graphics32", там всё оптимизированно и врядли
можно что-то сделать лучше для Delphi.

[DomiNick]

1) Пользоваться API
2) Использовать в "узких" местах хотя бы ассемблерные вставки с использованием комманд x386 (более SSE,MMX и т.п.)
3) Использовать контексты и DIB
4) Использовать для рендера двойную буферизацию (для лёгкой анимации, и только!)

А примеров всего этого, я так понимаю, не последует..?

[NotProCoder]

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

А примеров всего этого, я так понимаю, не последует..?

А вот библиотека Graphics32 и есть тот самый пример!!!

Лить отсюда!!! Там столько примеров заюзать можно, что от этого может интересное место на теле просто лопнуть.
http://sourceforge.net/projects/graphics32

[Брахман]

вот попробуй код для убийства мерцания в delphi

procedure BeginScreenUpdate(hwnd: THandle);
begin
  if (hwnd = 0) then
    hwnd := Application.MainForm.Handle;
  SendMessage(hwnd, WM_SETREDRAW, 0, 0);
end;

procedure EndScreenUpdate(hwnd: THandle; erase: Boolean);
begin
  if (hwnd = 0) then
    hwnd := Application.MainForm.Handle;
  SendMessage(hwnd, WM_SETREDRAW, 1, 0);
  RedrawWindow(hwnd, nil, 0, DW_FRAME + RDW_INVALIDATE +
    RDW_ALLCHILDREN + RDW_NOINTERNALPAINT);
  if (erase) then
    Windows.InvalidateRect(hwnd, nil, True);
end;