Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Icetips Article
Back to article list
Search Articles
Add Comment
Printer friendly
Direct link
Templates: Fix for toolbar height misalignment 1999-01-14 -- Rick Martin Newsgroups: topspeed.products.c5ee
Editors note: Please note that some lines may wrap in the template code.
Here is the Template I use to correct this problem.
#!
***************************************************************************
#! * Fix Window with ToolBar sizing problem
#!
***************************************************************************
#!
#EXTENSION(FixToolBarSizeProb,'Fix Window with ToolBar sizing Problem')
#DISPLAY(' ')
#DISPLAY('This Extension reduces the size of the window')
#DISPLAY('by the size of the Toolbar, if applicable.')
#DISPLAY(' ')
#DISPLAY('This fixes a window sizing problem.')
#PROMPT('Disable this action',CHECK),%NoAction
#AT(%WindowManagerMethodDataSection,'Init','(),BYTE'),WHERE(~%NoAction)
ToolBarFix Group
FieldCounter SHORT
Height SHORT
End
#ENDAT
#AT(%WindowManagerMethodCodeSection,'Init','(),BYTE'),PRIORITY(8001),WHERE(~%NoAction)
SetTarget(,1)
ToolBarFix.FieldCounter = 0
Loop
ToolBarFix.FieldCounter = Target{Prop:NextField,ToolBarFix.FieldCounter}
If ToolBarFix.FieldCounter
If ToolBarFix.FieldCounter{Prop:Type} = Create:ToolBar
GetPosition(ToolBarFix.FieldCounter,,,,ToolBarFix.Height)
Break
End
Else
Break
End
End
SetTarget(%Window)
%Window{Prop:Height} = %Window{Prop:Height} - ToolBarFix.Height
#ENDAT
Add this to one of your template groups. You then need to add it the
procedures with toolbars.
The only potential problem, is the template make the assumption that Thread
1 is the AppFrame. This has never failed to my knowledge, but the
documentation does not guarantee it to be true.
HTH,
Rick
syv@db-networks.com wrote in message
<369e3b44.2848896@tsnews.clarion.com>...
>Hi,
>
>I have a problem with update forms and tools bars.
>
>If I have a toolbar on the update screen, there is the equivalent
>amount of space at the bottom the update form. This takes a full inch
>out of my screen.
>
>This happens with C4 and C5. Both Clarion templates and ABC templates.
>
>Does anybody knows a work around?
>
>Thanks
>
Today is April 25, 2024, 12:26 pm This article has been viewed 35107 times. Google search has resulted in 34 hits on this article since January 25, 2004.
|
|