'================================================================
'= カラー設定とRGB値
'=    (COLOR.bas)
'================================================================
#include "Windows.bi"

Var Shared RScl As Object
Var Shared GScl As Object
Var Shared BScl As Object
Var Shared Pic As Object
Var Shared Text(5) As Object

'================================================================
'=
'================================================================
Declare Sub Scroll_Change edecl ()
Sub Scroll_Change()
    Pic.SetBackColor RGB( RScl.GetScrollPos, GScl.GetScrollPos, BScl.GetScrollPos)
    Pic.Cls
    Text(3).SetWindowText Format$(RScl.GetScrollPos, "###:") & "&&H" & Hex$(RScl.GetScrollPos)
    Text(4).SetWindowText Format$(GScl.GetScrollPos, "###:") & "&&H" & Hex$(GScl.GetScrollPos)
    Text(5).SetWindowText Format$(BScl.GetScrollPos, "###:") & "&&H" & Hex$(BScl.GetScrollPos)
End Sub

'================================================================
'=
'================================================================
Declare Sub MainForm_Start edecl ()
Sub MainForm_Start()
    RScl.Attach GetDlgItem("RScl")
    RScl.SETScrollPos 128
    GScl.Attach GetDlgItem("GScl")
    GScl.SETScrollPos 128
    BScl.Attach GetDlgItem("BScl")
    BScl.SETScrollPos 128

    Pic.Attach GetDlgItem("Picture1")
    For i = 0 To 5
        Text(i).Attach GetDlgItem("Text" & trim$(str$(i+1)))
        Text(i).SetFontSize 12
    Next

    Scroll_Change
End Sub

'================================================================
'=
'================================================================
Declare Sub MainForm_QueryClose edecl (Cancel%, Mode%)
Sub MainForm_QueryClose(Cancel%, Mode%)
    End
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End