Line control error

[nenad cikic]

I have found that when i add the horizontal line it is displayed as diagonal line. But if i set the height to -1 then it is horizontal.
In the following window the ?Line1:2 is in java effectively horizontal, while ?Line1 is in java effectively diagonal pending down.
QuickWindow          WINDOW('Form customers'),AT(,,358,214),FONT('Tahoma',,,,CHARSET:EASTEUROPE),CENTER,IMM,HLP('UpdCust'),SYSTEM,GRAY,DOUBLE,MDI
                       SHEET,AT(4,4,350,158),USE(?CurrentTab)
                         TAB('&1) General'),USE(?Tab:1)
                           PROMPT('id:'),AT(8,20),USE(?CU🆔Prompt),TRN
                           STRING(@n-14),AT(61,20,64,10),USE(CU:id),TRN,RIGHT(1)
                           PROMPT('naziv:'),AT(8,34,61,10),USE(?CU:naziv:Prompt),TRN
                           ENTRY(@s200),AT(73,34,277,12),USE(CU:naziv),LEFT(2)
                           PROMPT('adresa:'),AT(8,51,61,10),USE(?CU:adresa:Prompt),TRN
                           ENTRY(@s200),AT(73,51,277,12),USE(CU:adresa),LEFT(2)
                           PROMPT('oib:'),AT(8,69,61,10),USE(?CU:oib:Prompt),TRN
                           ENTRY(@s20),AT(73,69,84,12),USE(CU:oib),LEFT(2)
                           PROMPT('broj blagajni:'),AT(8,86,61,10),USE(?CU:brblag:Prompt),TRN
                           ENTRY(@n2),AT(73,86,40,12),USE(CU:brblag),RIGHT(1),MSG('broj blagajni'),TIP('broj blagajni')
                           PROMPT('ističe:'),AT(121,87,30,10),USE(?CU:kraj:Prompt)
                           ENTRY(@d6),AT(154,86,59,12),USE(CU:kraj),LEFT(2)
                           BUTTON,AT(216,85,14,14),USE(?Calendar),ICON('date2-48.png')
                           BUTTON,AT(236,85,14,14),USE(?MojCalendar),ICON('date2-48.png')
                           PROMPT('istanca:'),AT(255,88,37,10),USE(?CU:istanca:Prompt)
                           ENTRY(@n5),AT(299,86,41,12),USE(CU:istanca),RIGHT(2),MSG('Povećaj ovaj broj da poni<154>ti<154> prija<154>nje korisnike i licence'),TIP('Povećaj ovaj broj da poni<154>ti<154> prija<154>nje korisnike/licence')
                           PROMPT('host Name:'),AT(7,105,61,10),USE(?CU:hostName:Prompt)
                           ENTRY(@s50),AT(73,104,277,12),USE(CU:hostName),LEFT(2)
                           PROMPT('host IP:'),AT(7,124,61,10),USE(?CU:hostIP:Prompt)
                           ENTRY(@s20),AT(73,123,128,12),USE(CU:hostIP),LEFT(2)
                           PROMPT('kontrolna zaporka:'),AT(7,141,82,10),USE(?CU:kontrolnaZap:Prompt)
                           ENTRY(@s20),AT(93,140,257,12),USE(CU:kontrolnaZap),LEFT(2),MSG('kontrolna zaporka'),TIP('kontrolna zaporka')
                         END
                       END
                       BUTTON,AT(5,168,14,14),USE(?Button5),ICON('VCRLAST.PNG')
                       BUTTON,AT(20,168,14,14),USE(?Button5:2),ICON('VCRFIRST.PNG')
                       BUTTON,AT(35,168,14,14),USE(?Button5:3),ICON('VCRPRIOR.PNG')
                       BUTTON,AT(50,168,14,14),USE(?Button5:4),ICON('VCRNEXT.PNG')
                       BUTTON,AT(65,168,14,14),USE(?Button5:5),ICON('VCRUP.PNG')
                       BUTTON,AT(80,168,14,14),USE(?Button5:6),ICON('VCRDOWN.PNG')
                       BUTTON('&OK'),AT(252,166,49,14),USE(?OK),LEFT,MSG('Accept data and close the window'),TIP('Accept data and close the window'),ICON('tick.png'),DEFAULT
                       BUTTON('&Cancel'),AT(305,166,49,14),USE(?Cancel),LEFT,MSG('Cancel operation'),TIP('Cancel operation'),ICON('cross.png')
                       LINE,AT(0,184,69,-1),USE(?Line1:2),COLOR(COLOR:Black)
                       LINE,AT(0,194,65,0),USE(?Line1),COLOR(COLOR:Black)
                     END

Thanks
Nenad

[Andrew Barnham]

I created a trivial, complete program based on the above.  The blue line (with -1) is not quite straight, but the black line (0) is perfectly horizontal on my system.

        program
        include('equates.clw')
QuickWindow WINDOW('Form customers'),AT(,,358,214),FONT('Tahoma',,,,),CENTER,IMM,HLP('UpdCust'),SYSTEM,GRAY,DOUBLE,MDI
        SHEET,AT(4,4,350,158),USE(?CurrentTab)
                TAB('&1) General'),USE(?Tab:1)
                END
        END
        LINE,AT(0,184,69,-1),USE(?Line1:2),COLOR(COLOR:blue)
        LINE,AT(0,194,65,0),USE(?Line1),COLOR(COLOR:Black)
END
        code
        open(quickwindow)
        accept
        .
        close(quickwindow)

[Andrew Barnham]

I wonder if ABRESIZE is possibly interferring with your window layout.

In older versions, I had ABRESIZE working perfectly, but when I added changes to support remote GUI access and modified the way windows report their width/height, ABBRESIZE no longer seemed to work exactly perfectly on windows that do not change their size.  Controls would jostle slightly by a pixel or two.  I never looked into it in detail, instead I just remove ABRESIZE from all windows except those that actually needed it.

[nenad cikic]

I can not now repeat the situation. I must find what i have changed in my application. Will investigate further.
Nenad

[nenad cikic]

While investigating the line control problem, i have noticed that the resize is not working properly. If i change the UpdCust window i sent to you from double to Resize and if i put resize strategy Surface the behaviour of the resize is not good. The browse procedure with the same resize setting is OK. I have tried many different things but the bahviour is always bad. I give up. I will use the form as not resizable and since the line control seems to work now i am OK.
If i remember correctly from the clarion newsgroups, the inhouse resize is not very appriciated. In my win32 application i am using legacy template chain, and i have customized the resize function, but for now i will not look deeper in abc resize.

Please close the thread
Thanks
Nenad