FiveTech Support Forums

#include "FiveWin.ch"

function Main()

   local oDlg, oGet, nVal := 123

   DEFINE DIALOG oDlg RESOURCE "Test"

   REDEFINE GET oGet VAR nVal ID 101 OF oDlg READONLY COLOR CLR_GREEN, CLR_BLUE

   oGet:lDisColors = .F.

   ACTIVATE DIALOG oDlg CENTERED

return nil

TEST DIALOG 61, 39, 194, 119
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Test"
FONT 8, "MS Sans Serif"
{
 EDITTEXT 101, 44, 25, 106, 15, WS_BORDER | WS_VSCROLL | WS_TABSTOP
 DEFPUSHBUTTON "OK", IDOK, 12, 96, 50, 14
 PUSHBUTTON "Cancel", IDCANCEL, 72, 96, 50, 14
 PUSHBUTTON "Help", IDHELP, 132, 96, 50, 14
}

#include "FiveWin.ch"

function Main()

   local oDlg, oCbx, nValue

   DEFINE DIALOG oDlg 

   @ 1, 1 COMBOBOX oCbx VAR nValue ITEMS { "One", "Two", "Three" } OF oDlg

   @ 3, 10 BUTTON "Ok" OF oDlg ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED

return nil

#include "FiveWin.ch"

function Main()

   local oDlg, oCbx, nValue, oBtn

   DEFINE DIALOG oDlg 

   @ 1, 1 COMBOBOX oCbx VAR nValue ITEMS { "One", "Two", "Three" } OF oDlg

   @ 12, 50 BTNBMP oBtn SIZE 15, 15 OF oDlg NOBORDER

   @ 3, 10 BUTTON "Ok" OF oDlg ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT oBtn:SetColor( CLR_WHITE, CLR_GREEN )

return nil

#INCLUDE "FIVEWIN.CH"

REQUEST DBFCDX,DBFFPT
REQUEST DESCEND
REQUEST ORDKeyno, ORDKeycount,ORDKEYGOTO

function Main()
LOCAL LSAVE     := .F. , ;
      ODSKT     := .F., ;
      OCTA      := .F., ;
      ICTA      := 1, ;
      ALIB      := {}, ;
      TOBJ      := {}, ;
      OFIC      := 1, ;
      OLECT     := " ", ;
      ODLG,ORAD

RDDSETDEFAULT("DBFCDX")

SET DATE FRENCH
SET CENTURY ON
SET FIXED ON
SET DBFLOCKSCHEME TO 2   // clp53
SET AUTOPEN ON
SET STRICTREAD OFF  // pour accélérer la réorg dbfcdx

set(_SET_INSERT, .T.)

SET EPOCH TO YEAR(DATE()) - 80

AADD(ALIB,"1 SAGE COALA ® Format Excel")
AADD(ALIB,"2 CEGID ® Format ASCII")
AADD(ALIB,"3 QUADRA ® Format ASCII")
AADD(ALIB,"4 CCMX ® Format ASCII")
AADD(ALIB,"5 CIEL ® Format ASCII")
AADD(ALIB,"6 CEGID ® Format Excel")

FOR ICTA = 1 TO 7
   AADD(TOBJ,NIL)
NEXT
ICTA := 1

DEFINE DIALOG ODLG RESOURCE "BALANCEXP" TITLE "this is a test" TRANSPARENT

REDEFINE RADIO ORAD VAR OFIC ID 201,202,205 OF ODLG
REDEFINE CHECKBOX ODSKT      ID 203     OF ODLG COLOR CLR_GREEN WHEN OFIC = 2
REDEFINE GET      OLECT      ID 204     OF ODLG PICTURE "!" WHEN ODSKT .AND. OFIC = 2

REDEFINE CHECKBOX TOBJ[01] VAR OCTA  ID 206  OF ODLG COLOR CLR_GREEN  // INTERFACE EXTERNE

