Skip to content

Instantly share code, notes, and snippets.

Avatar

Carl T. Barnes CarlTBarnes

View GitHub Profile
@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
@CarlTBarnes
CarlTBarnes / ReportTest.clw
Last active Oct 9, 2020
Report Test Scratch Program
View ReportTest.clw
!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
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 Aug 23, 2020
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 Aug 21, 2020
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 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
CarlTBarnes / 00_Index_GIST_.txt
Last active Oct 15, 2020
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
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
CarlTBarnes / Clarion_Hub_Interesting.txt
Created Aug 8, 2020
Clarion Hub links of interest
View Clarion_Hub_Interesting.txt
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?
You can’t perform that action at this time.