Some nice looking sample dialogs code

Some nice looking sample dialogs code

Postby Marc Venken » Fri Jun 01, 2018 2: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.

Image

You see why :wink: :wink:
Marc Venken
Using: FWH 23.04 with Harbour
User avatar
Marc Venken
 
Posts: 1447
Joined: Tue Jun 14, 2016 7:51 am
Location: Belgium

Re: Some nice looking sample dialogs code

Postby Rick Lipkin » Fri Jun 01, 2018 7: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 ..

Image

Save the code below to a file named WorkView.Rc

Code: Select all  Expand view  RUN

// Generated by ResEdit 1.6.6
// Copyright (C) 2006-2015
// http://www.resedit.net

#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
User avatar
Rick Lipkin
 
Posts: 2666
Joined: Fri Oct 07, 2005 1:50 pm
Location: Columbia, South Carolina USA

Re: Some nice looking sample dialogs code

Postby Marc Venken » Fri Jun 01, 2018 8:06 pm

Thanks Rick,

Mail send.
User avatar
Marc Venken
 
Posts: 1447
Joined: Tue Jun 14, 2016 7:51 am
Location: Belgium


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 49 guests