/*
 * my_box_title.prg - Demo of WebX Classes
 * 
 * Demonstrates the new web-styled container and title bar controls
 * Compatible with Harbour/FiveWin Language* 
 * (c) MayaPOS 2026 - WebX Framework
 */

#include "WebX.ch"

FUNCTION Main()
    LOCAL oWnd
    LOCAL oTitle1, oTitle2, oTitle3
    LOCAL oBox1, oBox2, oBox3
    LOCAL oSay1, oSay2, oSay3, oSay4, oSay5, oSay6
    LOCAL oBtn1, oBtn2

// Create main window with light background 
DEFINE WINDOW oWnd ;
    TITLE "TMyBox and TMyTitle Demo - WebX Framework" ;
    SIZE 1200, 800

//--------------------------------------------------------------------------
// Page Title with Modern Gradient
//--------------------------------------------------------------------------
oTitle1 := TMyTitle():New( oWnd, 10, 20, 1160, 60, ;
    "WebX Framework - Modern UI Components", ;
    CLR_WHITE, ;                    // Text color
    nRGB( 65, 84, 241 ), ;         // Primary #4154f1
    nRGB( 44, 54, 135 ), ;         // Gradient end #2c3687
    NIL, ;                          // Style
    NIL, ;                          // Font
    .F., ;                          // Horizontal gradient
    .T., ;                          // Border
    nRGB( 65, 84, 241 ), ;         // Primary border #4154f1
    .F. )                           // Glass effect

//--------------------------------------------------------------------------
// Section 1: Info Box (Light Blue)
//--------------------------------------------------------------------------
oBox1 := TMyBox():New( oWnd, 90, 20, 360, 250, ;
    "Customer Information", ;
    CLR_WHITE, ;                       // Title text color
    nRGB( 64, 153, 255 ), ;           // Info #4099ff
    nRGB( 207, 244, 252 ) )           // Info light #cff4fc

@ 130, 40 SAY oSay1 PROMPT "Name: John Doe" SIZE 300 COLOR nRGB(66, 66, 66) TO oWnd
@ 160, 40 SAY oSay2 PROMPT "Email: john@example.com" SIZE 300 COLOR nRGB(66, 66, 66) TO oWnd
@ 190, 40 SAY oSay3 PROMPT "Phone: (555) 123-4567" SIZE 300 COLOR nRGB(66, 66, 66) TO oWnd
@ 220, 40 SAY PROMPT "Status: Active Customer" SIZE 300 COLOR nRGB(46, 202, 106) TO oWnd

//--------------------------------------------------------------------------
// Section 2: Success Box (Green)
//--------------------------------------------------------------------------
oBox2 := TMyBox():New( oWnd, 90, 400, 360, 250, ;
    "Sales Statistics", ;
    CLR_WHITE, ;                       // Title text color
    nRGB( 46, 202, 106 ), ;           // Success #2eca6a
    nRGB( 224, 248, 233 ) )           // Success light #e0f8e9

@ 130, 420 SAY PROMPT "Total Sales: $125,450" SIZE 300 COLOR nRGB(66, 66, 66) TO oWnd
@ 160, 420 SAY PROMPT "Orders: 342" SIZE 300 COLOR nRGB(66, 66, 66) TO oWnd
@ 190, 420 SAY PROMPT "Average: $366.81" SIZE 300 COLOR nRGB(66, 66, 66) TO oWnd
@ 220, 420 SAY PROMPT "Growth: +23.5%" SIZE 300 COLOR nRGB(46, 202, 106) TO oWnd

//--------------------------------------------------------------------------
// Section 3: Warning Box (Orange)
//--------------------------------------------------------------------------
oBox3 := TMyBox():New( oWnd, 90, 780, 400, 250, ;
    "Recent Notifications", ;
    CLR_WHITE, ;                       // Title text color
    nRGB( 255, 119, 29 ), ;           // Warning #ff771d
    nRGB( 255, 236, 223 ) )           // Warning light #ffecdf

