Borland Resource Workshop en 32 bits. Ter que aprender tudo de novo, é o que me dá uma preguiça... kkkk
http://forums.fivetechsupport.com/viewt ... =6&t=38437
Abs.
Moderador: Moderadores
Kapiaba escreveu:Borland Resource Workshop en 32 bits. Ter que aprender tudo de novo, é o que me dá uma preguiça... kkkk
Kapiaba escreveu:Saída é manter uma máquina com windows de 32 bits.
nStyle := DS_SETFONT + WIN_WS_VISIBLE + WIN_WS_POPUP + WIN_WS_CAPTION + WIN_WS_SYSMENU + WIN_WS_THICKFRAME + WIN_WS_MINIMIZEBOX
aDlg := wvt_MakeDlgTemplate( 1, 4, 21, 60, { 0, 0, 0, 0 }, ;
"Dialog First [ " + hb_ntos( nInfo ) + " ] " + ;
iif( nInfo % 2 == 0, "Modeless", "Modal" ), " Dialog !", nStyle )
// Multi line edit control
nStyle := WIN_WS_CHILD + WIN_WS_VISIBLE + WIN_WS_TABSTOP + ES_AUTOVSCROLL + ES_MULTILINE + ;
ES_WANTRETURN + WIN_WS_BORDER + WIN_WS_VSCROLL
aDlg := wvt_AddDlgItem( aDlg, 1, 2, 15, 35, {}, ID_MLE , "EDIT" , nStyle, /* cText, nHelpId, nExStyle */ )
// Two horizontal and vertical lines
nStyle := WIN_WS_CHILD + WIN_WS_VISIBLE + SS_ETCHEDVERT
aDlg := wvt_AddDlgItem( aDlg, 1, 39, 16, 1, {}, 111 , "STATIC" , nStyle )
nStyle := WIN_WS_CHILD + WIN_WS_VISIBLE + SS_ETCHEDHORZ
aDlg := wvt_AddDlgItem( aDlg, 17, 2, 1, 56, {}, 112 , "STATIC" , nStyle )
// Icon
nStyle := WIN_WS_CHILD + WIN_WS_VISIBLE + SS_ICON //+ SS_CENTERIMAGE
aDlg := wvt_AddDlgItem( aDlg, 18, 2, 2, 6, {}, ID_ICO_VOUCH , "STATIC" , nStyle, "" )
#if 0
// Bitmap
nStyle := WIN_WS_CHILD + WIN_WS_VISIBLE + SS_BITMAP + SS_REALSIZEIMAGE
aDlg := wvt_AddDlgItem( aDlg, 18, 41, 2,8, { -3, 0, 3 }, ID_STA_IMAGE, "STATIC" , nStyle, "" )
#endif
nStyle := WIN_WS_CHILD + WIN_WS_VISIBLE + WIN_WS_TABSTOP + BS_AUTOCHECKBOX
aDlg := wvt_AddDlgItem( aDlg, 18, 15, 1, 10, {}, ID_CHK_SATIS , "BUTTON" , nStyle, "Satisfied?" )
nStyle := WIN_WS_CHILD + WIN_WS_VISIBLE + WIN_WS_TABSTOP + ES_RIGHT + ES_READONLY
aDlg := wvt_AddDlgItem( aDlg, 18, 30, 1, 7, { 3 }, ID_EDT_TIME , "EDIT" , nStyle, "" )
nStyle := WIN_WS_CHILD + WIN_WS_VISIBLE + WIN_WS_TABSTOP + LBS_NOTIFY + WIN_WS_VSCROLL + WIN_WS_BORDER
aDlg := wvt_AddDlgItem( aDlg, 1, 41, 4, 17, {}, ID_LST_LIST , "LISTBOX", nStyle, "ListBox" )
nStyle := WIN_WS_CHILD + WIN_WS_VISIBLE + SS_LEFT
aDlg := wvt_AddDlgItem( aDlg, 4, 41, 1, 17, { 3, 0, 0, 0 }, -1 , "STATIC" , nStyle, "Degree" )
nStyle := WIN_WS_VISIBLE + WIN_WS_TABSTOP + CBS_DROPDOWNLIST + WIN_WS_BORDER + WIN_WS_VSCROLL
aDlg := wvt_AddDlgItem( aDlg, 5, 41, 6, 17, {}, ID_CMB_COMBO , "COMBOBOX" , nStyle, "Combo" )
nStyle := WIN_WS_CHILD + WIN_WS_VISIBLE + WIN_WS_TABSTOP + BS_GROUPBOX
aDlg := wvt_AddDlgItem( aDlg, 7, 41, 4, 17, { 0, 0, 4, 0 }, ID_GRP_COMP, "BUTTON" , nStyle, "Compiler" )
nStyle := WIN_WS_CHILD + WIN_WS_VISIBLE + WIN_WS_TABSTOP + BS_AUTORADIOBUTTON
aDlg := wvt_AddDlgItem( aDlg, 8, 43, 1, 14, {}, ID_RDO_XH , "BUTTON" , nStyle, "Harbour" )
aDlg := wvt_AddDlgItem( aDlg, 9, 43, 1, 14, {}, ID_RDO_CLIP , "BUTTON" , nStyle, "Cl*pper" )
aDlg := wvt_AddDlgItem( aDlg, 10, 43, 1, 14, {}, ID_RDO_XBASE , "BUTTON" , nStyle, "Xbase++" )
nStyle := WIN_WS_CHILD + WIN_WS_VISIBLE + SS_LEFT
aDlg := wvt_AddDlgItem( aDlg, 12, 41, 1, 17, { 3, 0, 0, 0 }, ID_STA_TEXT, "STATIC" , nStyle, "Scrollable Text" )
nStyle := WIN_WS_CHILD + WIN_WS_VISIBLE + WIN_WS_TABSTOP + ES_AUTOHSCROLL + WIN_WS_BORDER
aDlg := wvt_AddDlgItem( aDlg, 13, 41, 1, 17, {}, ID_EDT_TEXT , "EDIT" , nStyle, "This is Text Field" )
nStyle := WIN_WS_CHILD + WIN_WS_VISIBLE + SS_LEFT
aDlg := wvt_AddDlgItem( aDlg, 14, 41, 1, 17, { 3, 0, 0, 0 }, -1, "STATIC" , nStyle, "Right Justified Numerics" )
nStyle := WIN_WS_CHILD + WIN_WS_VISIBLE + WIN_WS_TABSTOP + ES_AUTOHSCROLL + ES_NUMBER + ES_RIGHT + WIN_WS_BORDER
aDlg := wvt_AddDlgItem( aDlg, 15, 41, 1, 17, {}, ID_EDT_NUMB , "EDIT" , nStyle, "1234567" )
nStyle := WIN_WS_CHILD + WIN_WS_VISIBLE + WIN_WS_TABSTOP + BS_PUSHBUTTON
aDlg := wvt_AddDlgItem( aDlg, 18, 50, 1, 8, { -3, 0, 3, 0 }, ID_BTN_OK, "BUTTON" , nStyle, "OK" )
hMenu := wapi_CreateMenu()
wapi_AppendMenu( hMenu, WIN_MF_STRING + WIN_MF_ENABLED, ID_MNU_FILE , "File" )
wapi_AppendMenu( hMenu, WIN_MF_STRING + WIN_MF_ENABLED, ID_MNU_CONTROL, "Controls" )
lOnTop := .F.
cDlgIcon := "v_notes.ico"
#if 0
nTimerTicks := 1000 // 1 second
#else
nTimerTicks := NIL
#endif
IF nInfo == 2
// Modal Dialog
hDlg := wvt_DialogBox( aDlg, @DynDlgProc(), hb_gtInfo( HB_GTI_WINHANDLE ) )
ELSE
// Modeless Dialog
hDlg := wvt_CreateDialog( aDlg, lOnTop, @DynDlgProc(), cDlgIcon, nTimerTicks, hMenu )
ENDIF
RETURN hDlg
REINDEXAR DIALOG 67, 30, 270, 270
STYLE DS_ABSALIGN | DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION
CAPTION "PLENOIND: Reindexar/Organizar Bancos de Dados-Obrigatório Desativar os Terminais."
FONT 10, "MS Serif"
{
CONTROL "TMeterex", 50, "TMeterex", 0 | WS_CHILD | WS_VISIBLE, 69, 26, 190, 10
CONTROL "TMeterex", 51, "TMeterex", 0 | WS_CHILD | WS_VISIBLE, 69, 37, 190, 10
CONTROL "TMeterex", 52, "TMeterex", 0 | WS_CHILD | WS_VISIBLE, 69, 48, 190, 10
CONTROL "TMeterex", 53, "TMeterex", 0 | WS_CHILD | WS_VISIBLE, 69, 59, 190, 10
CONTROL "TMeterex", 54, "TMeterex", 0 | WS_CHILD | WS_VISIBLE, 69, 70, 190, 10
CONTROL "TMeterex", 55, "TMeterex", 0 | WS_CHILD | WS_VISIBLE, 69, 81, 190, 10
PUSHBUTTON "&Indexar", 701, 94, 250, 40, 14
PUSHBUTTON "&Saida", 702, 136, 250, 40, 14
GROUPBOX "Indexação Geral dos Bancos de Dados - Feche Outros Programas de Orçamentos", 501, 5, 15, 260, 79, BS_GROUPBOX | BS_LEFTTEXT
AUTOCHECKBOX " Reindexar: Reorganizar Arquivos - <Click> Abaixo Para:", 20, 26, 99, 240, 12, BS_AUTOCHECKBOX | WS_GROUP | WS_TABSTOP
AUTOCHECKBOX " Apagar/Excluir Registros Deletados nos Bancos de Dados.", 21, 26, 113, 240, 12, BS_AUTOCHECKBOX | WS_GROUP | WS_TABSTOP
CONTROL "TBitMap", 23, "TBitMap", WS_CHILD | WS_VISIBLE, 47, 145, 176, 40
CONTROL "DSAY", 801, "TDSay", 0 | WS_CHILD | WS_VISIBLE, -2, 3, 273, 10
RTEXT "Orçamentos:", 401, 10, 26, 56, 10, SS_RIGHT | NOT WS_GROUP
RTEXT "Compras:", 402, 10, 37, 56, 10, SS_RIGHT | NOT WS_GROUP
RTEXT "Aguardando:", 403, 10, 48, 56, 10, SS_RIGHT | NOT WS_GROUP
RTEXT "Aguardando:", 404, 10, 59, 56, 10, SS_RIGHT | NOT WS_GROUP
RTEXT "Aguardando:", 405, 10, 70, 56, 10, SS_RIGHT | NOT WS_GROUP
RTEXT "Aguardando:", 406, 10, 81, 56, 10, SS_RIGHT | NOT WS_GROUP
CONTROL "TBitMap", 110, "TBitMap", WS_CHILD | WS_VISIBLE, 7, 145, 30, 40
LTEXT "Indexar Arquivos:->", 420, 5, 250, 80, 12, NOT WS_GROUP
CTEXT "FAÇA BACKUP DIÁRIO.", 419, 1, 208, 268, 28, SS_CENTER | NOT WS_GROUP
CONTROL "TBitMap", 24, "TBitMap", WS_CHILD | WS_VISIBLE, 235, 145, 30, 40
CTEXT "Feche Outros Programas Antes de Indexar os Bancos de Dados.", 421, 0, 132, 270, 12, SS_CENTER | NOT WS_GROUP
}
Kapiaba escreveu:Recursos criados no workshop.exe, não nos limita em nada, pois basta editar o recurso e informar à ele, qual é o nome do novo componente que a FiveTech criou em uma nova classe por exemplo. Não existe nada que nos limite na criação dos formulários/dialogos/componentes.
Voltando aos arquivos rc... o hbmk2 gerencia também os RCs.
É passar a lista e ele se vira.
Talvez te facilitasse a compilação, e a manutenção.
hbmk2 *.prg *.rc *.res
Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes