FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Some nice looking sample dialogs code
Marc Venken
Posts: 1487
Joined: Tue Jun 14, 2016 07:51 AM

Some nice looking sample dialogs code

Posted: Fri Jun 01, 2018 02:09 PM
Hello,

Folowing the forum, there are sometimes posts that show very nice looking dialogs, buttons, xbrowses, ....

Is it possible for some of them to be show in this topic with the code to generate them ?

I hav NO intension of copying dialogs for any project !! I only want to see how you do it in order to facelift my own program.



You see why :-) :-)
Marc Venken

Using: FWH 23.08 with Harbour
Rick Lipkin
Posts: 2706
Joined: Fri Oct 07, 2005 01:50 PM

Re: Some nice looking sample dialogs code

Posted: Fri Jun 01, 2018 07:52 PM
Marc

Here is a screen shot of one of my WorkOrder Invoicing modules .. there is about 6 thousand lines of code and there is no way it would fit in this message .. I have included the .rc file for your review .. send me an email to r2.1955@live.com and I will share the code with you ..



Save the code below to a file named WorkView.Rc

Code (fw): Select all Collapse
// Generated by ResEdit 1.6.6
// Copyright (C) 2006-2015
// <!-- m --><a class="postlink" href="http://www.resedit.net">http://www.resedit.net</a><!-- m -->

#include <windows.h>
#include <commctrl.h>
// include <richedit.h>
#include "resource.h"

