Custom Buttons - Revision history

Rob Craig: /* Scripting The Button */

2023-06-01T08:46:23Z

Scripting The Button

2023-06-01T08:44:18Z

Scripting The Button

2023-06-01T08:39:44Z

Scripting The Button

2023-06-01T08:36:58Z

Scripting The Button

2023-06-01T08:36:34Z

Scripting The Button

2023-06-01T08:36:03Z

Scripting The Button

2023-06-01T08:29:34Z

Scripting The Button

2023-06-01T08:27:13Z

Scripting The Button

2023-05-31T12:53:58Z

Scripting The Button

2023-05-31T12:52:37Z

Scripting The Button

@@ Line 73: / Line 73: @@
 Next, we'll need to add a draw method to the DButton class to override the default one.
-(Studio Script)
 <blockquote>
-Add the following code to the DButton class.
+(Studio Script) Add the following code to the DButton class.
 <div class="CodeBlockHeader">Code:</div>
 <syntaxhighlight lang="sci" class="cs">  (method (draw)
@@ Line 168: / Line 168: @@
 * The gWndBack is the color of the actual window.
 <blockquote>
 To go with the default custom button, we'll make the window silver. Change:
 <div class="CodeBlockHeader">Code:</div>
 <syntaxhighlight lang="sci" class="cs">= gWndBack clWHITE</syntaxhighlight>
 To:
 To go with the default custom button, we'll make the window silver. Change:

@@ Line 73: / Line 73: @@
 Next, we'll need to add a draw method to the DButton class to override the default one.
 <blockquote>
@@ Line 118: / Line 119: @@
    )</syntaxhighlight>
-SCI code for SCI Companion.
+(Sierra Script) Add a draw method to the DButton class to override the default one. (Please note this code needs to be added before the method (method (setSize &tmp [rect 4]).
 <div class="CodeBlockHeader">Code:</div>
 <syntaxhighlight lang="sci" class="cs">  (method (draw &tmp x y x2 y2 w h [rect 4])

@@ Line 58: / Line 58: @@
 <div class="CodeBlockHeader">Code:</div>
 <syntaxhighlight lang="sci" class="cs">= nsRight (+ (| (& rect[rtRIGHT] $FFFC) 7) nsLeft)</syntaxhighlight>
 (Sierra Script)

@@ Line 36: / Line 36: @@
 <div class="CodeBlockHeader">Code:</div>
 <syntaxhighlight lang="sci" class="cs">= nsBottom (+ nsTop rect[rtBOTTOM])</syntaxhighlight>
-(Studio Script example) to:
+(Studio Script) to:
 <div class="CodeBlockHeader">Code:</div>
 <syntaxhighlight lang="sci" class="cs">= nsBottom (+ nsTop(| (& rect[rtBOTTOM] $FFFC) 7))</syntaxhighlight>

@@ Line 44: / Line 44: @@
 Change:
 <div class="CodeBlockHeader">Code:</div>
-<syntaxhighlight lang="sci" class="cs">(= nsBottom (+ nsTop (| (& [rect rtBOTTOM] $FFFC) 7)))</syntaxhighlight>
+<syntaxhighlight lang="sci" class="cs">(= nsBottom (+ nsTop [rect rtBOTTOM]))</syntaxhighlight>
 (Sierra Script)

@@ Line 102: / Line 102: @@
+     )
    )</syntaxhighlight>
 Needless to say, that code draws the button. It draws the border and edges, then centers and draws the text. It doesn't bother drawing the inside of the button and just leaves it transparent for speed. It would be a lot slower if it filled in the button with cels.