How to create round corners at entry fields?

code
1

Hi All
How to create round corner at entry fields?

2

Hi,

the easiest way is to create some image and put this on form. Then put your entry field on this image and turn on the transparent attribute

3

Have a look at Capesofts Makeover

4

Put a box control over the field, round, with the same size and make the field transparent

1 Like
5

Try this:

     !---BeforeGlobalIncludes
HANDLE     EQUATE(UNSIGNED)
HRGN       EQUATE(HANDLE)
HWND       EQUATE(HANDLE)
HGDIOBJ    EQUATE(HANDLE)

RECT    GROUP,TYPE
Left       SIGNED
Top        SIGNED
Right      SIGNED
Bottom     SIGNED
            END
---
  !---InsideGlobalMap
  MODULE('Windows.DLL')
    GetWindowRect(UNSIGNED hWnd, *RECT lpRect),BOOL,PASCAL,RAW,PROC
    CreateRoundRectRgn(SIGNED, SIGNED, SIGNED, SIGNED, SIGNED, SIGNED),HRGN,PASCAL
    SetWindowRgn(HWND,HRGN,BOOL),SIGNED,PASCAL
    DeleteObject(HGDIOBJ),BOOL,PASCAL
  END

**!----Procedure**
RoundIt    PROCEDURE(LONG pControl)
hRgn        LONG
LOC:Width   LONG
LOC:Height  LONG
LOC:RECT    LIKE(RECT)
 CODE
    GetWindowRect(pControl{PROP:HANDLE},LOC:RECT)
    LOC:Width  = LOC:RECT.Right  - LOC:RECT.Left
    LOC:Height = LOC:RECT.Bottom - LOC:RECT.Top

    hRgn = CreateRoundRectRgn(0,0,LOC:Width, LOC:Height,  5, 5)        
    IF hRgn
        SetWindowRgn(pControl{PROP:HANDLE}, hRgn, 1)
        DeleteObject(hRgn)
    END
    RETURN

**!----Function call on init.OpenWindow**
 RoundIt(?YourControlGoesHere)

NOTE: Entry control has to be FLAT
Sample screenshot

1 Like
6

It looks good but I can’t get round corner at entry field.
Test.zip (1.8 KB)

Thanks anyway

7

Looks like the Zip is corrupted… I am not able to open it… Can you please re-attach it for me.

Thanks

8

Take a look at ‘magic entries’ from icetips (www.icetips.com’. Price = $ 49 and does exactly what you want - and even more. It’s even a nice example of template programming.

9

Here it is againtest.zip (14.8 KB)

10

Try Icetips magicentries. Allows rounded entry fields and defines global colours for required, read-only etc.