@ 130, 800 SAY PROMPT "• New order received" SIZE 350 COLOR nRGB(66, 66, 66) TO oWnd
@ 160, 800 SAY PROMPT "• Payment processed" SIZE 350 COLOR nRGB(66, 66, 66) TO oWnd
@ 190, 800 SAY PROMPT "• Shipment dispatched" SIZE 350 COLOR nRGB(66, 66, 66) TO oWnd
@ 220, 800 SAY PROMPT "• Customer feedback received" SIZE 350 COLOR nRGB(66, 66, 66) TO oWnd

//--------------------------------------------------------------------------
// Secondary Title
//--------------------------------------------------------------------------
oTitle2 := TMyTitle():New( oWnd, 360, 20, 560, 60, ;
    "Information Panel", ;
    CLR_WHITE, ;
    nRGB( 1, 41, 112 ), ;          // Secondary #012970
    nRGB( 65, 84, 241 ), ;         // Primary #4154f1
    , , ;
    .F., ;                          // Horizontal gradient
    .T., ;
    nRGB( 1, 41, 112 ), ;          // Secondary border
    .F. )

@ 440, 40 SAY PROMPT "Dark to bright gradient" SIZE 500 COLOR nRGB(66, 66, 66) TO oWnd
@ 470, 40 SAY PROMPT "with semi-transparent appearance." SIZE 500 COLOR nRGB(66, 66, 66) TO oWnd

//--------------------------------------------------------------------------
// Danger Title (with glass effect)
//--------------------------------------------------------------------------
oTitle3 := TMyTitle():New( oWnd, 360, 600, 580, 60, ;
    "Reports & Analytics", ;
    CLR_WHITE, ;
    nRGB( 220, 53, 69 ), ;         // Danger #dc3545
    nRGB( 176, 42, 55 ), ;         // Darker danger
    , , ;
    .F., ;                          // Horizontal gradient
    .T., ;
    nRGB( 220, 53, 69 ), ;         // Danger border
    .T. )                           // Glass effect enabled

@ 440, 620 SAY PROMPT "Danger/alert color with glass effect" SIZE 500 COLOR nRGB(66, 66, 66) TO oWnd
@ 470, 620 SAY PROMPT "combining gradient and transparency." SIZE 500 COLOR nRGB(66, 66, 66) TO oWnd

//--------------------------------------------------------------------------
// Action Buttons (direct syntax - works now)
// @ BUTTON transpiler fix working but hits BUG #128 (goto label) in webx_mybox
//--------------------------------------------------------------------------
oBtn1 := TButton( 520, 20, "Refresh Data",, oWnd, 180, 40,, .T. )
oBtn2 := TButton( 520, 220, "Close Demo",, oWnd, 180, 40,, .T. )

//--------------------------------------------------------------------------
// Information Footer
//--------------------------------------------------------------------------
@ 580, 20 SAY PROMPT "TMyBox: Styled containers with colored title bars" ;
    SIZE 1100 COLOR nRGB( 117, 117, 117 ) TO oWnd

@ 610, 20 SAY PROMPT "TMyTitle: Gradient title bars with optional glass effects" ;
    SIZE 1100 COLOR nRGB( 117, 117, 117 ) TO oWnd

  // Activate window
ACTIVATE WINDOW oWnd

RETURN NIL

// EOF

