MDICLIENT Border (Form Designer(10+)) [Revelation On-Line Wiki]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{tag>category:"Form Designer(10+)" author:"Donald Bakke" author:"Carl Pates"}}

[[https://www.revelation.com/the-works|Join The Works program to have access to the most current content, and to be able to ask questions and get answers from Revelation staff and the Revelation community]]


==== MDICLIENT Border (Form Designer(10+)) ====
=== At 30 DEC 2019 12:37:10PM Donald Bakke wrote: ===
 
 
<QUOTE>
In OI 9, we could put a nice 3D border around the MDICLIENT area using the Raw Style Bits dialog (specifically, the WS_EX_CLIENTEDGE style). In OI 10 I can't find any properties that exposes this bit and the Raw Style Bits dialog no long exists (AFAIK). Is there a way to restore this style via the UI?



[url=mailto:dbakke@srpcs.com]Don Bakke[/url]

[url=http://www.srpcs.com]SRP Computer Solutions, Inc.[/url]

[img]http://www.srpcs.com/srpicon1.gif[/img]
</QUOTE>
----

=== At 04 JAN 2020 01:18PM Carl Pates wrote:  ===

<QUOTE>Hi Don,



Not at present I'm afraid.



Thanks,



[email=cpates@revsoft.co.uk]Carl Pates[/email]

</QUOTE>

----

=== At 04 JAN 2020 01:33PM Donald Bakke wrote:  ===

<QUOTE>Hi Carl,



I appreciate the official response. No worries. I had assumed as much and coded it myself. For others who want to accomplish the same:


<code>
Equ WS_EX_CLIENTEDGE$           To 512

Style = Get_Property( @Window:".MDICLIENT", "STYLE_EX" )

If Style[1, 2] _EQC "0x" Then

    Convert @Lower_Case To @Upper_Case In Style

    Style = Iconv( Style[3, 99], "MX" )

End

Style = BitOr( Style, WS_EX_CLIENTEDGE$ )

Set_Property( Window:".MDICLIENT", "STYLE_EX", Style )
</code>




[url=mailto:dbakke@srpcs.com]Don Bakke[/url]

[url=http://www.srpcs.com]SRP Computer Solutions, Inc.[/url]

</QUOTE>

----

=== At 06 JAN 2020 05:04AM Carl Pates wrote:  ===

<QUOTE>Hi Don,



FYI - you can make that snippet a little more concise in v10 if you use the STYLEEXN (numeric STYLEEX) property: like so:




<code>
Equ WS_EX_CLIENTEDGE$           To 512

Style = Get_Property( @Window:".MDICLIENT", "STYLEEXN" )

Style = BitOr( Style, WS_EX_CLIENTEDGE$ )

Set_Property( Window:".MDICLIENT", "STYLEEXN", Style )
</code>




Similarly there's numeric versions of the other style properties too:



STYLEN

PSSTYLEN

PSSTYLEXN



(I got fed up of writing code to chop off the hex notation prefix...)



Regards



[email=cpates@revsoft.co.uk]Carl Pates[/email]

</QUOTE>

----

=== At 06 JAN 2020 04:13PM Donald Bakke wrote:  ===

<QUOTE>Hi Carl,



Good stuff to know. Unfortunately, I have to write my code to be compatible with OI 9 and OI 10. I do have some places where I'm branching based on the OI version but wherever possible I'm writing version independent code.



[url=mailto:dbakke@srpcs.com]Don Bakke[/url]

[url=http://www.srpcs.com]SRP Computer Solutions, Inc.[/url]

</QUOTE>


[[https://www.revelation.com/revweb/oecgi4p.php/O4W_HANDOFF?DESTN=O4W_RUN_FORM&INQID=WORKS_READ&SUMMARY=1&KEY=FFC5210CC1FBB7468C869EE2F6DCE916|View this thread on the Works forum...]]