Вывод текста на экран и устройство в Windows

hwnd = CreateWindow( szClassName, szWindowTitle,
  // Стиль окна
  WS_OVERLAPPEDWINDOW | WS_VSCROLL | WS_HSCROLL,
  CW_USEDEFAULT, CW_USEDEFAULT,
  CW_USEDEFAULT, CW_USEDEFAULT,
  0, 0, hInstance, NULL );

/* Файл TEXTOUTS.H с объявлениями функций и переменных*/
#ifndef MAXTEXTBUFFSIZE
#define MAXTEXTBUFFSIZE  80 // Максимальная ширина строки в символах
#endif
/* #ifndef MAXTEXTSTRINGS
#define MAXTEXTSTRINGS  24 // Максимальное число строк в окне
#endif */
#ifndef __WINDOWS_H
#include <windows.h>
#endif
#ifndef __TEXTOUTS_H
#define __TEXTOUTS_H
// Методы
// "Удержание" позиции прокрутки в "правильных" границах
void  vnormalize( void );
void WINAPI setVScrollPos( int ); // Установка текущей позиции скроллинга
int WINAPI getVScrollPos();     // Выдача текущей позиции скроллинга
void WINAPI setMaxVScrol( int );  // Установка максимального количества строк
int WINAPI getMaxVScroll();    // Выдача максимального количества строк
void WINAPI TextMetricsInit( HDC ); // Установка параметров шрифтов
void WINAPI vPageUp( int ); // Перемещение рабочей области окна на экран вверх
void WINAPI vPageDown( int ); // Перемещение рабочей области окна на экран вниз
void WINAPI PrintHDC_scroll( HDC, const char * ); // Печать строки без переноса на новую строку
void WINAPI PrintLnHDC_scroll( HDC, const char * ); // Печать строки с переносом на новую строку
void WINAPI PrintInitHDC_scroll( void ); //  Данная функция инициализирует позиции вывода текста при обработке прерывания WM_PAINT
#endif
/* Файл View0000.CPP */
// ------------------------------------
// Вывод текста в рабочую область окна
// с вертикальной полосой прокрутки
// ----------------------------------------
#define STRICT
#include <windows.h>
#include <mem.h>
BOOL InitApp(HINSTANCE);
LRESULT CALLBACK _export WndProc(HWND, UINT, WPARAM, LPARAM);
char const szClassName[]   = "ViewerAppClass";
char const szWindowTitle[] = "Viewer0000 Application";
// =====================================
// Функция WinMain
// =====================================
#pragma argsused
int PASCAL
WinMain(HINSTANCE hInstance,
  HINSTANCE hPrevInstance,
  LPSTR     lpszCmdLine,
  int       nCmdShow)
{
  MSG  msg;   // структура для работы с сообщениями
  HWND hwnd;  // идентификатор главного окна приложени
  if(!InitApp(hInstance))
      return FALSE;
  hwnd = CreateWindow(
    szClassName,         // имя класса окна
    szWindowTitle,       // заголовок окна
    WS_OVERLAPPEDWINDOW | WS_VSCROLL, // стиль окна
    CW_USEDEFAULT,       // задаем размеры и расположение
    CW_USEDEFAULT,       // окна, принятые по умолчанию
    CW_USEDEFAULT,
    CW_USEDEFAULT,
    0,                   // идентификатор родительского окна
    0,                   // идентификатор меню
    hInstance,           // идентификатор приложени
    NULL);               // указатель на дополнительные
       // параметры
  if(!hwnd)
    return FALSE;
  ShowWindow(hwnd, nCmdShow);
  UpdateWindow(hwnd);
  while(GetMessage(&msg, 0, 0, 0))
  {
    DispatchMessage(&msg);
  }
  return msg.wParam;
}
// =====================================
// Функция InitApp
// =====================================
BOOL
InitApp(HINSTANCE hInstance)
{
  ATOM aWndClass; // атом для кода возврата
  WNDCLASS wc;    // структура для регистрации
                  // класса окна
  memset(&wc, 0, sizeof(wc));
  // Определяем стиль класса окна, при
  // использовании которого окно требует
  // перерисовки в том случае, если
  // изменилась его ширина или высота
  wc.style = CS_HREDRAW | CS_VREDRAW;
  wc.lpfnWndProc = (WNDPROC) WndProc;
  wc.cbClsExtra = 0;
  wc.cbWndExtra = 0;
  wc.hInstance = hInstance;
  wc.hIcon = LoadIcon(NULL, IDI_APPLICATION);
  wc.hCursor = LoadCursor(NULL, IDC_ARROW);
  wc.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);
  wc.lpszMenuName = (LPSTR)NULL;
  wc.lpszClassName = (LPSTR)szClassName;
  aWndClass = RegisterClass(&wc);
  return (aWndClass != 0);
}
/* Файл WINPROC.CPP с примерами функций */
// =====================================
// Функция WndProc
// =====================================
#define STRICT
#include <windows.h>
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include "textouts.h"
#define MAXTEXTSTRINGS  20 // Переопределённое значение высоты экрана в строках
// Переменные
  static int  nVScrollPos;  // Текущая позиция вертикальной полосы прокрутки
  static int  nMaxVScrolled;  // Максимальное значение позиции
  static int  nxCurPos;     // Текущая горизонтальная позиция вывода в окне
  static int  nyCurPos;     // Текущая вертикальная позиция вывода в окне
  static int  cxChar;       // Ширина символов
  static int  cyChar;       // Высота строки с символами
  static char  otladka[80];  // Данные для отладки