/*
 * WebX POS Integrated Demo
 *
 * Layout Structure:
 * +======================================================+
 * |                   TITLE BAR (60px) [R]               |
 * +========================+=====================+========+
 * |    CATEGORIES (auto)[R]|                     |        |
 * +------------------------+   SHOPPING CART     |  POS   |
 * |                        |      (flex)         | ACTIONS|
 * |       PRODUCTS         |     280px [R]       |  80px  |
 * |        (flex)          |=====================|        |
 * |                        |  KEYPAD (280px) [R] |        |
 * +========================+=====================+========+
 *
 * [R] = Resizable panel (drag the divider line to resize)
 * === = Resizable divider (3D sunken line, highlights blue on hover)
 *
 * Data: Auto-loaded from DBF (categories.dbf, products.dbf)
 *       Database managed by admin panel
 *
 *==========================================================================
 * AJAX BRIDGE - Harbour-Style Server Calls (NEW!)
 *==========================================================================
 * Write your functions in THIS FILE - just like Harbour desktop apps!
 * Use WEBX_CALL() to call them from buttons. WebX handles the AJAX.
 *
 * STEP 1: Define your function (anywhere in this file):
 *   FUNCTION ProcessPayment( cMethod )
 *      // Your code here - runs on server
 *      RETURN "Payment processed: " + cMethod
 *
 * STEP 2: Call it from a button using WEBX_CALL():
 *   oActionButtons:AddButton("CASH", "ICON_MONEY", RGBA(16,185,129,1.0), ;
 *                            WEBX_CALL("ProcessPayment", "cash") )
 *
 * That's it! Just like calling a function in Harbour.
 * The result is shown to the user automatically.
 *==========================================================================
 */

#include "WebX.ch"

