Folder MyApp
+ Folder source
+ Folder include
+ Folder lib (if you are using third party libs)
+ Folder obj (to place the resulting C and OBJs)
+ Folder resources
... + rc file (one or more)
... + bitmaps
... + icons
... + cursors
go.bat (a batch file to run the project building)
MyApp.hbp (hbmk2 Harbour project file)
-hbexe
-oprestamos32g
-workdir=obj\
-compr
-info
-inc
-trace
-static
-fullstatic
-strip
-jobs=%NUMBER_OF_PROCESSORS%
-beep
-run
#-cflag=-DNTDDI_VERSION=NTDDI_WIN7 -D_WIN32_WINNT=_WIN32_WINNT_WIN7
-ldflag+=-Wl,--allow-multiple-definition
-prgflag=/n /gc2 /w0 /es2 /v /q0 /kmo /d__DEV__;__EDITAR_REPORTE2__
-resflag=-D__FLAT__
#-nodefgt
-gtgui
-id:\fwh\include
-id:\fwh\include2
-iinclude
-Ld:\fwh\lib
-lpatch
-lfiveh
-lfivehc
-llibmysql
-lhbtmysql
-lgdiplus -lversion
-lodbc32 -lsetupapi -lpsapi
-lopengl32 -loledlg -lmfcuia32 -lwin32k -lvfw32 -lstdc++ -lwsock32 -lurlmon
source\prestamos.prg
source\prestamos_acercade.prg
source\prestamos_conectar.prg
source\prestamos_acceso.prg
source\prestamos_menu.prg
source\prestamos_contadores.prg
source\prestamos_feriados.prg
source\prestamos_rutas.prg
source\prestamos_usuarios.prg
source\prestamos_clientes.prg
source\prestamos_cobradores.prg
source\prestamos_cat.prg
source\prestamos_nuevo.prg
source\prestamos_pagos.prg
source\prestamos_ajustes.prg
source\prestamos_ver.prg
source\prestamos_mora.prg
source\prestamos_cobranza.prg
source\prestamos_cierrecobro.prg
source\prestamos_respaldo.prg
source\prestamos_reportes.prg
source\fun_extenciones.prg
source\fun_msgget.prg
source\fun_showerror.prg
source\fun_visor.prg
source\fun_varias.prg
source\fwsrc\tmytitle.prg
source\fwsrc\rpreview.prg
source\fwsrc\msgrun.prg
source\fwsrc\msglist.prg
resource\prestamos.rc
#hbxpp.hbc
xhb.hbc
hbwin.hbc
hbct.hbc
hbmzip.hbc
hbziparc.hbc
#hbfoxpro.hbc
hbmisc.hbc
@echo off
set olpath=%path%
set path=%path%;d:\compiler\mingw\bin;d:\compiler\harbour\bin
hbmk2 prestamos32.hbp
set path=%olpath%
pause
DEFINE DIALOG oDlg ;
RESOURCE "NACHFASSEN" ;
TITLE Setup():PrgPath + "CRM-Mail in 4 Schritten" ;
BRUSH Setup():oBrushBlau ;
FONT Setup():oFntMedium ;
ICON oIco ;
TRANSPARENT
NACHFASSEN DIALOG DISCARDABLE 17, 36, 703, 348
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Betreuungsemail in 4 Schritten"
FONT 10, "Segoe UI"
{
CONTROL "1. Abfrage ausw�hlen ", 30, "Button", BS_GROUPBOX, 8, 4, 384, 124
CONTROL "", 101, "TXBrowse", WS_TABSTOP|0x00300000, 4, 164, 444, 174
CONTROL "heute", 4001, "Static", WS_GROUP, 36, 44, 100, 8
CONTROL "", 4002, "ComboBox", WS_BORDER|CBS_DROPDOWN|CBS_SORT|WS_VSCROLL|WS_TABSTOP, 36, 20, 288, 40
CONTROL " 2. Anreise in:", 4003, "Static", WS_GROUP, 36, 76, 56, 8
CONTROL "", 4004, "ComboBox", WS_BORDER|CBS_DROPDOWN|CBS_SORT|WS_VSCROLL|WS_TABSTOP, 124, 76, 24, 40
CONTROL "Tagen", 4005, "Static", WS_GROUP, 152, 80, 24, 8
CONTROL "3. Abfrage starten", 4006, "Button", WS_TABSTOP, 204, 76, 108, 12
CONTROL " 4. Email abschicken", 4007, "Button", WS_TABSTOP, 540, 144, 108, 12
CONTROL "Treffer gesammelt nach Emailvorlagen", 4008, "Static", WS_GROUP, 432, 8, 144, 8
CONTROL "", 4009, "TXBrowse", WS_TABSTOP|0x00300000, 432, 20, 176, 104
CONTROL "Empf�ngerliste", 4010, "Static", WS_GROUP, 8, 152, 56, 8
CONTROL "Beenden", IDCANCEL, "Button", WS_TABSTOP, 540, 320, 108, 12
CONTROL "This is a label:", 4011, "Static", WS_GROUP, 32, 100, 104, 8
CONTROL "Anreisen insgesamt: davon mit dem ausgew�hlten Kennzeichen", 4012, "Static", WS_GROUP, 8, 140, 300, 8
CONTROL "2. Tage ausw�hlen", 4013, "Static", WS_GROUP, 16, 60, 164, 8
CONTROL "", 4014, "ComboBox", WS_BORDER|CBS_DROPDOWN|CBS_SORT|WS_VSCROLL|WS_TABSTOP, 204, 40, 180, 40
}
DEFINE DIALOG oDlg ;
RESOURCE "NACHFASSEN" ;
#include "FiveWin.ch"
function Main()
XBrowser( ChooseFont() )
return nil
Antonio Linares wrote:NACHFASSEN DIALOG DISCARDABLE ...
DISCARDABLE Ignored. In 16-bit Windows, the resource can be discarded if no longer needed.
NACHFASSEN DIALOG
Ruth wrote:but less words for cleanliness and readability is very useful for me...
#include "FiveWin.ch"
function Main()
local cFontName := "MyFontName"
if ! FW_CheckFont( cFontName )
MsgAlert( "Font not found: " + cFontName )
endif
return nil
Please let me know if you use Borland or Microsoft Visual Studio
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 55 guests