Faço isso usando a Bostaurus em qq janela, GT, HwGui ou Minigui Ex, se é que eu entendi, mas to boiandoJoséQuintas escreveu:Existe a opção de "salvar a tela" inteira em resource.
E existem editores de "tela" pra fazer isso.
Código: Selecionar todos
IDD_ABOUTDIALOG DIALOGEX 0, 0, 147, 67
STYLE DS_SETFONT | DS_MODALFRAME | DS_FIXEDSYS | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "About"
FONT 8, "MS Shell Dlg", 400, 0, 0x1
BEGIN
ICON IDI_APPICON,IDC_STATIC,7,7,20,20
LTEXT "Win32 Test application.",IDC_STATIC,34,7,86,8
LTEXT "©2013 Transmission Zero",IDC_STATIC,34,17,84,8
DEFPUSHBUTTON "OK",IDOK,90,46,50,14,WS_GROUP
END
Código: Selecionar todos
#include <windows.h>
ErrorDialog DIALOG 10, 10, 300, 110
STYLE WS_POPUP | WS_BORDER
CAPTION "Error!"
{
CTEXT "Select One:", 1, 10, 10, 280, 12
PUSHBUTTON "&Retry", 2, 75, 30, 60, 12
PUSHBUTTON "&Abort", 3, 75, 50, 60, 12
PUSHBUTTON "&Ignore", 4, 75, 80, 60, 12
}
Código: Selecionar todos
#include <windows.h>
ErrorDialog DIALOG 10, 10, 300, 110
STYLE WS_POPUP | WS_BORDER
CAPTION "Error!"
{
CTEXT "Select One:", 1, 10, 10, 280, 12
PUSHBUTTON "&Retry", 2, 75, 30, 60, 12
PUSHBUTTON "&Abort", 3, 75, 50, 60, 12
PUSHBUTTON "&Ignore", 4, 75, 80, 60, 12
}
Código: Selecionar todos
#include <windows.h>
ErrorDialog DIALOG 10, 10, 300, 110
STYLE WS_POPUP | WS_BORDER
CAPTION "Error!"
{
CTEXT "Select One:", 1, 10, 10, 280, 12
PUSHBUTTON "&Retry", 2, 75, 30, 60, 12
PUSHBUTTON "&Abort", 3, 75, 50, 60, 12
PUSHBUTTON "&Ignore", 4, 75, 80, 60, 12
}
#include <windows.h>
#include <commctrl.h>
#include <richedit.h>
LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US
101 DIALOGEX DISCARDABLE 6, 18, 210, 174
STYLE WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|DS_CENTER|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Sample Dialog (Windows API Demo With Harbour)"
FONT 8, "Segoe UI", 0, 0, 1
{
CONTROL "", 1003, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 8, 48, 192, 14
CONTROL "&Name:", 1002, "Static", WS_GROUP, 8, 36, 75, 10
CONTROL "Gender", 1008, "Button", BS_GROUPBOX, 8, 104, 76, 42
CONTROL "&Male", 1004, "Button", BS_AUTORADIOBUTTON, 20, 116, 47, 10
CONTROL "&Female", 1005, "Button", BS_AUTORADIOBUTTON, 20, 132, 44, 10
CONTROL "", 1006, "ComboBox", WS_BORDER|CBS_DROPDOWNLIST|CBS_SORT|CBS_HASSTRINGS|WS_VSCROLL|WS_TABSTOP, 8, 84, 192, 36
CONTROL "&Occupation:", 1008, "Static", WS_GROUP, 8, 72, 40, 8
CONTROL "Own a &car?", 1007, "Button", BS_AUTOCHECKBOX|WS_TABSTOP, 96, 116, 58, 10
CONTROL "Click me!", 4001, "Button", BS_DEFPUSHBUTTON|WS_TABSTOP, 8, 156, 84, 14
CONTROL "This example demonstrates how to work with some features of the native Windows API. The following function displays a dialog created with an external resource editor.", 4002, "Static", SS_CENTER|WS_GROUP, 4, 4, 204, 28
CONTROL "&Has children?", 4003, "Button", BS_AUTOCHECKBOX|WS_TABSTOP, 96, 132, 58, 10
}
Código: Selecionar todos
#define IDD_DIALOG2 104
wapi_DialogBoxParam( 0, IDD_DIALOG2, 0, @DialogFunc() )
FUNCTION DialogFunc( hWnd, nMessage, wParam, lParam, wPHigh, wPLow )
LOCAL cText
HB_SYMBOL_UNUSED( wParam )
HB_SYMBOL_UNUSED( lParam )
HB_SYMBOL_UNUSED( wPHigh )
SWITCH nMessage
CASE WM_INITDIALOG
wapi_SetDlgItemText( hWnd, IDC_STATIC1, "Hi! " + Time() )
wapi_SetDlgItemText( hWnd, IDC_EDIT1, "Harbour" )
wapi_ComboBox_AddString( wapi_GetDlgItem( hWnd, IDC_COMBO1 ), "Architect" )
wapi_ComboBox_AddString( wapi_GetDlgItem( hWnd, IDC_COMBO1 ), "Engineer" )
wapi_ComboBox_AddString( wapi_GetDlgItem( hWnd, IDC_COMBO1 ), "Project or Program Administrator" )
wapi_ComboBox_AddString( wapi_GetDlgItem( hWnd, IDC_COMBO1 ), "Software Designer" )
wapi_ComboBox_AddString( wapi_GetDlgItem( hWnd, IDC_COMBO1 ), "Other" )
wapi_SetFocus( hWnd, wapi_GetDlgItem( hWnd, IDC_EDIT1 ) )
RETURN .T.
CASE WM_CLOSE
wapi_EndDialog( hWnd, 3 )
RETURN .T.
CASE WM_COMMAND
SWITCH wPLow
CASE IDC_BUTTON1
cText := wapi_GetDlgItemText( hWnd, IDC_EDIT1 )
wapi_MessageBox( 0, "Hello [" + cText + "]!" + Chr( 13 ) + "How are you?", "Hi!", MB_ICONASTERISK )
RETURN .T.
ENDSWITCH
ENDSWITCH
RETURN .F.
Código: Selecionar todos
#include "D:\GERAL\HARBOUR\APP.RC"
IDI_APPICON ICON D:\GERAL\HARBOUR\HARBOUR.ICO
#define IDC_STATIC 103
#define IDD_ABOUTDIALOG 104
IDD_ABOUTDIALOG DIALOGEX 0, 0, 147, 67
STYLE DS_SETFONT | DS_MODALFRAME | DS_FIXEDSYS | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "About"
FONT 8, "MS Shell Dlg", 400, 0, 0x1
BEGIN
ICON IDI_APPICON,IDC_STATIC,7,7,20,20
LTEXT "Win32 Test application.",IDC_STATIC,34,7,86,8
LTEXT "©2013 Transmission Zero",IDC_STATIC,34,17,84,8
DEFPUSHBUTTON "OK",IDOK,90,46,50,14,WS_GROUP
END
LLVM/CLANG e MINGWJoséQuintas escreveu:E usou mingw?
Código: Selecionar todos
/**
* This file has no copyright assigned and is placed in the Public Domain.
* This file is part of the mingw-w64 runtime package.
* No warranty is given; refer to the file DISCLAIMER.PD within this package.
*/
#ifndef _AFXRES_H
#define _AFXRES_H
#if __GNUC__ >= 3
#pragma GCC system_header
#endif
#ifdef __cplusplus
extern "C" {
#endif
#ifndef _INC_WINDOWS
#include <windows.h>
#endif
/* IDC_STATIC is documented in winuser.h, but not defined. */
#ifndef IDC_STATIC
#define IDC_STATIC (-1)
#endif
#ifdef __cplusplus
}
#endif
#endif