[sariman]

Не дали вы точный ответ как рисованием на битмапе избежать мерцания объектов на форме.

[angvelem]

Дал, читай внимательно.
Когда рисуешь на форме может придти сообщение WM_PAINT и всё моргнуло. При рисовании на битмапе и разовом выводе уже готового изображения такого не происходит.

[sariman]

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

Вот я и привел пример, затем копируешь битмап на форму.

Код:

function WndProc(Wnd : HWND; Msg : Integer; wParam, lParam : Longint): Integer; stdcall;
var
  ps    : PAINTSTRUCT;
...
  WM_PAINT :
  begin
    BeginPaint(Wnd, ps);
    BitBlt(ps.hdc, 0, 0, Bmp.Width, Bmp.Height, Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, SRCCOPY);
    EndPaint(Wnd, ps);
  end;

Что в данном случае Bmp? Его как-то нужно объявлять или что?

[angvelem]

Мне казалось это и так понятно

Код:

var
  Bmp : TBitmap;
...
  WM_CREATE :
  begin
    Bmp := TBitmap.Create;
    Bmp.LoadFromFile('MyImage.bmp');
...
  end;
...

Переменная Bmp - глобальная.

[sariman]

Хм..а какое отношение имеет картинка к объектам?

[angvelem]

Это лишь пример, ты же можешь полностью сделать свою отрисовку, в том числе кнопки, списки и что в голову придёт.

[sariman]

Оу..не хочу так сильно париться, как добиться двойной буферизации?

[angvelem]

Без битмапа никак. Зачем тебе двойная буферизация, раз у тебя нет графической отрисовки? И так ничего мерцать не будет.

[sariman]

К сожалению, мерцает Не сильно конечно, но мерцает.

[angvelem]

Что там может мерцать?

[sariman]

Ладно, этим разберусь попозже, у меня появился другие вопросы:
1. Когда вы кидали флаги для Popup Menu (RadioItem), но я вот не пойму, каким образом можно ставить AutoCheck на итемы и проверять выбран он или нет.
2. В тексте элемента вы указывали на некоторые элементы знак '&' в начале строки, что этот символ означает?

[sariman]

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

Что там может мерцать?

При ресайзе немного мерцает.

[angvelem]

Это будет.

[sariman]

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

Ладно, этим разберусь попозже, у меня появился другие вопросы:
1. Когда вы кидали флаги для Popup Menu (RadioItem), но я вот не пойму, каким образом можно ставить AutoCheck на итемы и проверять выбран он или нет.
2. В тексте элемента вы указывали на некоторые элементы знак '&' в начале строки, что этот символ означает?

Писал выше.

[angvelem]

1. Чуть позже код выложу.
2. Символ перед которым стоит & отображается подчёркнутым ("горячмй" символ).

Код:

var
  I : Integer;
begin
  I := 0;
  while I < GetMenuItemCount(Menu) do
  begin
    CheckMenuItem(Menu, I, MF_BYPOSITION or MF_UNCHECKED);
    inc(I);
  end;
  CheckMenuItem(Menu, ID, MF_BYCOMMAND or MF_CHECKED);