XProfan

Deutsch

ByteAttack

SO! Nach Tag/Nächtelanger Infinity-Hau-Mir-In-Den-Kopf

mal ne Frage zu XProfan unter Windows

Gibt es einen SetStyle um den Farbauswahldialog "Ausgeklapp" anzuzeigen?

Bei mir startet es (Win7) immer so:

Hätte es aber lieber so:

Schönes Wochenende

XProfan X3
Website: [...]

Facebook: [...]

07.11.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

« Dieser Beitrag wurde als Lösung gekennzeichnet. »

Michael
W.

Ja, habs gefunden (das Flag FullOpen) und drei Nutzerfarben mit angegeben...
Kompilieren Markieren Separieren

'-Begin----------------------------------------------------------- ------
'-ExternalFunctions---------------------------------------------------
Def @ChooseColor1(1) !"COMDLG32.DLL", "ChooseColorA"
'-StructuresDefinition------------------------------------------------
Declare CHOOSECOLOR#
Struct TCHOOSECOLOR = lStructSize&, hwndOwner&, hInstance&, \
rgbResult&, lpCustColors&, Flags&, lCustData&, lpfnHook&, \
lpTemplateName&
Dim CHOOSECOLOR#, TCHOOSECOLOR
'-ConstantsDefinition-------------------------------------------------
Def &CC_ANYCOLOR $100
Def &CC_ENABLEHOOK $10
Def &CC_ENABLETEMPLATE $20
Def &CC_ENABLETEMPLATEHANDLE $40
Def &CC_FULLOPEN $2
Def &CC_PREVENTFULLOPEN $4
Def &CC_RGBINIT $1
Def &CC_SHOWHELP $8
Def &CC_SOLIDCOLOR $80
'-VariablesDefinition-------------------------------------------------
Declare UDC&[15]
Declare Res$
'-Main----------------------------------------------------------------
'-Define UserColors-------------------------------------------------
UDC&[0] = @RGB(255, 127, 255)
UDC&[1] = @RGB(255, 127, 127)
UDC&[2] = @RGB(127, 127, 127)
'-------------------------------------------------------------------

With CHOOSECOLOR#

    .lStructSize& = @SizeOf(CHOOSECOLOR#)
    .hwndOwner& = 0
    .hInstance& = 0
    .rgbResult& = @RGB(0, 255, 0)
    .lpCustColors& = @Addr(UDC&[0])
    .Flags& = &CC_FULLOPEN | &CC_ANYCOLOR | &CC_RGBINIT

EndWith

If @ChooseColor1(CHOOSECOLOR#)

    Res$ = @Str$(CHOOSECOLOR#.rgbResult&) + "\n"
    Res$ = Res$ + "Rotanteil: " + \
    @Str$(@GetRValue(CHOOSECOLOR#.rgbResult&)) + "\n"
    Res$ = Res$ + "Grünanteil: " + \
    @Str$(@GetGValue(CHOOSECOLOR#.rgbResult&)) + "\n"
    Res$ = Res$ + "Blauanteil: " + \
    @Str$(@GetBValue(CHOOSECOLOR#.rgbResult&))
    @MessageBox(Res$, "Gewählte Farbe", 64)

EndIf

Dispose CHOOSECOLOR#
'-End-------------------------------------------------------------------
End

System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

07.11.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Ja ich fürchte -

müsstest mal die API-Variante finden - da gibt man wohl per
Struktur z.B. auch die Standardfarben an.

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

07.11.2015 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
W.

Ja, habs gefunden (das Flag FullOpen) und drei Nutzerfarben mit angegeben...
Kompilieren Markieren Separieren

'-Begin----------------------------------------------------------- ------
'-ExternalFunctions---------------------------------------------------
Def @ChooseColor1(1) !"COMDLG32.DLL", "ChooseColorA"
'-StructuresDefinition------------------------------------------------
Declare CHOOSECOLOR#
Struct TCHOOSECOLOR = lStructSize&, hwndOwner&, hInstance&, \
rgbResult&, lpCustColors&, Flags&, lCustData&, lpfnHook&, \
lpTemplateName&
Dim CHOOSECOLOR#, TCHOOSECOLOR
'-ConstantsDefinition-------------------------------------------------
Def &CC_ANYCOLOR $100
Def &CC_ENABLEHOOK $10
Def &CC_ENABLETEMPLATE $20
Def &CC_ENABLETEMPLATEHANDLE $40
Def &CC_FULLOPEN $2
Def &CC_PREVENTFULLOPEN $4
Def &CC_RGBINIT $1
Def &CC_SHOWHELP $8
Def &CC_SOLIDCOLOR $80
'-VariablesDefinition-------------------------------------------------
Declare UDC&[15]
Declare Res$
'-Main----------------------------------------------------------------
'-Define UserColors-------------------------------------------------
UDC&[0] = @RGB(255, 127, 255)
UDC&[1] = @RGB(255, 127, 127)
UDC&[2] = @RGB(127, 127, 127)
'-------------------------------------------------------------------

With CHOOSECOLOR#

    .lStructSize& = @SizeOf(CHOOSECOLOR#)
    .hwndOwner& = 0
    .hInstance& = 0
    .rgbResult& = @RGB(0, 255, 0)
    .lpCustColors& = @Addr(UDC&[0])
    .Flags& = &CC_FULLOPEN | &CC_ANYCOLOR | &CC_RGBINIT

EndWith

If @ChooseColor1(CHOOSECOLOR#)

    Res$ = @Str$(CHOOSECOLOR#.rgbResult&) + "\n"
    Res$ = Res$ + "Rotanteil: " + \
    @Str$(@GetRValue(CHOOSECOLOR#.rgbResult&)) + "\n"
    Res$ = Res$ + "Grünanteil: " + \
    @Str$(@GetGValue(CHOOSECOLOR#.rgbResult&)) + "\n"
    Res$ = Res$ + "Blauanteil: " + \
    @Str$(@GetBValue(CHOOSECOLOR#.rgbResult&))
    @MessageBox(Res$, "Gewählte Farbe", 64)

EndIf

Dispose CHOOSECOLOR#
'-End-------------------------------------------------------------------
End