LRESULT CALLBACK _export
WndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
  static WORD cxClient, cyClient;
  HDC hdc;              // индекс контекста устройства
  PAINTSTRUCT ps;       // структура для рисовани
  TEXTMETRIC  tm;     // Структура для записи метрик шрифта
  switch (msg)
  {
    case WM_CREATE:
    {
      // Получаем контекст отображения,
      // необходимый для определения метрик шрифта
      hdc = GetDC(hwnd);
      // Заполняем структуру информацией
      // о метрике шрифта, выбранного в
      // контекст отображени
      GetTextMetrics( hdc, &tm );
      // Запоминаем значение ширины для самого широкого символа
      cxChar = tm.tmMaxCharWidth;
      // Запоминаем значение высоты букв с учётом междустрочного интервала
      cyChar = tm.tmHeight + tm.tmExternalLeading;
      // Инициализируем текущую позицию вывода текста
      nxCurPos = cxChar/2;  // Текущая горизонтальная позиция вывода в окне
      nyCurPos = 0;  // Текущая вертикальная позиция вывода в окне
      // Задаём начальное значение позиции
      nVScrollPos = 0;
      nMaxVScrolled = MAXTEXTSTRINGS;
      // Освобождаем контекст
      ReleaseDC(hwnd, hdc);
      // Задаем диапазон изменения значений
      SetScrollRange(hwnd, SB_VERT, 0, nMaxVScrolled, FALSE);
      // Устанавливаем ползунок в начальную позицию
      SetScrollPos(hwnd, SB_VERT, nVScrollPos, TRUE);
      return 0;
    }
    // Определяем размеры внутренней области окна
    case WM_SIZE:
    {
      cxClient = LOWORD(lParam);
      cyClient = HIWORD(lParam);
      return 0;
    }
    // Сообщение от вертикальной полосы просмотра
    case WM_VSCROLL:
    {
      switch(wParam)
      {
  case SB_TOP:
  {
    nVScrollPos = 0;
          break;
        }
  case SB_BOTTOM:
  {
    nVScrollPos = nMaxVScrolled;
          break;
        }
  case SB_LINEUP:
  {
    nVScrollPos -= 1;
          break;
        }
  case SB_LINEDOWN:
  {
    nVScrollPos += 1;
          break;
        }
  case SB_PAGEUP:
  {
    nVScrollPos -= cyClient / cyChar;
          break;
        }
  case SB_PAGEDOWN:
  {
    nVScrollPos += cyClient / cyChar;
          break;
        }
  case SB_THUMBPOSITION:
  {
    nVScrollPos = LOWORD(lParam);
          break;
  }
  // Блокируем для того чтобы избежать
  // мерцания содержимого окна при
  // перемещении ползунка
  case SB_THUMBTRACK:
  {
    return 0;
  }
  default:
          break;
      }
      // Ограничиваем диапазон изменения значений
      vnormalize();
      // Устанавливаем ползунок в новое положение
      SetScrollPos(hwnd, SB_VERT, nVScrollPos, TRUE);
      // Обновляем окно
      InvalidateRect(hwnd, NULL, TRUE);
      return 0;
    }
    case WM_PAINT:
    {
      hdc = BeginPaint(hwnd, &ps);
      /* Эти операторы используется для тестировани
      sprintf( otladka, "nVScrollPos = %d\n", nVScrollPos );
      MessageBox( hwnd, otladka, NULL, MB_OK ); */
      // Инициализируем позицию вывода текста
      PrintInitHDC_scroll();
      // Выводим текст
      PrintLnHDC_scroll(hdc, "Это первая строка");
      PrintLnHDC_scroll(hdc, "Это следующая строка");
      PrintLnHDC_scroll(hdc, "Это следующая строка");
      PrintLnHDC_scroll(hdc, "Это следующая строка");
      PrintLnHDC_scroll(hdc, "Это следующая строка");
      PrintLnHDC_scroll(hdc, "Это следующая строка");
      PrintLnHDC_scroll(hdc, "Это следующая строка");
      PrintLnHDC_scroll(hdc, "Это следующая строка");
      PrintLnHDC_scroll(hdc, "Это следующая строка");
      PrintLnHDC_scroll(hdc, "Это следующая строка");
      PrintLnHDC_scroll(hdc, "Это следующая строка");
      PrintLnHDC_scroll(hdc, "Это следующая строка");
      PrintLnHDC_scroll(hdc, "Это следующая строка");
      PrintLnHDC_scroll(hdc, "Это следующая строка");
      PrintLnHDC_scroll(hdc, "Это следующая строка");
      PrintLnHDC_scroll(hdc, "Это следующая строка");
      PrintLnHDC_scroll(hdc, "Это следующая строка");
      PrintLnHDC_scroll(hdc, "Это следующая строка");
      PrintLnHDC_scroll(hdc, "Это следующая строка");
      PrintLnHDC_scroll(hdc, "А это последняя строка");
      EndPaint(hwnd, &ps);
      return 0;
    }
    // Обеспечиваем управление полосой просмотра
    // при помощи клавиатуры
    case WM_KEYDOWN:
    {
      // В зависимости от кода клавиши функция окна
      // посылает сама себе сообщения, которые
      // обычно генерируются полосой просмотра
      switch (wParam)
      {
  case VK_HOME:
  {
    SendMessage(hwnd, WM_VSCROLL, SB_TOP, 0L);
          break;
        }
  case VK_END:
  {
    SendMessage(hwnd, WM_VSCROLL, SB_BOTTOM, 0L);
          break;
        }
  case VK_UP:
  {
    SendMessage(hwnd, WM_VSCROLL, SB_LINEUP, 0L);
          break;
        }
  case VK_DOWN:
  {
    SendMessage(hwnd, WM_VSCROLL, SB_LINEDOWN, 0L);
          break;
        }
  case VK_PRIOR:
  {
    SendMessage(hwnd, WM_VSCROLL, SB_PAGEUP, 0L);
          break;
        }
  case VK_NEXT:
  {
    SendMessage(hwnd, WM_VSCROLL, SB_PAGEDOWN, 0L);
          break;
        }
      }
      return 0;
    }
    case WM_DESTROY:
    {
      PostQuitMessage(0);
      return 0;
    }
  }
  return DefWindowProc(hwnd, msg, wParam, lParam);
}
// "Удержание" позиции прокрутки в "правильных" границах
void  vnormalize( void )
{
  if(nVScrollPos < 0) nVScrollPos = 0;
  if( nVScrollPos > nMaxVScrolled ) nVScrollPos = nMaxVScrolled;
  return;
};
void WINAPI PrintHDC_scroll( HDC hdc, const char *str )
{
  char buf[MAXTEXTBUFFSIZE];
  char temp[MAXTEXTBUFFSIZE];
  int i, y;
// Обрезание входной строки при превышении её длины.
// Это нужно, чтобы не было ошибки "переполнение буфера"
  memset( temp, '\0', MAXTEXTBUFFSIZE );
  strncpy( temp, str, MAXTEXTBUFFSIZE );
  // Вычисляем начальную позицию для вывода
  y = nyCurPos + cyChar * (- nVScrollPos);
  // Подготавливаем в рабочем буфере
  // и выводим в окно, начиная с текущей
  // позиции название параметра
  sprintf(buf, "%s", temp);
  i = strlen(temp);
  TextOut(hdc,
    nxCurPos, y, buf, i);
  // Увеличиваем текущую позицию по
  // горизонтали на ширину символа
  nxCurPos += cxChar*i;
  return;
}
void WINAPI PrintLnHDC_scroll( HDC hdc, const char *str )
{
  char buf[MAXTEXTBUFFSIZE], temp[MAXTEXTBUFFSIZE];
  int i, y;
// Обрезание входной строки при превышении её длины.
// Это нужно, чтобы не было ошибки "переполнение буфера"
  memset( temp, '\0', MAXTEXTBUFFSIZE );
  strncpy( temp, str, MAXTEXTBUFFSIZE );
  // Вычисляем начальную позицию для вывода
  y = nyCurPos + cyChar * (- nVScrollPos);
  // Подготавливаем в рабочем буфере
  // и выводим в окно, начиная с текущей
  // позиции название параметра
  sprintf(buf, "%s", temp);
  i = strlen(temp);
  TextOut(hdc,
    nxCurPos, y, buf, i);
  // Увеличиваем текущую позицию по
  // вертикали на высоту символа
  // и переносим начало вывода на новую строку
  nyCurPos += cyChar;
  nxCurPos = cxChar/2;
  return;
}
void WINAPI PrintInitHDC_scroll( )
{
  /* Данная функция инициализирует позиции вывода текста при
     обработке прерывания WM_PAINT перед собственно выводом
     текста */
  nyCurPos = 0; // Начальная позиция вывода в окно 0
  nxCurPos = cxChar / 2; // Начальная горизонтальная позиция -- половина от ширины символа
  return;
}
/* Файл описания модулей VIEW0000.DEF */
; =====================================
; Файл определения модуля VIEW0000
; =====================================
NAME        VIEW0000
DESCRIPTION 'Приложение VIEW0000, (C) 2010, yudenisov'
EXETYPE     windows
STUB        'winstub.exe'
STACKSIZE   5120
HEAPSIZE    4096
CODE        preload moveable discardable
DATA        preload moveable multiple

TAB("позиция"); PRINT "строка";