Visual make para Harbour (basado en hbmk2.exe)

Post Reply
User avatar
mastintin
Posts: 1502
Joined: Thu May 27, 2010 2:06 pm

Visual make para Harbour (basado en hbmk2.exe)

Post by mastintin »

Comienzo de implementacion en Fivemac . el codigo casi clavado al usado en Fivelinux.

Code: Select all

#include "FiveMac.ch"

#define CLR_GRAY1 0xCCCCCC
#define CLR_GRAY2 0xEEEEEE
#define CLR_TEXT  0x303030

static aPrgs := { { "", "", "" } }

//----------------------------------------------------------------------------//

function Main()

   local oDlg, oGet1, cPrgName := Space( 20 ), oFld1
   local oBrwPrgs
   local oResult, cResult := ""

   DEFINE DIALOG oDlg TITLE "Visual Make for Harbour" ;
      SIZE 560, 540 FLIPPED

 @  20,  20 SAY "Main PRG" SIZE  80,  20  OF oDlg

   @  41,  20 GET oGet1 VAR cPrgName SIZE 300,  26  OF oDlg 

   @  30, 318 BUTTON "..." OF oDlg SIZE 50, 50 ;
      ACTION ( oGet1:VarPut( cPrgName := cGetFile( "Please select a PRG file", "*.prg" ) ),;
               oGet1:Refresh() )

   @  86,  20 SAY "Additional" SIZE  80,  20 OF oDlg
   
    
 
 
  @ 108, 20 FOLDER oFld1 PAGES "PRGs", "Cs", "OBJs", "LIBs", "HBCs" ;
      SIZE 370, 210  OF oDlg flipped
      

   @ 3, 16 BROWSE oBrwPrgs ;
      FIELDS aPrgs[ oBrwPrgs:nArrayAt ][ 1 ],;
             aPrgs[ oBrwPrgs:nArrayAt ][ 2 ],;
             aPrgs[ oBrwPrgs:nArrayAt ][ 3 ] ;
      HEADERS "Name", "Date", "Size" ;
      COLSIZES 180, 85, 85 ;
      OF oFld1:aDialogs[1] SIZE 320, 150 PIXEL

   oBrwPrgs:SetArray( aPrgs )
   
   oBrwPrgs:SetAlternateColor( .t. )
   
  // oBrwPrgs:SetColorsForAlternate( CLR_TEXT, CLR_GRAY1 )


   @  114, 328 BUTTON "+" OF oDlg SIZE 35, 25  ;
      ACTION MsgInfo( "add" )

   @  114, 350 BUTTON "-" OF oDlg SIZE 35, 25 ;
      ACTION MsgInfo( "delete" )

   @ 328,  13 SAY "Result" SIZE  80,  20  OF oDlg

   @ 347,  20 GET oResult VAR cResult MEMO SIZE 363, 144 OF oDlg 

   @ 31, 412 BUTTON "Build" ;
      SIZE 123, 50  OF oDlg ;
      ACTION MsgInfo( "Not defined yet!" )

   @ 87, 412 BUTTON "Settings" ;
      SIZE 124, 50  OF oDlg ;
      ACTION MsgInfo( "Not defined yet!" )

   @ 143, 412 BUTTON "Exit" ;
      SIZE 124, 50  OF oDlg ;
      ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED

return oDlg

//----------------------------------------------------------------------------//
 
Image
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: Visual make para Harbour (basado en hbmk2.exe)

Post by Antonio Linares »

Estupendo, muchas gracias :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
Post Reply