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
>
Printed November 21, 2024, 11:01 am This article has been viewed/printed 35332 times. Google search has resulted in 34 hits on this article since January 25, 2004. |