REDEFINE COMBOBOX TOBJ[02] VAR ICTA ITEMS ALIB ID 207 OF ODLG ;
         WHEN OCTA UPDATE ;
         ON CHANGE ODLG:UPDATE()

REDEFINE CHECKBOX TOBJ[04] VAR TOBJ[05]  ID 208     OF ODLG COLOR CLR_GREEN                    // EXPORTER UN SEUL JOURNAL
REDEFINE GET      TOBJ[06] VAR TOBJ[07]  ID 209     OF ODLG PICTURE "!!" WHEN TOBJ[05] UPDATE  // CODE JOURNAL

REDEFINE BUTTON TOBJ[03] ID 03 OF ODLG ACTION (1 = 1)

REDEFINE BUTTON ID 01 OF ODLG ACTION (LSAVE := .T., ODLG:END())
REDEFINE BUTTON ID 02 OF ODLG ACTION (LSAVE := .F., ODLG:END())

ACTIVATE DIALOG ODLG CENTERED
return nil

// RESOURCE SCRIPT generated by "Pelles C for Windows, version 5.00".

#include <windows.h>
#include <commctrl.h>
#include <richedit.h>

LANGUAGE LANG_FRENCH,SUBLANG_FRENCH

BALANCEXP DIALOG DISCARDABLE 9, 15, 281, 189
STYLE WS_POPUP|WS_CAPTION|WS_SYSMENU
CAPTION "Balance comptable exportée "
FONT 10, "Tahoma"
{
  CONTROL "Format du fichier exporté", 401, "Static", SS_CENTER|WS_BORDER|WS_GROUP, 89, 1, 102, 12
  CONTROL "Excel", 201, "Button", BS_RADIOBUTTON|BS_LEFTTEXT, 1, 19, 38, 11
  CONTROL "ASCII (TXT)", 202, "Button", BS_RADIOBUTTON|BS_LEFTTEXT, 45, 19, 51, 11
  CONTROL "Copier sur support externe (Ascii Uniquement)", 203, "Button", BS_AUTOCHECKBOX|WS_TABSTOP, 1, 58, 166, 12
  CONTROL "Identification du lecteur (Poste de travail)", 402, "Static", SS_CENTER|WS_BORDER|WS_GROUP, 170, 49, 79, 30
  CONTROL "", 204, "Edit", WS_BORDER|WS_TABSTOP, 256, 56, 16, 12
  CONTROL "OK", IDOK, "Button", BS_DEFPUSHBUTTON|WS_TABSTOP, 2, 170, 35, 18
  CONTROL "Annuler", IDCANCEL, "Button", WS_TABSTOP, 244, 170, 35, 18
  CONTROL "Format Fichier Export", 3, "Button", WS_TABSTOP, 176, 18, 99, 18
  CONTROL "Interface vers Logiciel de Comptabilité Agréé", 206, "Button", BS_AUTOCHECKBOX|WS_TABSTOP, 1, 83, 161, 15
  CONTROL "DBF", 205, "Button", BS_RADIOBUTTON|BS_LEFTTEXT, 105, 19, 51, 11
  COMBOBOX 207, 48, 99, 185, 81, CBS_DROPDOWN | WS_TABSTOP  
  CONTROL "Exporter Seulement ce Journal", 208, "Button", BS_AUTOCHECKBOX|WS_TABSTOP, 0, 152, 128, 12
  CONTROL "", 209, "Edit", WS_BORDER|WS_TABSTOP, 136, 152, 32, 11
}

REDEFINE COMBOBOX TOBJ[02] VAR ICTA ITEMS ALIB ID 207 OF ODLG ;
         WHEN OCTA /* UPDATE */ ;
         ON CHANGE ODLG:UPDATE()

REDEFINE COMBOBOX TOBJ[02] VAR ICTA ITEMS ALIB ID 207 OF ODLG ;
         WHEN OCTA UPDATE 
         // ON CHANGE ODLG:UPDATE()