WORKVIEW DIALOG 12, 11, 636, 364
STYLE WS_CHILD
FONT 6, "MS Sans Serif"
{
 COMBOBOX 135, 96, 56, 53, 105, CBS_DROPDOWNLIST | WS_TABSTOP
 EDITTEXT 137, 299, 6, 82, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
 EDITTEXT 139, 299, 22, 82, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
 EDITTEXT 142, 299, 38, 82, 12, ES_AUTOHSCROLL | NOT WS_TABSTOP | WS_BORDER
 EDITTEXT 144, 299, 55, 82, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
 EDITTEXT 160, 516, 6, 82, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
 EDITTEXT 162, 516, 22, 82, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
 CONTROL "", 164, "SysDateTimePick32", 2 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 516, 37, 83, 13
 EDITTEXT 151, 516, 53, 82, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP
 COMBOBOX 127, 96, 6, 73, 72, CBS_DROPDOWNLIST | WS_TABSTOP
 COMBOBOX 131, 96, 23, 73, 71, CBS_DROPDOWNLIST | WS_TABSTOP
 CONTROL "Add Detail", 145, "TBtnBmp", 32 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 88, 83, 41, 49
 CONTROL "Close", 140, "TBtnBmp", 32 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 577, 83, 41, 49
 CONTROL "Work Order Detail", 172, "TXBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 83, 143, 542, 208
 GROUPBOX "", 197, 83, 76, 542, 62, BS_GROUPBOX
 LTEXT "Technician", 129, 6, 6, 84, 11, SS_NOPREFIX | WS_GROUP
 CONTROL "Lookup Parts", 147, "TBtnBmp", 32 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 178, 83, 41, 49
 CONTROL "Customer Complaints", 149, "TBtnBmp", 32 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 370, 83, 82, 15
 CONTROL "Scrap Line", 150, "TBtnBmp", 32 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 285, 83, 82, 15
 CONTROL "Review Shop Notes", 152, "TBtnBmp", 32 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 370, 100, 82, 15
 CONTROL "Restock Line", 153, "TBtnBmp", 32 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 285, 100, 82, 15
 CONTROL "Invoice Repair", 158, "TBtnBmp", 32 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 469, 83, 41, 49
 LTEXT "Location", 130, 6, 23, 84, 11, SS_NOPREFIX | WS_GROUP
 LTEXT "Date Completed", 132, 6, 40, 84, 11, SS_NOPREFIX | WS_GROUP
 LTEXT "Trips / Attempts", 134, 6, 56, 84, 11, SS_NOPREFIX | WS_GROUP
 LTEXT "Customer PO", 136, 214, 6, 81, 11, SS_NOPREFIX | WS_GROUP
 LTEXT "Extended Contract", 138, 214, 22, 81, 11, SS_NOPREFIX | WS_GROUP
 LTEXT "Warranty Type", 141, 214, 39, 81, 11, SS_NOPREFIX | WS_GROUP
 LTEXT "Tracking Number", 143, 214, 55, 81, 11, SS_NOPREFIX | WS_GROUP
 LTEXT "Model Number", 159, 431, 7, 81, 12, SS_NOPREFIX | WS_GROUP
 LTEXT "Serial Number", 161, 431, 23, 81, 12, SS_NOPREFIX | WS_GROUP
 LTEXT "Date Purchased", 163, 431, 39, 81, 12, SS_NOPREFIX | WS_GROUP
 LTEXT "Parts", 169, 5, 274, 30, 11, SS_NOPREFIX | WS_GROUP
 EDITTEXT 170, 38, 273, 39, 12, ES_RIGHT | ES_AUTOHSCROLL | NOT WS_TABSTOP | WS_BORDER
 LTEXT "Labor", 171, 5, 288, 30, 11, SS_NOPREFIX | WS_GROUP
 EDITTEXT 173, 38, 287, 39, 12, ES_RIGHT | ES_AUTOHSCROLL | NOT WS_TABSTOP | WS_BORDER
 LTEXT "Misc", 174, 5, 302, 30, 11, SS_NOPREFIX | WS_GROUP
 EDITTEXT 175, 38, 301, 39, 12, ES_RIGHT | ES_AUTOHSCROLL | NOT WS_TABSTOP | WS_BORDER
 LTEXT "Tax", 176, 5, 316, 30, 11, SS_NOPREFIX | WS_GROUP
 EDITTEXT 177, 38, 315, 39, 12, ES_RIGHT | ES_AUTOHSCROLL | NOT WS_TABSTOP | WS_BORDER
 CONTROL "Cancel", 178, "TBtnBmp", 32 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 531, 83, 41, 49
 LTEXT "Total", 179, 5, 338, 30, 11, SS_NOPREFIX | WS_GROUP
 LTEXT "Pre-Approved Repair Limit", 181, 4, 217, 72, 21, SS_NOPREFIX | WS_GROUP
 EDITTEXT 182, 4, 240, 39, 12, ES_RIGHT | ES_AUTOHSCROLL | NOT WS_TABSTOP | WS_DISABLED | WS_BORDER
 EDITTEXT 183, 38, 336, 39, 12, ES_RIGHT | ES_AUTOHSCROLL | NOT WS_TABSTOP | WS_BORDER
 GROUPBOX "", 198, 3, -2, 622, 79, BS_GROUPBOX
 GROUPBOX "", 200, 1, 139, 79, 214, BS_GROUPBOX
 CONTROL "Timer", 168, "STATIC", SS_NOPREFIX | WS_GROUP, 5, 80, 23, 11
 EDITTEXT 184, 32, 80, 49, 12, ES_AUTOHSCROLL | NOT WS_TABSTOP | WS_BORDER
 CONTROL "", 128, "SysDateTimePick32", 2 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 96, 38, 73, 13
 LTEXT "Non Taxable this Sale", 133, 4, 190, 54, 21, SS_NOPREFIX | WS_GROUP
 CHECKBOX "", 167, 67, 191, 8, 8, BS_AUTOCHECKBOX | WS_TABSTOP
 LTEXT "-------------------------------------------------", 185, 5, 327, 72, 6, SS_NOPREFIX | WS_GROUP
 CONTROL "Cancel Unsaved ", 186, "TBtnBmp", 32 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 222, 83, 41, 49
 COMBOBOX 187, 4, 172, 55, 32, CBS_DROPDOWNLIST | WS_TABSTOP
 LTEXT "Tax Set", 146, 4, 160, 55, 11, SS_NOPREFIX | WS_GROUP
 CONTROL "", 180, "TBtnBmp", 32 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 4, 95, 49, 42
 CONTROL "Review Product Ids", 148, "TBtnBmp", 32 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 370, 117, 82, 15
 LTEXT "Request Type", 154, 431, 54, 81, 12, SS_NOPREFIX | WS_GROUP
 CONTROL "Return Item", 155, "TBtnBmp", 32 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 133, 83, 41, 49
}


Rick Lipkin
Marc Venken
Posts: 1487
Joined: Tue Jun 14, 2016 07:51 AM

Re: Some nice looking sample dialogs code

Posted: Fri Jun 01, 2018 08:06 PM

Thanks Rick,

Mail send.

Marc Venken

Using: FWH 23.08 with Harbour

Continue the discussion

Static archive · New replies & topics via GitHub Discussions