Смілянський форум

uses Messages, Windows;

procedure WndProc(...); stdcall; //Оконная процедура
begin
  case
    //........................ обработка WM_PAINT
    else
      result:=DefaultWindowProc(...);
  end; //case
end;

begin
  {регистрация оконного класса}
  {порождение окна}
  {вывод окна на экран}
  {цикл обработки сообщений}
end.

#include <windows.h>


#define CLASS_NAME  "WinApiTest001"


HINSTANCE hInst;

BOOL InitInstance(HINSTANCE, int);
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);


int APIENTRY
WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
{
   MSG msg;
   
   if (!InitInstance (hInstance, nCmdShow))
      return FALSE;

   while (GetMessage(&msg, NULL, 0, 0)) {
      TranslateMessage(&msg);
      DispatchMessage(&msg);
   }

   return msg.wParam;
}

BOOL
InitInstance(HINSTANCE hInstance, int nCmdShow)
{
   WNDCLASSEX wcex;
   HWND hWnd;

   hInst = hInstance;

   wcex.cbSize         = sizeof(WNDCLASSEX);
   wcex.style          = CS_HREDRAW | CS_VREDRAW;
   wcex.cbClsExtra     = 0;
   wcex.cbWndExtra     = 0;
   wcex.hInstance      = hInstance;
   wcex.hbrBackground  = (HBRUSH) (COLOR_3DFACE+1);
   wcex.lpszMenuName   = NULL;
   wcex.hIcon          = NULL;
   wcex.hCursor        = LoadCursor(NULL, (LPCTSTR) IDC_ARROW);
   wcex.hIconSm        = NULL;
   wcex.lpfnWndProc    = (WNDPROC) WndProc;
   wcex.lpszClassName  = CLASS_NAME;

   if (!RegisterClassEx(&wcex)) {
      MessageBox(NULL, CLASS_NAME, "RegisterClassEx error", MB_ICONERROR);
      return FALSE;
   }

   hWnd = CreateWindow(CLASS_NAME, "WinApi Test", WS_POPUPWINDOW | WS_SIZEBOX,
      CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
      NULL, NULL, hInstance, NULL);
   if (!hWnd) {
      MessageBox(NULL, CLASS_NAME, "CreateWindow error", MB_ICONERROR);
      return FALSE;
   }

   ShowWindow(hWnd, SW_SHOW);
   UpdateWindow(hWnd);
   
   return TRUE;
}


LRESULT CALLBACK
WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
   PAINTSTRUCT ps;
   HDC hDC;
   RECT rect;
   int x0, y0;
   int i, imax;

   switch (message) {
   case WM_PAINT:
      hDC = BeginPaint(hWnd, &ps);
      SetBkMode(hDC, TRANSPARENT);
      GetClientRect(hWnd, &rect);
      x0 = (rect.left + rect.right) / 2;
      y0 = (rect.top + rect.bottom) / 2;

      MoveToEx(hDC, rect.left, y0, NULL);
      LineTo(hDC, rect.right, y0);
      LineTo(hDC, rect.right - 8, y0 - 3);
      LineTo(hDC, rect.right - 4, y0);
      LineTo(hDC, rect.right - 8, y0 + 3);
      LineTo(hDC, rect.right, y0);
      for (i = 1, imax = (rect.right - x0) / 20; i < imax; i++) {
         MoveToEx(hDC, x0 + i * 20, y0 - 5, NULL);
         LineTo(hDC, x0 + i * 20, y0 + 5);
         MoveToEx(hDC, x0 - i * 20, y0 - 5, NULL);
         LineTo(hDC, x0 - i * 20, y0 + 5);
      }
      SetTextAlign(hDC, TA_TOP | TA_RIGHT);
      TextOut(hDC, rect.right, y0 + 5, "x", 1);

      MoveToEx(hDC, x0, rect.bottom, NULL);
      LineTo(hDC, x0, rect.top);
      LineTo(hDC, x0 - 3, rect.top + 8);
      LineTo(hDC, x0, rect.top + 4);
      LineTo(hDC, x0 + 3, rect.top + 8);
      LineTo(hDC, x0, rect.top);
      for (i = 1, imax = (rect.bottom - y0) / 20; i < imax; i++) {
         MoveToEx(hDC, x0 - 5, y0 + i * 20, NULL);
         LineTo(hDC, x0 + 5, y0 + i * 20);
         MoveToEx(hDC, x0 - 5, y0 - i * 20, NULL);
         LineTo(hDC, x0 + 5, y0 - i * 20);
      }
      SetTextAlign(hDC, TA_TOP | TA_LEFT);
      TextOut(hDC, x0 + 5, rect.top, "y", 1);

      EndPaint(hWnd, &ps);
      break;

   case WM_DESTROY:
      PostQuitMessage(0);
      break;

   case WM_CLOSE:
      DestroyWindow(hWnd);
      break;

   default:
      return DefWindowProc(hWnd, message, wParam, lParam);
   }

   return 0;
}

