/+
+ Copyright (c) Charles Petzold, 1998.
+ Ported to the D Programming Language by Andrej Mitrovic, 2011.
+/
case SB_LINEDOWN:
iTempo += 1; break;
case SB_PAGEDOWN:
iTempo += 10; break;
// Draw the text strings and horizontal lines
for (i = 0; i < NUM_PERC; i++)
MoveToEx(hdc, i & 1 ? 20 * cxChar : cxChar,
(2 * i + 3) * cyChar / 4, NULL);
MoveToEx(hdc, point.x + cxChar, point.y + cyChar / 2, NULL);
/+
+ Copyright (c) Charles Petzold, 1998.
+ Ported to the D Programming Language by Andrej Mitrovic, 2011.
+/
if (!midiOutGetDevCaps(MIDIMAPPER, &moc, moc.sizeof))
AppendMenu(hMenuPopup, MF_STRING, IDM_DEVICE + cast(int)MIDIMAPPER, moc.szPname.ptr);
// Add the rest of the MIDI devices
for (i = 0; i < iNumDevs; i++)
midiOutGetDevCaps(i, &moc, moc.sizeof);
AppendMenu(hMenuPopup, MF_STRING, IDM_DEVICE + i, moc.szPname.ptr);
for (i = 0; i < 16; i++)
{
szBuffer = format("%s", i+1);
AppendMenu(hMenuPopup, MF_STRING | (i ? MF_UNCHECKED : MF_CHECKED), IDM_CHANNEL + i, szBuffer.toUTF16z);
/+
+ Copyright (c) Charles Petzold, 1998.
+ Ported to the D Programming Language by Andrej Mitrovic, 2011.
+/
rect.right = (x + 1) * cxBlock;
rect.bottom = (y + 1) * cyBlock;
for (x = 0; x < DIVISIONS; x++)
{
for (y = 0; y < DIVISIONS; y++)
Rectangle(hdc, x * cxBlock, y * cyBlock,
(x + 1) * cxBlock, (y + 1) * cyBlock);
MoveToEx(hdc, x * cxBlock, y * cyBlock, NULL);
LineTo(hdc, (x + 1) * cxBlock, (y + 1) * cyBlock);
/+
+ Copyright (c) Charles Petzold, 1998.
+ Ported to the D Programming Language by Andrej Mitrovic, 2011.
+/
case SB_LINEDOWN:
si.nPos += 1;
case SB_PAGEDOWN:
si.nPos += si.nPage;
iAccumDelta += cast(short) HIWORD(wParam); // 120 or -120
SendMessage(hwnd, WM_VSCROLL, SB_LINEDOWN, 0);
iAccumDelta += iDeltaPerLine;
// Find painting limits
iPaintStart = max(0, iVertPos + ps.rcPaint.top / cyChar);
iPaintEnd = min(sysMetrics.length - 1, iVertPos + ps.rcPaint.bottom / cyChar);
/+
+ Copyright (c) Charles Petzold, 1998.
+ Ported to the D Programming Language by Andrej Mitrovic, 2011.
+/
case VK_DOWN:
y++;
case VK_RIGHT:
x++;
x = (x + DIVISIONS) % DIVISIONS; // if #id is off screen, reset it to the next position
y = (y + DIVISIONS) % DIVISIONS;
point.x = (x * cxBlock) + (cxBlock / 2); // set location to center of block #id
point.y = (y * cyBlock) + (cyBlock / 2);
/+
+ Copyright (c) Charles Petzold, 1998.
+ Ported to the D Programming Language by Andrej Mitrovic, 2011.
+/
// Allocate memory for possibly converted string
pConv = cast(typeof(pConv))GC.malloc(iFileLength + 2);
// Allocate memory for possibly converted string.
pConv = cast(typeof(pConv))GC.malloc(2 * iFileLength + 2);
// If the edit control is Unicode, convert ASCII text.
MultiByteToWideChar(CP_ACP, 0, cast(char*)pText, -1, cast(PTSTR)pConv, iFileLength + 1);
iLength = GetWindowTextLength(hwndEdit);
pstrBuffer = cast(PTSTR)GC.malloc((iLength + 1) * TCHAR.sizeof);
// Get the edit buffer and write that out to the file.
GetWindowText(hwndEdit, pstrBuffer, iLength + 1);
/+
+ Copyright (c) Charles Petzold, 1998.
+ Ported to the D Programming Language by Andrej Mitrovic, 2011.
+/
/+
+ Note: I still haven't been able to get the device name out of a menu handle,
+ it throws on access. If you know of a workaround please submit a fix. Thanks.
+/
cxChar = tm.tmAveCharWidth;
cyChar = tm.tmHeight + tm.tmExternalLeading;
for (i = 0; i < dwReturned; i++)
{
/+
+ Copyright (c) Charles Petzold, 1998.
+ Ported to the D Programming Language by Andrej Mitrovic, 2011.
+/
/+
+ Warning: This app keeps running in the background after exit.
+ Probably something to do with WaitForSingleObject.
+
+/
for (i = 0; i < REP && params.bContinue; i++)
A = tan(atan(exp(log(sqrt(A * A))))) + 1.0;
/+
+ Copyright (c) Charles Petzold, 1998.
+ Ported to the D Programming Language by Andrej Mitrovic, 2011.
+/
/+
+ The code sample assumes the text resource is ASCII.
+ A safer option is to use the import() expression
+ or a module ctor for loading text resources.
+/
cxChar = tm.tmAveCharWidth;
cyChar = tm.tmHeight + tm.tmExternalLeading;
case SB_LINEDOWN:
iPosition += 1;
/+
+ Copyright Andrej Mitrovic 2011.
+ Distributed under the Boost Software License, Version 1.0.
+ (See accompanying file LICENSE_1_0.txt or copy at
+ http://www.boost.org/LICENSE_1_0.txt)
+
+ Demonstrates using Cartesian coordinates which has
+ the Y axis positive values towards the top compared to GDI.
+
+ More info found here:
+ http://www.functionx.com/visualc/gdi/gdicoord.htm
+/
/+
+ Copyright Andrej Mitrovic 2011.
+ Distributed under the Boost Software License, Version 1.0.
+ (See accompanying file LICENSE_1_0.txt or copy at
+ http://www.boost.org/LICENSE_1_0.txt)
+
+ Demonstrates alpha-blending.
+/
rect.left += 10;
rect.top += 10;
rect.right -= 10;
// set all pixels to blue and set source alpha to zero
for (y = 0; y < ulBitmapHeight; y++)
for (x = 0; x < ulBitmapWidth; x++)
/+
+ Copyright Andrej Mitrovic 2011.
+ Distributed under the Boost Software License, Version 1.0.
+ (See accompanying file LICENSE_1_0.txt or copy at
+ http://www.boost.org/LICENSE_1_0.txt)
+
+ Demonstrates a simple double-buffer drawing mechanism.
+ Basically you do all the drawing in a backbuffer and
+ then blit that to the screen when you're done.
+
+ Some good info about avoiding flicker can be found here:
+ http://www.catch22.net/tuts/flicker
+
+ Also see various codeproject.com C/C++ helper libraries
+ and articles that have anti-flicker code.
/+
+ Copyright (c) Charles Petzold, 1998.
+ Ported to the D Programming Language by Andrej Mitrovic, 2011.
+/
cxTotal = 2 * (cxRadius + cxMove);
cyTotal = 2 * (cyRadius + cyMove);
SelectObject(hdcMem, hBitmap);
Rectangle(hdcMem, -1, -1, cxTotal + 1, cyTotal + 1);
xCenter += cxMove;
yCenter += cyMove;
if ((xCenter + cxRadius >= cxClient) || (xCenter - cxRadius <= 0))
/+
+ Copyright (c) Charles Petzold, 1998.
+ Ported to the D Programming Language by Andrej Mitrovic, 2011.
+/
// Rectangle surrounding entire pen (with adjustment)
Rectangle(hdc, iAdj, iAdj, cx + iAdj + 1, cy + iAdj + 1);
// Display numbers
for (i = 1; i <= 5; i++)
{
ch = cast(TCHAR)(i + '0');
rect.left = (cxArea - cxImage) / 2;
rect.right = (cxArea + cxImage) / 2;
rect.top = (cyArea - cyImage) / 2;
rect.bottom = (cyArea + cyImage) / 2;
/+
+ Copyright (c) Charles Petzold, 1998.
+ Ported to the D Programming Language by Andrej Mitrovic, 2011.
+/
// Rectangle surrounding entire pen (with adjustment)
Rectangle(hdc, iAdj, iAdj, cx + iAdj + 1, cy + iAdj + 1);
// Tick marks
for (i = 1; i < 96; i++)
for (i = 1; i <= 5; i++)
{
rect.left = (pt.x - cxImage) / 2;
rect.top = (pt.y + cyImage) / 2;
rect.right = (pt.x + cxImage) / 2;
rect.bottom = (pt.y - cyImage) / 2;
/+
+ Copyright (c) Charles Petzold, 1998.
+ Ported to the D Programming Language by Andrej Mitrovic, 2011.
+/
// Rectangle surrounding entire pen (with adjustment)
Rectangle(hdc, iAdj, iAdj, cx + iAdj + 1, cy + iAdj + 1);
// Tick marks
for (i = 1; i < 96; i++)
for (i = 1; i <= 5; i++)
{
rect.left = (pt.x - cxImage) / 2;
rect.top = (pt.y + cyImage) / 2;
rect.right = (pt.x + cxImage) / 2;
rect.bottom = (pt.y - cyImage) / 2;
/+
+ Copyright (c) Charles Petzold, 1998.
+ Ported to the D Programming Language by Andrej Mitrovic, 2011.
+/
iLength = GetEnhMetaFileDescription(hemf, 0, NULL);
pBuffer = cast(typeof(pBuffer))GC.malloc((iLength + 256) * TCHAR.sizeof);
i += wsprintf(pBuffer + i,
i += wsprintf(pBuffer + i,
{
i += wsprintf(pBuffer + i, "Description = ");
GetEnhMetaFileDescription(hemf, iLength, pBuffer + i);
pBuffer [lstrlen(pBuffer)] = '\t';
/+
+ Copyright (c) Charles Petzold, 1998.
+ Ported to the D Programming Language by Andrej Mitrovic, 2011.
+/
// Rectangle surrounding entire pen (with adjustment)
Rectangle(hdc, iAdj, iAdj, cx + iAdj + 1, cy + iAdj + 1);
// Tick marks
for (i = 1; i < 96; i++)
{
ch = cast(TCHAR)(i + '0');
rect.left = (cxArea - cxImage) / 2;
rect.right = (cxArea + cxImage) / 2;
rect.top = (cyArea - cyImage) / 2;
rect.bottom = (cyArea + cyImage) / 2;