diff options
Diffstat (limited to 'source/text/sbasic/shared/03010304.xhp')
| -rw-r--r-- | source/text/sbasic/shared/03010304.xhp | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/source/text/sbasic/shared/03010304.xhp b/source/text/sbasic/shared/03010304.xhp index 92eaedf6fc..74aff384dd 100644 --- a/source/text/sbasic/shared/03010304.xhp +++ b/source/text/sbasic/shared/03010304.xhp @@ -45,7 +45,9 @@ <paragraph role="paragraph" id="par_id3150359" xml-lang="en-US" l10n="U" oldref="2">Returns the <link href="text/sbasic/shared/03010305.xhp" name="RGB">RGB</link> color code of the color passed as a color value through an older MS-DOS based programming system.</paragraph> </section> <paragraph role="heading" id="hd_id3154140" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="4">QBColor (ColorNumber As Integer)</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="4">QBColor (ColorNumber As Integer)</paragraph> +</bascode> <paragraph role="heading" id="hd_id3145172" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="6">Long</paragraph> <paragraph role="heading" id="hd_id3156560" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameter:</paragraph> @@ -73,12 +75,14 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3148406" xml-lang="en-US" level="2" l10n="U" oldref="27">Example:</paragraph> -<paragraph role="code" id="par_id3145642" xml-lang="en-US" l10n="U" oldref="28">Sub ExampleQBColor</paragraph> -<paragraph role="code" id="par_id3154256" xml-lang="en-US" l10n="U" oldref="29">Dim iColor As Integer</paragraph> -<paragraph role="code" id="par_id3147340" xml-lang="en-US" l10n="U" oldref="30">Dim sText As String</paragraph> -<paragraph role="code" id="par_id3155962" xml-lang="en-US" l10n="U" oldref="31">iColor = 7</paragraph> -<paragraph role="code" id="par_id3145230" xml-lang="en-US" l10n="U" oldref="32">sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )</paragraph> -<paragraph role="code" id="par_id3149566" xml-lang="en-US" l10n="U" oldref="33">MsgBox stext,0,"Color " & iColor</paragraph> -<paragraph role="code" id="par_id3154705" xml-lang="en-US" l10n="U" oldref="34">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleQBColor</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iColor As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sText As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iColor = 7</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )</paragraph> +<paragraph role="bascode" id="par_id3149566" xml-lang="en-US" l10n="U" oldref="33"> MsgBox stext,0,"Color " & iColor</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> |