Загрузка процессора в режиме НЕ отладчик

[Alex Cones]

Когда запускаю под [LAZARUS] отладчиком - загрузка процессора 0% (на чистом API прога).

А когда в реальном режиме - 15%!!!

В чем может быть дело и как избавиться от этого?

[ex.cluz]

А это как?
Ваша прога постоянно грузит проц. на 15 процентов (в режиме бездействия)? Или там расчеты какие-то идут?

[Alex Cones]

Да, постоянно! Причем на деле прога написана на чисто API и есть только таймер, который отрисовывает интерфейс.

Да, и еще кое что - это случается через раз.

[ex.cluz]

Контролов много? Отрисовывает часто?

[Alex Cones]

Только один - TImage, отрисовка достаточно часто. Но ведь под отладчиком 0. И через раз в реале 0.

[GunSmoker]

Ошибка в 13-й строке.

[Alex Cones]

Да, понимаю, даю мало информации и самое время гадать.

 UNTProcs.GetCurDir; // Определяю текущую директорию и пишу её в переменную
 UNTProcs.LoadConf; // Гружу конфигурационный файл в record
 UNTProcs.CalculatePos; // определяю границы формы
 UNTProcs.RegisterApp; // Регистрирую приложение
 UNTProcs.CreateMainWindow; // Создаю главное окно и имагу на нем
 UNTProcs.LoadBitMaps; // Гружу кнопки (*.bmp -> HBitMap)
 UNTProcs.LoadContBits; // Гружу куски контейнера (*.bmp -> HBitMap)
 UNTProcs.LoadLight; // Гружу картинку подсветки кнопки
 UNTProcs.LoadHint; // Гружу картинку подсказки
 UNTProcs.GetMouseCPStart; // Запоминаю позицию мыши
 UNTProcs.ShowSquary; // Вывожу форму на экран

 Timer0ID := SetTimer(0, 0, TIMER_0_FREQ, @UNTHand.Timer0); // Ставлю таймер

 While (GetMessage(Application.MSG, 0, 0, 0)) do
  Begin
    TranslateMessage(Application.MSG);
    DispatchMessage(Application.MSG);
  End;

 Function WindowProc(HWND, Msg : LongWord; WParam, LParam: LongInt): LongInt; StdCall;
 Begin
  Result := DefWindowProc(HWND, Msg, WParam, LParam);
  Case Msg Of
   WM_MOUSEMOVE : UNTProcs.DrawAll;      // Full nude picture. //Полная отрисовка с подсветкой
   WM_PAINT     : UNTProcs.SetOnTop;     // Look at me! Look at me! Look at...
   WM_DESTROY   : UNTProcs.ShutDown;     // One shot - one frag!
  End;
 End;

 Procedure Timer0(hwnd : HWND; uMsg, idEvent : UINT; dwTime : DWORD); StdCall;
 Begin
  UNTProcs.DrawAllTimer;                 // Half-nude picture. It`s more sexy! // Частичная отрисовка
 End;

P.S. Английские коменты в коде реально, русские написал сейчас.

 Procedure DrawAll;
 Begin
  If GetMouseCP Then
   Begin
    UNTProcs.Draw(Warehouse.Pinker, 0, 0); // Рисую розовый фон (прозрачный будет)
    UNTProcs.DrawScreen; // Рисую кнопки
    UNTProcs.DrawLight; // Рисую подсветку
    UNTProcs.DrawHintText; // Рисую Текст подсказок
    UNTProcs.BufferDraw; // Вывожу буфер
   End;
 End;

 Procedure DrawAllTimer; // По таймеру рисую частично, чтобы не хавать время процессора.
 Begin
  If GetMouseCP Then
   Begin
    UNTProcs.Draw(Warehouse.Pinker, 0, 0);
    UNTProcs.DrawScreen;
    UNTProcs.BufferDraw;
   End;
 End;

 Function GetMouseCP : Boolean; // It`s a "Current Position"! Not CP!
 Var
  P : TPoint;
 Begin
  ZeroMemory(@P, SizeOf(P));
  GetCursorPos(P);
  P.X := P.X - Application.FRMMain.Left;
  P.Y := P.Y - Application.FRMMain.Top;
  If (P.X <> MouseP.X) Or (P.Y <> MouseP.Y) Then Result := TRUE
                                            Else Result := FALSE;
  MouseP := P;
 End;