Skip to content

Instantly share code, notes, and snippets.

Avatar

Carl T. Barnes CarlTBarnes

View GitHub Profile
@CarlTBarnes
CarlTBarnes / RemoveDirectoryOfFiles.clw
Last active Jan 14, 2021
Remove Directory of Files using Directory() and API DeleteFile
View RemoveDirectoryOfFiles.clw
RemoveDirectoryFiles(STRING FolderPath,STRING Specs2Purge,LONG ShowWindow=0,<*LONG OutCountRemoved>),LONG,PROC ! Returns Error Cnt
DB(STRING DBString) !OutputDebugString wrapper DebugOutput.clw https://gist.github.com/CarlTBarnes/d3c7a3779b094f0ed48186d04a9b45e6
MODULE('Win32')
DeleteFileA(*cstring lpFileName),BOOL,RAW,PROC,PASCAL,DLL(1)
GetLastError(),LONG,PASCAL,DLL(1)
END
!Specs2Purge can be multiple using semicolon e.g. *.tmp;*.$$$;*.xxx
@CarlTBarnes
CarlTBarnes / ExistsDirectory_or_ExistsFile.clw
Last active Oct 15, 2020
ExistsDirectory() or ExistsFile() using GetFileAttributes() instead of Clarion Exists()
View ExistsDirectory_or_ExistsFile.clw
! 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
CarlTBarnes / FileAttributes.clw
Last active Oct 15, 2020
File Attributes Strip Read Only - GetFileAttributes / SetFileAttributes
View FileAttributes.clw
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
View AbcPreview_RptTest_FontProp111.clw
!Report Test Framework by Carl Barnes from https://gist.github.com/CarlTBarnes
!Using ABC Report Previewer instead of my simple previewer
!
!This tested Report${PROP:FontXxx} broken by 11.1
!
!-----------------------------------------------------------------------------
!Try various REPORT specs and PROP Settings quicky in this little Win32 project that has its own simple 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.
@CarlTBarnes
CarlTBarnes / ReportPrintWithDebugLogging.clw
Created Sep 22, 2020
ReportPrint() procedure Prints Details while logging to OutputDebugString. Can also add STRING to printed BAND to Identify it.
View ReportPrintWithDebugLogging.clw
!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
CarlTBarnes / DEP_Policy_Test.clw
Last active Sep 16, 2020
DEP Policy View and Test in Clarion
View DEP_Policy_Test.clw
!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
CarlTBarnes / PopupUnder.clw
Last active Sep 2, 2020
Popup() Menu Under or Beside a Control so Menu appears to drop under a Button
View PopupUnder.clw
!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
CarlTBarnes / CBDropListLEFT.clw
Last active Feb 8, 2022
DROP List is Left Aligned by Class for Combo/List Control. Normally RTL aligns Right. CBDropLeftClass
View CBDropListLEFT.clw
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
CarlTBarnes / Region_Drag_Window.clw
Last active Mar 17, 2021
Region dragging with mouse example, e.g. for Splash Window with no title bar
View Region_Drag_Window.clw
!Examle how to drag window by Region using Mouse. Might use for a Splash with no Caption.
!Best choice is probably the LAST one BrahnMove1Accept() ... so scroll to the bottom
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
CarlTBarnes / 00_Index_GIST_.txt
Last active Dec 22, 2021
00 Index of my GIST because there does not seem to be options to list them by file name or description
View 00_Index_GIST_.txt
Backup_CW_Project.BAT https://gist.github.com/CarlTBarnes/bbb936e418226d55ff8651bb1bfbf7e4 Backup Clarion Project BAT files
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