FUNCTION Main()
   LOCAL oWnd, oMainLayout, oContentLayout, oLeftLayout, oRightLayout, oRightInnerLayout
   LOCAL oTitle, oCategories, oProducts, oCart, oKeypad, oActions
   LOCAL oCatGrid, oProdGrid, oCartWidget, oNumPad, oTitleBar, oActionButtons

   // Set designed resolution
   PUBLIC Designed_Resolution := {1366, 768, .T.}

   // Define window
   DEFINE WINDOW oWnd TITLE "MayaPOS Premium - Integrated Demo"
   oWnd:lShowThemeWidget := .F.
   // 4px padding all sides, with container sized 8px smaller to stay centered
   oWnd:xContentPadding := 4

   //==========================================================================
   // MAIN LAYOUT: Title (60px, resizable) + Content (flex)
   //==========================================================================
   // Size reduced by 8px (4px padding each side) to stay centered
   oMainLayout := TLayout():New(oWnd, 0, 0, 1358, 760, "ROW")
   oMainLayout:AddRow("title", 60)    // Resizable by default (non-flex panel)
   oMainLayout:AddRow("content", 0)   // Flex panel - not resizable

   //==========================================================================
   // TITLE SECTION
   //==========================================================================
   oTitle := oMainLayout:GetSection("title")
   oTitle:cBackground := GRADIENT(BLUE_DARK)
   oTitle:xPadding := {15, 20, 15, 20}
   oTitle:cShadow := SHADOW(MEDIUM)

   oTitleBar := TPOSTitleBar():New(0, 0, oTitle)
   oTitleBar:cTitle := "MayaPOS Premium"
   oTitleBar:cSubtitle := "Point of Sale Terminal"
   oTitleBar:SetUser("Admin", "Manager")

   //==========================================================================
   // CONTENT: Left (flex) + Right (400px = 280 cart/keypad + 120 actions)
   //==========================================================================
   // Add 8px black border on left and bottom of content area
   oMainLayout:GetSection("content"):aBorderLeft := {8, RGBA(BLACK_PURE)}
   oMainLayout:GetSection("content"):aBorderBottom := {8, RGBA(BLACK_PURE)}

   oContentLayout := TLayout():New(oMainLayout:GetSection("content"), 0, 0, 0, 0, "COLUMN")
   oContentLayout:AddColumn("left", 0)
   // Right panel: 360px default (280+80), min 280px, max 30% of parent
   oContentLayout:AddColumn("right", 400, .F., "LEFT", "START", .T., 240, "30%")

   //==========================================================================
   // LEFT PANEL: Categories (auto, resizable) + Products (flex)
   //==========================================================================
   oLeftLayout := TLayout():New(oContentLayout:GetSection("left"), 0, 0, 0, 0, "ROW")
   oLeftLayout:AddRow("categories", -1)    // Auto-height, resizable by default
   oLeftLayout:AddRow("products", 0)       // Flex panel - not resizable

   // Categories section
   oCategories := oLeftLayout:GetSection("categories")
   oCategories:cBackground := RGBA(248, 250, 252, 1.0)
   oCategories:aBorder := {1, RGBA(226, 232, 240, 1.0), "solid"}
   oCategories:xPadding := 10
   oCategories:cShadow := SHADOW(SMALL)
   oCategories:nMinHeight := 80

   // Category grid (auto-loads from categories.dbf)
   oCatGrid := TPOSCategoryGrid():New(0, 0, NIL, NIL, NIL, oCategories, 6)

   // Products section
   oProducts := oLeftLayout:GetSection("products")
   oProducts:cBackground := RGBA(241, 245, 249, 1.0)
   oProducts:xPadding := 15

   // Product grid (auto-loads from products.dbf)
   oProdGrid := TPOSProductGrid():New(0, 0, NIL, NIL, NIL, oProducts, 5)
   oProdGrid:lShowStock := .T.
   oProdGrid:nLowStock := 5

   //==========================================================================
   // RIGHT PANEL: Cart/Keypad column (flex) + Actions column (80px)
   //==========================================================================
   oRightLayout := TLayout():New(oContentLayout:GetSection("right"), 0, 0, 0, 0, "COLUMN")
   oRightLayout:AddColumn("cartKeypad", 0)     // Flex - cart + keypad stacked
   oRightLayout:AddColumn("actions", 120, .F., "LEFT", "START", .F.)  // 120px, not resizable

   //==========================================================================
   // CART + KEYPAD INNER LAYOUT (stacked vertically)
   //==========================================================================
   oRightInnerLayout := TLayout():New(oRightLayout:GetSection("cartKeypad"), 0, 0, 0, 0, "ROW")
   oRightInnerLayout:AddRow("cart", 0)         // Flex - fills available space
   oRightInnerLayout:AddRow("keypad", 280)     // Fixed 280px

   // Cart section - clean white with DOS-style items list
   oCart := oRightInnerLayout:GetSection("cart")
   oCart:cBackground := RGBA(255, 255, 255, 0.98)
   oCart:aBorder := {1, RGBA(226, 232, 240, 1.0), "solid"}
   oCart:xPadding := 4
   oCart:cShadow := SHADOW(MEDIUM)

   // Cart widget
   oCartWidget := TPOSCart():New(0, 0, NIL, NIL, oCart)
   oCartWidget:lShowTax := .T.
   oCartWidget:lShowRemove := .T.

   // Keypad section
   oKeypad := oRightInnerLayout:GetSection("keypad")
   oKeypad:cBackground := GRADIENT(SLATE_DARK)
   oKeypad:xPadding := {8, 25, 8, 25}
   oKeypad:cShadow := SHADOW(LARGE)

   // Numeric keypad
   oNumPad := TPOSNumPad():New(0, 0, oKeypad, "posKeypadDisplay")
   oNumPad:cColorScheme := "slate"
   oNumPad:cTextSize := "xl"

   //==========================================================================
   // ACTIONS COLUMN (80px) - POS Action Buttons
   //==========================================================================
   oActions := oRightLayout:GetSection("actions")
   oActions:cBackground := GRADIENT(SLATE)
   oActions:xPadding := 8
   oActions:cShadow := SHADOW(MEDIUM)

   // POS Action buttons - user defines their own buttons and actions
   // Similar to TRibbonBar: create control, then add buttons
   oActionButtons := TPOSActionButtons():New(0, 0, oActions)

   //==========================================================================
   // FIVEWIN-STYLE BUTTON ACTIONS using WEBX_CALL()
   //==========================================================================
   // AddButton( cLabel, cIcon, nClrBack, xAction )
   //
   // xAction can be:
   //   1. JavaScript string: "posAction('cash')"
   //   2. WEBX_CALL(): WEBX_CALL("ProcessPayment", "cash")
   //
   // WEBX_CALL() calls YOUR function (defined below) on the server.
   // Just like calling a function in FiveWin!
   //==========================================================================

   // Using string constant names - WebX runtime resolves them automatically
   oActionButtons:AddButton("CASH",   "ICON_MONEY",    "GREEN_SUCCESS", WEBX_CALL("ProcessPayment", "cash"))
   oActionButtons:AddButton("CARD",   "ICON_CARD",     "BLUE_LIGHT",    WEBX_CALL("ProcessPayment", "card"))
   oActionButtons:AddButton("SPLIT",  "ICON_SCISSORS", "PURPLE",        WEBX_CALL("SplitPayment", NIL))
   oActionButtons:AddButton("DISC",   "ICON_TAG",      "YELLOW_WARNING",WEBX_CALL("ApplyDiscount", 10))
   oActionButtons:AddButton("HOLD",   "ICON_PAUSE",    "SLATE_LIGHT",   WEBX_CALL("HoldTransaction", NIL))
   oActionButtons:AddButton("VOID",   "ICON_NO_ENTRY", "RED_DANGER",    WEBX_CALL("VoidLastItem", NIL))
   oActionButtons:AddButton("CANCEL", "ICON_X_MARK",   "RED_ROSE",      WEBX_CALL("CancelTransaction", NIL))

   ACTIVATE WINDOW oWnd

