CarlTBarnes

! Clarion EXISTS() returns True for File or Directory. 
! Sometimes you need to know you have a Directory, or a File
!-----------------------------------------------------------------------------------------------------
  MAP
ExistsDirectory PROCEDURE(STRING pDirName),BOOL  !True if Directory and Not file
ExistsFile      PROCEDURE(STRING pFileName),BOOL !True if File and Not Directory
  
  MODULE('win32.lib')
    GetFileAttributes(*CSTRING FileName),LONG,PASCAL,DLL(1),RAW,NAME('GetFileAttributesA')  !Returns Attribs 
  END

CarlTBarnes

  MAP
FileStripReadOnly    PROCEDURE(string _filename),BOOL !True if Worked

  MODULE('win32.lib')
    SetFileAttributes(*CSTRING FileName,LONG NewFileAttribs),BOOL,PROC,PASCAL,DLL(1),RAW,NAME('SetFileAttributesA')
    GetFileAttributes(*CSTRING FileName),LONG,PASCAL,DLL(1),RAW,NAME('GetFileAttributesA')  !Returns Attribs 
  END
!--------------------------------------------------------  
FileStripReadOnly    PROCEDURE(string _filename) !,BOOL
Attrs    LONG,AUTO

CarlTBarnes

!Try various REPORT specs and PROP Settings quicky in this little Win32 project that has its own wimple Previewer.
!If you want to report a bug this can be used to create a small example
!
!1. Create a new Win32 Project and paste this code.
!2. Add Your Report or at least the Details you care about 
!3. Add the Variables used on the Report you need to build
!4. Add your PRINT() code and PROP code
!5. Run and Test
!-----------------------------------------------------------------------
   PROGRAM  !Report Test Framework

CarlTBarnes

!Add local ReportPrint()
!Define:  DbgString  BYTE 
!
!Change PRINT(Rpt:Detail) to ReportPrint(?Detail,'Rpt:Detail')
!If desired set DbgString=1 and each Band gets a String Label 'Rpt:Detail' 

    MAP
ReportPrint     PROCEDURE(LONG BandFEQ, STRING BandName)
    END 
DbgString  BYTE

CarlTBarnes

!DEP Policy Test by Carl Barnes released under the MIT License
!C11.13620 has a new Project DEP setting. This does NOT require 13620
!You do NOT need the new 13620 DEP Project setting to turn on DEP, just call SetProcessDEPPolicy(1)
!You can add this procedure in your application to check DEP status at runtime on the end user machine.
!It probably should be wrapped in a simple CLASS.
!
!FYI - DEP sets the IMAGE_DLL­CHARACTERISTICS_NX_COMPAT bit in the IMAGE_OPTIONAL_HEADER‘s Dll­Characteristics.
!--------------------------------------------------------------------------------------
!Must DEP be turned On in Both EXE and DLL projects?  NO. Only the EXE the project.
!   It is suggested to turn on DEP in the DLL as an FYI it works with DEP.

CarlTBarnes

!Use the POPUP('xxx', X, Y, 1=Relative) to position a POPUP() right under a Button so it appears to drop down
!The fourth parameter is not documented well. Pass 1 to indicate the X/Y are Relative so can use Clarion GetPosition()
!
!Replace existing Popup() placing the ?Control as the first parameter
!Example:  OF ?MenuBtn ; CASE PopupUnder(?,'Copy|Delete') 
!---------------------------------------
   MAP 
     PopupBeside(LONG BesideCtrlFEQ, STRING PopMenu),LONG
     PopupUnder(LONG UnderCtrlFEQ, STRING PopMenu),LONG
PopupBeside         PROCEDURE(LONG BesideCtrlFEQ, STRING PopMenu),LONG

CarlTBarnes

    MEMBER()
!--------------------------
! CBDropLeftClass   - by Carl Barnes - Release under the MIT License 
!--------------------------
    INCLUDE('EQUATES.CLW')
    INCLUDE('CBDropListLEFT.INC'),ONCE

CBRect  GROUP,TYPE 
Left      SIGNED
Top       SIGNED

CarlTBarnes

!Examle how to drag window by Region using Mouse. Might use for a Splash with no Caption.
!Best choice is probably last one BrahnMove1Accept()

  PROGRAM
  MAP
CarlMove          PROCEDURE()   !I have used this on many machines and know it works
CarlMoveSimpler   PROCEDURE()   !From https://gist.github.com/fushnisoft/4f9da267e165033e007a
BrahnMoveOriginal PROCEDURE()   !Code from Brahn's GIST that 
BrahnMoveGetPoz   PROCEDURE()   !Use GetPosition not Prop:Xpos Prop:Ypos

CarlTBarnes

CBAltWin7Fix.tpl                 https://gist.github.com/CarlTBarnes/5e0e7d5a3e3f0b5c991e8f0601e69004   Fix Alt key lockup problem with the latest version of Windows 10 that I wrote and published in ClarionMag                                
CascadeMdiChildren.clw           https://gist.github.com/CarlTBarnes/ed29557b7142ec4695f7d460cabef3fd   Cascade open MDI Child windows like Clarion RTL STD:CascadeWindow using Windows API                                                                                   
Clarion_Hub_Interesting.txt      https://gist.github.com/CarlTBarnes/aabb812d5a34fcfe69d2421702799aef   Clarion Hub links of interest
CloseWindowHook.clw              https://gist.github.com/CarlTBarnes/f86f6b695276b2b3327f5959e5c57682   Prop:CloseWindowHook Example Clarion                                                                                  
DateSplit.clw                    https://gist.github.com/CarlTBarnes/77ebb46ddcce3ed7c4040f9c31bd571c   DateSplit(Date, Month, Day, Year) much faster than

CarlTBarnes

Tips:  https://clarionhub.com/c/ide/tips/19
IDE: https://clarionhub.com/c/ide/9

Msbuild example for Clarion 
https://clarionhub.com/t/msbuild-example-for-clarion/274/10

FIXED statement in EXP for 4% smaller EXE without .reloc table
https://clarionhub.com/t/fixed-statement-in-exp-for-4-smaller-exe-without-reloc-table/3450/4

How to successfully start the debugger from the command line?