program WindowClearAPI;
uses
  Windows, Messages;

const
  AppName = 'WindowsAPI';   //Ім'я класу вікна

var
  hWindow: HWnd;   // Дескриптор вікна
  DC: HDC;         // Дескриптор області виведення

//
// Віконна процедура
//
function WndProc(Window: HWnd; AMessage, WParam, LParam: Longint): Longint;
stdcall; export;
var
  Rect: TRect;
  X, Y: Integer;
  i: Integer;
begin
  Result := 0;
  case AMessage of
    WM_PAINT:
      begin
        GetClientRect(hWindow, Rect);
        X := (Rect.Right - Rect.Left) div 2;
        Y := (Rect.Bottom - Rect.Top) div 2;
        MoveToEx(DC, Rect.left, Y, NIL);
        LineTo(DC, Rect.right, Y);
        LineTo(DC, Rect.right - 8, Y - 3);
        LineTo(DC, Rect.right - 4, Y);
        LineTo(DC, Rect.right - 8, Y + 3);
        LineTo(DC, Rect.right, Y);
        for i := 1 to (Rect.Right - X) div 20 do
          begin
            MoveToEx(DC, X + i * 20, Y - 5, NIL);
            LineTo(DC, X + i * 20, Y + 5);
            MoveToEx(DC, X - i * 20, Y - 5, NIL);
            LineTo(DC, X - i * 20, Y + 5);
          end;
        MoveToEx(DC, X, Rect.bottom, NIL);
        LineTo(DC, X, Rect.top);
        LineTo(DC, X - 3, Rect.top + 8);
        LineTo(DC, X, Rect.top + 4);
        LineTo(DC, X + 3, rect.top + 8);
        LineTo(DC, X, Rect.top);
        for i := 1 to (Rect.bottom - Y) div 20 do
          begin
            MoveToEx(DC, X - 5, Y + i * 20, NIL);
            LineTo(DC, X + 5, Y + i * 20);
            MoveToEx(DC, X - 5, Y - i * 20, NIL);
            LineTo(DC, X + 5, Y - i * 20);
          end;
        SetTextAlign(DC, TA_TOP or TA_RIGHT);
        TextOut(DC, X - 5, Y + 5, '0', 1);
        TextOut(DC, Rect.right, Y + 5, 'x', 1);
        TextOut(DC, X - 5, Rect.top, 'y', 1);
      end;
    WM_CLOSE:
      begin
        DestroyWindow(hWindow);
        Exit;
      end;
    WM_DESTROY:
      begin
        PostQuitMessage(0);
        Exit;
      end;
  end;
  Result := DefWindowProc(Window, AMessage, WParam, LParam);
end;

//
// Реєстрація класу вікна
//
function WinRegister: Boolean;
var
  WindowClass: TWndClass;
begin
  WindowClass.Style := CS_VREDRAW or CS_HREDRAW;
  WindowClass.lpfnWndProc := @WndProc;   // Зсилка на віконну процедуру
  WindowClass.cbClsExtra := 0;
  WindowClass.cbWndExtra := 0;
  WindowClass.hInstance := HInstance;
  WindowClass.hIcon := LoadIcon(0, idi_Application);
  WindowClass.hCursor := LoadCursor(0, idc_Arrow);
  WindowClass.hbrBackground := HBrush(Color_Window);
  WindowClass.lpszMenuName := nil;
  WindowClass.lpszClassName := AppName;
  Result := RegisterClass(WindowClass) <> 0;
end;

//
// Створення вікна
//
function WinCreate: HWnd;
var
  hWindow: HWnd;
begin
  hWindow := CreateWindow(AppName, 'Clear WinAPI Window',
    WS_POPUPWINDOW or WS_SIZEBOX, 100, 100,
    256, 256, 0, 0, HInstance, nil);
  if hWindow <> 0 then
  begin
    ShowWindow(hWindow, SW_SHOW);
    UpdateWindow(hWindow);
    //SendMessage(hWindow, WM_PAINT, 0, 0);
  end;
  Result := hWindow;
end;

//
// Основне тіло програми
//
var
  AMessage: TMsg;  // Змінна для збереження повідомлень з черги
begin
  if not WinRegister then
  begin
    MessageBox(0, 'Не вдалося зареєструвати клас вікна.', 'Помилка', mb_Ok or
      MB_ICONERROR);
    Exit;          // Виходимо, якщо не вдалося зареєструвати клас
  end;
  hWindow := WinCreate;
  if hWindow = 0 then
  begin
    MessageBox(0, 'Не вдалося створити вікно.', 'Помилка', mb_Ok or
      MB_ICONERROR);
    Exit;          // Виходимо, якщо не вдалося створити вікно
  end;
  DC := GetDC(hWindow);
  while GetMessage(AMessage, 0, 0, 0) do
  begin
    TranslateMessage(AMessage);
    DispatchMessage(AMessage);
  end;
  Halt(AMessage.wParam);
end.