RETURN NIL

//==========================================================================
// SERVER-SIDE FUNCTIONS - Called by WEBX_CALL() from buttons
//==========================================================================
// These functions run on the server when the user clicks a button.
// They receive parameters from the button and return a result.
// The result is automatically displayed to the user.
//==========================================================================

FUNCTION ProcessPayment( cMethod )
   LOCAL cResult := ""
   LOCAL nTotal := 0

   // In a real app, you would:
   // 1. Get the cart total from session
   // 2. Process the payment via gateway
   // 3. Record the transaction in database
   // 4. Clear the cart

   // For demo, just return a message
   IF cMethod == "cash"
      cResult := "Cash payment received. Thank you!"
   ELSEIF cMethod == "card"
      cResult := "Processing card payment..."
   ELSE
      cResult := "Payment method: " + cMethod
   ENDIF

RETURN cResult

FUNCTION SplitPayment()
   // Split payment between multiple methods
RETURN "Split payment mode activated. Enter first payment amount."

FUNCTION ApplyDiscount( nPercent )
   LOCAL cResult := ""

   DEFAULT nPercent := 10

   // Apply discount to cart total
   cResult := "Discount of " + AllTrim(Str(nPercent)) + "% applied!"

RETURN cResult

FUNCTION HoldTransaction()
   // Hold current transaction for later
   // Save cart to database/session with hold status
RETURN "Transaction held. You can recall it later."

FUNCTION VoidLastItem()
   // Remove the last item from cart
   // In a real app, would modify the cart session
RETURN "Last item voided from cart."

FUNCTION CancelTransaction()
   // Cancel entire transaction
   // Clear the cart session
RETURN "Transaction cancelled. Cart cleared."

if (is_object($object) && isset($object->className)) {
    $class_name = strtoupper($object->className);
    $method_func = $class_name . '_' . strtoupper($method);
    if (function_exists($method_func)) {
        $stack[] = $method_func($object, $value);
        $method_called = true;
    }
}

// SQL Databases (MySQL, PostgreSQL, SQLite, ODBC)
oDb := TDatabase():New("MYSQL", "localhost", "mydb", "user", "pass")
oRs := oDb:Query("SELECT * FROM customers WHERE active = 1")
DO WHILE !oRs:Eof()
   ? oRs:FieldGet("customer_name")
   oRs:Skip()
ENDDO

/ DBF with CDX indexes - NATIVE SUPPORT
oDb := TDatabase():New("DBF")
oDb:Open("customers.dbf")
// Or traditional xBase syntax - it just works:
USE customers INDEX custidx
SEEK "12345"
SKIP
REPLACE name WITH "New Name"
DBCOMMIT()

// This FiveWin desktop code...
DEFINE WINDOW oWnd TITLE "My App"
@ 10,10 BUTTON "Save" ACTION SaveData()
@ 10,100 GET cName
ACTIVATE WINDOW oWnd