summaryrefslogtreecommitdiff
path: root/alf/alf.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'alf/alf.cpp')
-rw-r--r--alf/alf.cpp376
1 files changed, 2 insertions, 374 deletions
diff --git a/alf/alf.cpp b/alf/alf.cpp
index f4117e7..3bcde5b 100644
--- a/alf/alf.cpp
+++ b/alf/alf.cpp
@@ -1,112 +1,4 @@
-#include "alf.h"
-
-#include <windows.h>
-#include <commctrl.h>
-#include <windowsx.h>
-#include <stdio.h>
-#include <stddef.h>
-
-#ifdef _MSC_VER
-// MSVC6 for scoping hack
-# define for if(0){}else for
-#endif
-
-typedef struct ALFListHeader {
- struct ALFListHeader *prev;
- struct ALFListHeader *next;
-} ALFListHeader;
-
-#define ALF_LIST_CONTAINER(ContainerType, containermember, listp) \
- ((ContainerType *)((char *)(listp) - offsetof(ContainerType, containermember)))
-
-#define ALF_FOR_LIST(ContainerType, containermember, listp, iteratorvar) \
- for (ALFListHeader *alf_list_##iteratorvar##_curr = (listp)->next, \
- *alf_list_##iteratorvar##_next = alf_list_##iteratorvar##_curr->next; \
- alf_list_##iteratorvar##_curr != (listp); \
- alf_list_##iteratorvar##_curr = alf_list_##iteratorvar##_next, \
- alf_list_##iteratorvar##_next = alf_list_##iteratorvar##_next->next) \
- for (ContainerType *iteratorvar = (ContainerType *)((char *)alf_list_##iteratorvar##_curr - offsetof(ContainerType, containermember)); \
- iteratorvar; iteratorvar = NULL) \
-
-
-static inline BOOL
-ALF_ListIsEmpty(ALFListHeader *list)
-{
- return list->next == list;
-}
-
-static inline void
-ALF_ListInsert(ALFListHeader *list, ALFListHeader *newel)
-{
- newel->prev = list;
- newel->next = list->next;
- newel->next->prev = newel;
- list->next = newel;
-}
-
-static inline void
-ALF_ListRemove(ALFListHeader *member)
-{
- member->prev->next = member->next;
- member->next->prev = member->prev;
- member->next = NULL;
- member->prev = NULL;
-}
-
-static inline void
-ALF_ListInit(ALFListHeader *list)
-{
- list->next = list->prev = list;
-}
-
-typedef struct {
- ALFListHeader list;
- HWND hwnd;
- UINT x;
- UINT y;
- UINT cptWidth;
- UINT cptHeight;
- UINT cptMarginTop;
- UINT cptMarginRight;
- UINT cptMarginBottom;
- UINT cptMarginLeft;
- DWORD flags;
-} ALFWidgetPriv;
-
-typedef struct {
- int minWidth;
- int allocatedWidth;
- int allocatedPosition;
- int expand : 1;
-} ALFRowOrColumn;
-
-typedef struct {
- ALFRowOrColumn *columns;
- ALFRowOrColumn *rows;
- int nColumns;
- int nRows;
- int totalMinWidth;
- int totalMinHeight;
- int occupiedColumnCount;
- int occupiedRowCount;
-} ALFLayout;
-
-typedef struct {
- ALFAPP app;
- ALFWindowVTable *vtbl;
- void *closure;
- ALFWindowFonts fonts;
- ALFListHeader widgets;
- int modalResult;
- ALFLayout layout;
- WORD defid;
- HWND hwndFocus;
-} ALFWindowPriv;
-
-struct ALFAppPriv {
- HINSTANCE hInstance;
- ALFCompatFunctions *compatFn;
-};
+#include "alfpriv.h"
/* ALF App and Window */
@@ -600,23 +492,7 @@ ALF_CreateApplication(HINSTANCE hInstance)
InitCommonControlsEx(&icc);
- ALFCompatFunctions *compatfn = (ALFCompatFunctions*)HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY|HEAP_GENERATE_EXCEPTIONS, sizeof(ALFCompatFunctions));
-
-#define COMPAT(dll, entrypoint, ordinal) \
- do { \
- FARPROC p = GetProcAddress(GetModuleHandleA(#dll), #entrypoint); \
- if (!p && ordinal) \
- p = GetProcAddress(GetModuleHandleA(#dll), (char*)ordinal); \
- CopyMemory(&compatfn->entrypoint, &p, sizeof(void*)); \
- } while (0)
-
- COMPAT(comctl32.dll, SetWindowSubclass, 410);
- COMPAT(comctl32.dll, DefSubclassProc, 413);
- COMPAT(comctl32.dll, RemoveWindowSubclass, 412);
-
-#undef COMPAT
-
- app->compatFn = compatfn;
+ app->compatFn = ALF_CreateCompatFuncTable();
return app;
}
@@ -767,251 +643,3 @@ ALF_WidgetHwndById(HWND win, WORD id)
return closure.result;
}
-/* LABEL */
-
-static LRESULT CALLBACK
-ALF__LabelSubclassProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR uIdSubclass, DWORD_PTR dwRefData)
-{
- (void)uIdSubclass;
- (void)dwRefData;
-
- ALFAPP app = (ALFAPP)dwRefData;
-
- if (uMsg == ALF_WM_QUERYSIZE) {
- HDC hdcLabel = GetDC(hwnd);
- HFONT font = (HFONT)SendMessage(hwnd, WM_GETFONT, 0, 0);
- HFONT oldFont = 0;
- if (font)
- oldFont = SelectFont(hdcLabel, font);
-
- // calc drawtext style
- DWORD style = GetWindowLong(hwnd, GWL_STYLE);
- UINT format = DT_LEFT | DT_EXPANDTABS | DT_CALCRECT;
- if (style & SS_NOPREFIX)
- format |= DT_NOPREFIX;
- if (style & SS_EDITCONTROL)
- format |= DT_EDITCONTROL;
- if (style & SS_ENDELLIPSIS || style & SS_PATHELLIPSIS || style & SS_WORDELLIPSIS)
- format |= DT_SINGLELINE;
-
- RECT r = { 0, 0, 100, 100 };
-
- int textlen = GetWindowTextLength(hwnd);
- TCHAR *textbuf = (TCHAR*)HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY|HEAP_GENERATE_EXCEPTIONS, (textlen + 1)*sizeof(TCHAR));
- GetWindowText(hwnd, textbuf, textlen+1);
-
- DrawText(hdcLabel, textbuf, -1, &r, format);
-
- HeapFree(GetProcessHeap(), 0, textbuf);
-
- SIZE *pSize = (SIZE*)(void*)lParam;
- if (pSize->cx == 0)
- pSize->cx = r.right - r.left;
- if (pSize->cy == 0)
- pSize->cy = r.bottom - r.top;
-
- if (font)
- SelectFont(hdcLabel, oldFont);
-
- ReleaseDC(hwnd, hdcLabel);
- }
-
- return app->compatFn->DefSubclassProc(hwnd, uMsg, wParam, lParam);
-}
-
-HWND
-ALF_AddLabel(HWND win, WORD id, UINT x, UINT y, const WCHAR *text)
-{
- HWND hwndLabel = CreateWindow(L"STATIC",
- text,
- WS_CHILD | WS_VISIBLE | SS_LEFTNOWORDWRAP,
- 0, 0, 100, 100,
- win,
- (HMENU)(int)id,
- (HINSTANCE)GetWindowLongPtr(win, GWLP_HINSTANCE),
- NULL);
-
- ALFAPP app = ALF_ApplicationFromWindow(win);
- app->compatFn->SetWindowSubclass(hwndLabel, ALF__LabelSubclassProc, 0, (DWORD_PTR)app);
-
- ALFAddWidgetParams p;
- ZeroMemory(&p, sizeof(p));
- p.hwnd = hwndLabel;
- p.x = x;
- p.y = y;
- p.width = 0;
- p.height = 0;
- p.flags = ALF_QUERYSIZE | ALF_MESSAGEFONT;
- p.margins[0] = 300; // TODO: pixel perfect margins from system metrics
-
- ALF_AddWidgetEx(win, &p);
-
- return hwndLabel;
-}
-
-/* EDIT */
-static LRESULT CALLBACK
-ALF__EditSubclassProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR uIdSubclass, DWORD_PTR dwRefData)
-{
- (void)uIdSubclass;
- (void)dwRefData;
-
- ALFAPP app = (ALFAPP)dwRefData;
-
- if (uMsg == ALF_WM_QUERYSIZE) {
- HDC hDc = GetDC(hwnd);
- HFONT font = (HFONT)SendMessage(hwnd, WM_GETFONT, 0, 0);
-
- if (font) {
- HFONT oldfont = SelectFont(hDc, font);
-
- TEXTMETRIC tm;
- ZeroMemory(&tm, sizeof(tm));
-
- if (GetTextMetrics(hDc, &tm)) {
- SIZE *ps = (SIZE*)lParam;
- if (!ps->cx) {
- ps->cx = ALF_CentipointsToPixels(GetParent(hwnd), 12000);
- }
-
- if (!ps->cy) {
- ps->cy = tm.tmHeight + 6; // FIXME! use system metrics
- }
- }
-
- SelectFont(hDc, oldfont);
- }
-
- ReleaseDC(hwnd, hDc);
- return 0;
- }
-
- return app->compatFn->DefSubclassProc(hwnd, uMsg, wParam, lParam);
-}
-
-HWND
-ALF_AddEdit(HWND win, WORD id, UINT x, UINT y, const WCHAR *text)
-{
- HWND hwndEdit = CreateWindowEx(WS_EX_CLIENTEDGE,
- L"EDIT",
- text,
- WS_CHILD | WS_VISIBLE | WS_TABSTOP,
- 0, 0, 100, 100,
- win,
- (HMENU)(int)id,
- (HINSTANCE)GetWindowLongPtr(win, GWLP_HINSTANCE),
- NULL);
-
- ALFAPP app = ALF_ApplicationFromWindow(win);
-
- app->compatFn->SetWindowSubclass(hwndEdit, ALF__EditSubclassProc, 0, (DWORD_PTR)app);
- SetWindowPos(hwndEdit, NULL, 0, 0, 0, 0, SWP_NOZORDER | SWP_NOSIZE | SWP_NOMOVE | SWP_FRAMECHANGED);
-
- ALFAddWidgetParams p;
- ZeroMemory(&p, sizeof(p));
- p.hwnd = hwndEdit;
- p.x = x;
- p.y = y;
- p.width = 0;
- p.height = 0;
- p.flags = ALF_QUERYSIZE | ALF_MESSAGEFONT;
- p.margins[0] = 75; // TODO: pixel-perfect margin from system metrics
- p.margins[2] = 75;
-
- ALF_AddWidgetEx(win, &p);
-
- return hwndEdit;
-}
-
-/* BUTTON */
-static LRESULT CALLBACK
-ALF__ButtonSubclassProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR uIdSubclass, DWORD_PTR dwRefData)
-{
- (void)uIdSubclass;
- (void)dwRefData;
-
- ALFAPP app = (ALFAPP)dwRefData;
-
- if (uMsg == ALF_WM_QUERYSIZE) {
- HDC hdc = GetDC(hwnd);
- HFONT font = (HFONT)SendMessage(hwnd, WM_GETFONT, 0, 0);
- HFONT oldFont = 0;
- if (font)
- oldFont = SelectFont(hdc, font);
-
- // calc drawtext style
- DWORD style = GetWindowLong(hwnd, GWL_STYLE);
- UINT format = DT_LEFT | DT_EXPANDTABS | DT_CALCRECT;
- if ((style & BS_MULTILINE) == 0)
- format |= DT_SINGLELINE;
-
- RECT r = { 0, 0, 100, 100 };
-
- int textlen = GetWindowTextLength(hwnd);
- TCHAR *textbuf = (TCHAR*)HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY|HEAP_GENERATE_EXCEPTIONS, (textlen + 1)*sizeof(TCHAR));
- GetWindowText(hwnd, textbuf, textlen+1);
-
- DrawText(hdc, textbuf, -1, &r, format);
-
- HeapFree(GetProcessHeap(), 0, textbuf);
-
- // TODO: calculate from system metrics
- int padding = ALF_CentipointsToPixels(GetParent(hwnd), 525);
-
- SIZE *pSize = (SIZE*)(void*)lParam;
- if (pSize->cx < r.right - r.left + padding) {
- pSize->cx = r.right - r.left + padding;
- }
- if (pSize->cy < r.bottom - r.top + padding) {
- pSize->cy = r.bottom - r.top + padding;
- }
- if (pSize->cx < pSize->cy) {
- pSize->cx = pSize->cy;
- }
-
- if (font)
- SelectFont(hdc, oldFont);
-
- ReleaseDC(hwnd, hdc);
- }
-
- return app->compatFn->DefSubclassProc(hwnd, uMsg, wParam, lParam);
-}
-
-HWND
-ALF_AddButton(HWND win, WORD id, UINT x, UINT y, const WCHAR *text)
-{
- HWND hwndButton = CreateWindowEx(0,
- L"BUTTON",
- text,
- WS_CHILD | WS_TABSTOP | WS_VISIBLE | BS_PUSHBUTTON | BS_MULTILINE,
- 0, 0, 100, 100,
- win,
- (HMENU)(int)id,
- (HINSTANCE)GetWindowLongPtr(win, GWLP_HINSTANCE),
- NULL);
-
- ALFAPP app = ALF_ApplicationFromWindow(win);
-
- app->compatFn->SetWindowSubclass(hwndButton, ALF__ButtonSubclassProc, 0, (DWORD_PTR)app);
-
- ALFAddWidgetParams p;
- ZeroMemory(&p, sizeof(p));
- p.hwnd = hwndButton;
- p.x = x;
- p.y = y;
- p.width = 5625;
- p.height = 0;
- p.flags = ALF_QUERYSIZE | ALF_MESSAGEFONT;
-
- ALF_AddWidgetEx(win, &p);
-
- return hwndButton;
-}
-
-
-void
-ALF_SetDefaultButton(HWND win, WORD id)
-{
- SendMessage(win, DM_SETDEFID, (WPARAM)id, 0);
-}
generated by cgit v1.2.3 (git 2.39.1) at 2025-12-10 08:13:28 +0000