12.13. Приложение № V

Данная программа оптимизирована под среду разработки Borland C/C++ 3.1.

/* Файл TEXTOUTS.H с объявлениями функций и переменных*/

#ifndef MAXTEXTBUFFSIZE

#define MAXTEXTBUFFSIZE 80 // Максимальная ширина строки в символах

#endif

#define MAXTEXTSTRINGS 24 // Максимальное число строк в окне

#endif */

#ifndef __WINDOWS_H

#include

#endif

#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

// ------------------------------------

// Вывод текста в рабочую область окна

// с вертикальной полосой прокрутки

// ----------------------------------------

#define STRICT

#include

#include

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; // структура для работы с сообщениями

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;

}

// =====================================

// =====================================

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

#include

#include

#include

#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;

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;

}

// Определяем размеры внутренней области окна

{

cxClient = LOWORD(lParam);

return 0;

}

// Сообщение от вертикальной полосы просмотра

{

switch(wParam)

case SB_TOP:

{

nVScrollPos = 0;

}

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:

}

// Ограничиваем диапазон изменения значений

// Устанавливаем ползунок в новое положение

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;

}

}

}

case WM_DESTROY:

PostQuitMessage(0);

return 0;

}

}

}

// "Удержание" позиции прокрутки в "правильных" границах

{

if(nVScrollPos < 0) nVScrollPos = 0;

return;

void WINAPI PrintHDC_scroll( HDC hdc, const char *str )

{

char buf[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( )

{

/* Данная функция инициализирует позиции вывода текста при

текста */

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

Замечания к текстам примеров

Затем идут собственно функции вывода текста в окно PrintHDC_scroll и PrintLnHDC_scroll.

Первая из этих функций выводит текст в окно без перехода на другую строку. Новый вывод будет производиться в той же строке, начальная позиция которой будет равна «числу напечатанных символов» * «максимальную ширину литера шрифта». В Бейсике это эквивалентно командам:

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