BOOL far _export GetColor(HWND ParentHandle, COLORREF _FAR & ColorBuffer)
{
PTWindowsObject AParentAlias;
TColorDialog *TheColorDialog;
AParentAlias = TheModule->GetParentObject(ParentHandle);
TheColorDialog= new TColorDialog (AParentAlias, ColorBuffer);
return (TheModule->ExecDialog(TheColorDialog) == IDOK);
}
BOOL far _export CreateDLLWindow(HWND ParentHWnd)
{
PTWindowsObject AParentAlias;
PTWindow TheWindow;
AParentAlias = DLLHelloLib->GetParentObject(ParentHWnd);
TheWindow = new TWindow(AParentAlias, "Hello from a DLL!", DLLHelloLib);
TheWindow->Attr.Style |= WS_POPUPWINDOW | WS_CAPTION | WS_THICKFRAME
| WS_MINIMIZEBOX | WS_MAXIMIZEBOX;
TheWindow->Attr.X = 100; TheWindow->Attr.Y = 100;
TheWindow->Attr.W = 300; TheWindow->Attr.H = 300;
return (DLLHelloLib->MakeWindow(TheWindow) == TheWindow);
}
