Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Ада и другие языки _ зум с помощью функций WinAPI

Автор: Coach 25.09.2009 0:36

Программа должна зумировать изображение в окне для зума использую колесико мыши.В MOUSEWHEEL изменяю переменую zoom,но в StretchBlt почему-то не отражается это

#include "stdafx.h"
#include "bitmappaint.h"
#include "zmouse.h"
#ifndef WM_MOUSEWHEEL

#define WM_MOUSEWHEEL WM_MOUSELAST+1
#endif

UINT uMSH_MOUSEWHEEL = 0;

#define MAX_LOADSTRING 100

// Global Variables:
HINSTANCE hInst; // current instance
TCHAR szTitle[MAX_LOADSTRING]; // The title bar text
TCHAR szWindowClass[MAX_LOADSTRING]; // the main window class name


// Forward declarations of functions included in this code module:
ATOM MyRegisterClass(HINSTANCE hInstance);
BOOL InitInstance(HINSTANCE, int);
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
INT_PTR CALLBACK About(HWND, UINT, WPARAM, LPARAM);

int APIENTRY _tWinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
LPTSTR lpCmdLine, int nCmdShow)
{
UNREFERENCED_PARAMETER(hPrevInstance);
UNREFERENCED_PARAMETER(lpCmdLine);

// TODO: Place code here.
MSG msg;
HACCEL hAccelTable;

// Initialize global strings
LoadString(hInstance, IDS_APP_TITLE, szTitle, MAX_LOADSTRING);
LoadString(hInstance, IDC_BITMAPPAINT, szWindowClass, MAX_LOADSTRING);
MyRegisterClass(hInstance);

// Perform application initialization:
if (!InitInstance (hInstance, nCmdShow))
{
return FALSE;
}

uMSH_MOUSEWHEEL =RegisterWindowMessage(MSH_MOUSEWHEEL);
if ( !uMSH_MOUSEWHEEL )
{
MessageBoxA (NULL,"RegisterWindowMessag Failed!","Error",MB_OK);
return msg.wParam;
}

hAccelTable = LoadAccelerators(hInstance, MAKEINTRESOURCE(IDC_BITMAPPAINT));
// Main message loop:
while (GetMessage(&msg, NULL, 0, 0))
{
if (!TranslateAccelerator(msg.hwnd, hAccelTable, &msg))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
}

return (int) msg.wParam;
}



//
// FUNCTION: MyRegisterClass()
//
// PURPOSE: Registers the window class.
//
// COMMENTS:
//
// This function and its usage are only necessary if you want this code
// to be compatible with Win32 systems prior to the 'RegisterClassEx'
// function that was added to Windows 95. It is important to call this function
// so that the application will get 'well formed' small icons associated
// with it.
//
ATOM MyRegisterClass(HINSTANCE hInstance)
{
WNDCLASSEX wcex;

wcex.cbSize = sizeof(WNDCLASSEX);

wcex.style = CS_HREDRAW | CS_VREDRAW;
wcex.lpfnWndProc = WndProc;
wcex.cbClsExtra = 0;
wcex.cbWndExtra = 0;
wcex.hInstance = hInstance;
wcex.hIcon = LoadIcon(hInstance, MAKEINTRESOURCE(IDI_BITMAPPAINT));
wcex.hCursor = LoadCursor(NULL, IDC_ARROW);
wcex.hbrBackground = (HBRUSH)(COLOR_WINDOW+1);
wcex.lpszMenuName = MAKEINTRESOURCE(IDC_BITMAPPAINT);
wcex.lpszClassName = szWindowClass;
wcex.hIconSm = LoadIcon(wcex.hInstance, MAKEINTRESOURCE(IDI_SMALL));

return RegisterClassEx(&wcex);
}

//
// FUNCTION: InitInstance(HINSTANCE, int)
//
// PURPOSE: Saves instance handle and creates main window
//
// COMMENTS:
//
// In this function, we save the instance handle in a global variable and
// create and display the main program window.
//
BOOL InitInstance(HINSTANCE hInstance, int nCmdShow)
{
HWND hWnd;

hInst = hInstance; // Store instance handle in our global variable
hWnd = CreateWindow(szWindowClass, szTitle, WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT, 0, CW_USEDEFAULT, 0, NULL, NULL, hInstance, NULL);
if (!hWnd)
{
return FALSE;
}
ShowWindow(hWnd, nCmdShow);
UpdateWindow(hWnd);

return TRUE;
}

//
// FUNCTION: WndProc(HWND, UINT, WPARAM, LPARAM)
//
// PURPOSE: Processes messages for the main window.
//
// WM_COMMAND - process the application menu
// WM_PAINT - Paint the main window
// WM_DESTROY - post a quit message and return
//
//

LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
int wmId, wmEvent;
PAINTSTRUCT ps;
RECT trect;
HDC hdc=GetDC(hWnd); // дескриптор контекста устройства
static POINTS ptsBegin; // начальная точка
static POINTS ptsEnd; // новая конечная точка
static BOOL fPrevLine = FALSE; // флаг предыдущей линии
static int j=2;
static RECT rcClient; // прямоугольник клиентской области
static int k=0;
static int mode,zoom=1;
static HDC memDC = CreateCompatibleDC(hdc);
static HBITMAP memBM = CreateCompatibleBitmap (hdc, GetDeviceCaps(hdc, HORZRES),
GetDeviceCaps(hdc, VERTRES));
if(k==0)
{
SelectObject(memDC, memBM);
PatBlt(memDC,0,0,GetDeviceCaps(hdc, HORZRES),GetDeviceCaps(hdc, VERTRES),WHITENESS);
k++;
}
ReleaseDC(hWnd, hdc);
switch (message)
{

case WM_CREATE:

break;
case WM_LBUTTONDOWN:
// Захватываем мышку.
//SetCapture(hWnd);

ptsBegin = MAKEPOINTS(lParam);
hdc = GetDC(hWnd);

SetPixel(memDC,ptsBegin.x,ptsBegin.y,0);
SetPixel(hdc,ptsBegin.x,ptsBegin.y,0);
//SetPixel(hdcMeta,ptsBegin.x,ptsBegin.y,0);
//hmf=CloseMetaFile(hdcMeta);
//PlayMetaFile(hdc,hmf);

return 0;

case WM_MOUSEMOVE:

// Чтобы рисовалась линия, то при движении мышки
// пользователь должен удерживать нажатой левую кнопку мышки.

if (wParam & MK_LBUTTON)
{

// Получаем контекст устройства (DC) для клиентской области

hdc = GetDC(hWnd);

// Преобразуем текущие координаты курсора в структуру
// POINTS, а затем рисуем новую линию.

ptsEnd = MAKEPOINTS(lParam);


MoveToEx(hdc, ptsBegin.x, ptsBegin.y, (LPPOINT) NULL);
LineTo(hdc, ptsEnd.x, ptsEnd.y);
MoveToEx(memDC, ptsBegin.x, ptsBegin.y, (LPPOINT) NULL);
LineTo(memDC, ptsEnd.x, ptsEnd.y);


// Устанавливаем флаг предыдущей линии, сохраняем конечную
// точку новой линии, а затем освобождаем DC.

fPrevLine = TRUE;
ptsBegin = ptsEnd;
ReleaseDC(hWnd, hdc);
}
break;

case WM_LBUTTONUP:
// освобождаем захват мышки

fPrevLine = FALSE;
ClipCursor(NULL);
ReleaseCapture();

hdc = GetDC(hWnd);


return 0;

case WM_COMMAND:
wmId = LOWORD(wParam);
wmEvent = HIWORD(wParam);
// Parse the menu selections:
switch (wmId)
{
case IDM_ABOUT:
DialogBox(hInst, MAKEINTRESOURCE(IDD_ABOUTBOX), hWnd, About);
break;
case IDM_EXIT:
DestroyWindow(hWnd);
break;
default:
return DefWindowProc(hWnd, message, wParam, lParam);
}
break;

case WM_PAINT:
hdc = BeginPaint(hWnd, &ps);
StretchBlt(hdc,0,0,GetDeviceCaps(hdc, HORZRES)*zoom,
GetDeviceCaps(hdc, VERTRES)*zoom,memDC,0,0,
GetDeviceCaps(hdc, HORZRES),GetDeviceCaps(hdc, VERTRES),SRCCOPY);
EndPaint(hWnd, &ps);

break;
case WM_MOUSEWHEEL:
if (((short) HIWORD(wParam))<0)
{
zoom+=0.1;
SendMessage (hWnd,WM_PAINT,0,0);
}
else
{
zoom-=0.1;
SendMessage (hWnd,WM_PAINT,0,0);
}
break;
case WM_DESTROY:
DeleteObject(memBM);
PostQuitMessage(0);
break;

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

// Message handler for about box.
INT_PTR CALLBACK About(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
{
UNREFERENCED_PARAMETER(lParam);
switch (message)
{
case WM_INITDIALOG:
return (INT_PTR)TRUE;

case WM_COMMAND:
if (LOWORD(wParam) == IDOK || LOWORD(wParam) == IDCANCEL)
{
EndDialog(hDlg, LOWORD(wParam));
return (INT_PTR)TRUE;
}
break;
}
return (INT_PTR)FALSE;
}


Автор: volvo 25.09.2009 1:58

У тебя переменная zoom объявлена как int, следовательно изменяться она не будет вообще: при попытке изменить zoom с 1 на 1.1 произойдет округление опять до 1... Так что описывай zoom как double, а потом уже посмотрим...

Автор: Coach 25.09.2009 2:35

Цитата(volvo @ 24.09.2009 21:58) *

У тебя переменная zoom объявлена как int, следовательно изменяться она не будет вообще: при попытке изменить zoom с 1 на 1.1 произойдет округление опять до 1... Так что описывай zoom как double, а потом уже посмотрим...

Спасибо действительно помогло ,но возник вопрос как получить всю область окна после зуммирования

Автор: volvo 25.09.2009 16:48

Всю область окна (так же, как и ПЕРЕД зуммированием) можно получить через GetClientRect, если "получить" значит "определить размеры". У тебя при зуме ничего (с точки зрения размеров окна) не происходит, так что область окна остается неизменной.