ANN: Sheet Extender

community Showcase
,
1

Sheet Extender

Extends standard SHEET control.

Sheet Extender is a class that allows to add a small button to each TAB control. This button has no default action, the demo demonstrates
only 3 possible actions: dropdown menu, close button, help button.

Screenshot 1
Screenshot 1865×818 46.1 KB

Screenshot 2

The buttons are fully customizabe, you can set up: text, font, size, colors, hover colors, acftions.

Home page

mikeduglas/SheetExtender: Extends standard SHEET control. (github.com)

  • Here you’ll find source files and the demo.
  • Press green button “Code” then select “Download ZIP”.
2 Likes
2

Very nice Mike!

Is it also possible to mix those buttons? So first tab with cross button, second tab with dropdown button and third tab with help button?

Best regards
Jeffrey

3

Yes it is very easy.

1 Like
4

If someone really wants mixed buttons:

Declare overridden OnDrawCustomButton event handler:

TSheetExtMixed                CLASS(TSheetExtBase), TYPE
OnDrawCustomButton              PROCEDURE(TDC pDc, SIGNED pTabFeq, TRect pTabRect), PROTECTED, DERIVED
OnCustomButtonPressed           PROCEDURE(SIGNED pTabFeq), BOOL, PROTECTED, DERIVED
                              END

In this handler choose which button will be drawn on which tab:

TSheetExtMixed.OnDrawCustomButton PROCEDURE(TDC pDc, SIGNED pTabFeq, TRect pTabRect)
  CODE
  CASE pTabFeq
  OF ?TAB3_1
    SELF.SetCustomButtonAsHelp()
  OF ?TAB3_2
    SELF.SetCustomButtonAsClose()
  OF ?TAB3_3
    SELF.SetCustomButtonAsDropDown()
  END
  
  PARENT.OnDrawCustomButton(pDc, pTabFeq, pTabRect)
1 Like
5

That’s great Mike!

Best regards
Jeffrey

6

Unicode support added.

7

I downloaded the code in GitHub for the SheetExtender control by Mike Douglas ( GitHub - mikeduglas/SheetExtender: Extends standard SHEET control.) but when I try to compile the demo. it lacks 2 files: printf.inc and WinAPi.inc.

anyone have those files?
thanks, marcelo

8

Hi Marcelo

Look at “Dependences” on that link you provided.

Cheers

Geoff R

9

You can remove the Include PrintF.inc the 2 calls to PrintD() are commented. If you need that code it is simple enough to replace with a call to OutputDebugString and concatenation.

10

thanks for the anwers;
Geoff, where is “dependences” ??

11

Here’s a link with the Dependencies Highlighted

12

It’s funny :slight_smile: printf’s purpose is to avoid OutputDebugString calls and a lot of concatenations, among other goodies.

13

image
image500×809 123 KB

1 Like
14

many thanks, I don’t understand how I didn’t see it.

15

I agree the PrintF syntax can be elegant for many purposes. Obviously C programmers like it, but IIRC they can’t easily concat bunches of variables easily like in Clarion. The formatting of some values like Date, Time, Hex are “goodies” that save code and produce better results.

Most of my debug is Label=Value multiple times
DB('UpdateAPTransProcess - AddToCksFile Vndr: '& PeTran:VendorAutoNo &' Src: '&PeTran:JrnlSrc &' CKNO: '& PeTran:CkNo &' ACCT: '& CLIP(ACTMST:AcctNo) &' AMT: '& PeTran:Debit &' REF: '&PeTran:RefNo)

So your way the 6 Labels and Variables would separate:
PrintD('UpdateAPTransProcess - AddToCksFile Vndr: %i Src: %z CKNO: %i ACCT: %s AMT: %f REF: %z', PeTran:VendorAutoNo, PeTran:JrnlSrc, PeTran:CkNo, ACTMST:AcctNo, PeTran:Debit, PeTran:RefNo)

For me coding Debug often variables are inserted, removed, rearranged, copied. That’s easier cut/paste/delete with the Literal=Variable next to each other.

There is A LOT of Debug left in the old code I work on, much in batch processes so 100s or 1000s. I would be concerned the code that runs inside PrintD() slowing it. There are many ANYs and the concat 1 byte at a time using ANY is slow hence string libraries. In reality it probably does not matter as CPUs are so fast.

PrintF() does look nice to create a Message() so you can focus on the complete message text and not have the text cluttered with concatenated variables. There are usually not as many variables and much more text. There aren’t 100s of Messages showing during a process like Debug. I am trying PrintF and will send you some thoughts.