XProfan

Español

ByteAttack

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

ne el turno de preguntas a XProfan bajo Windows

Gibt lo una SetStyle en el Farbauswahldialog "Ausgeklapp" anzuzeigen?

En me startet lo (Win7) siempre así:

Hätte lo aber más bien así:

Schönes Wochenende

XProfan X3
Website: [...]

Facebook: [...]

07.11.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

« Dieser Contribución wurde como Solución gekennzeichnet. »

Michael
W.

Sí, habs gefunden (el Flag FullOpen) y drei Nutzerfarben con angegeben...
Kompilieren Marca Separación

'-Begin----------------------------------------------------------- ------
'-ExternalFunctions---------------------------------------------------
Def @ChooseColor1(1) !"COMDLG32.DLL", "ChooseColorA"
'-StructuresDefinition------------------------------------------------
Declarar 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-------------------------------------------------
Declarar UDC&[15]
Declarar 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

Disponer CHOOSECOLOR#
'-End-------------------------------------------------------------------
End

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

07.11.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Sí Yo fürchte -

müsstest veces el API-Variante encontrar - como son uno wohl por
Struktur z.B. auch el Standardfarben a.

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

07.11.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
W.

Sí, habs gefunden (el Flag FullOpen) y drei Nutzerfarben con angegeben...
Kompilieren Marca Separación

'-Begin----------------------------------------------------------- ------
'-ExternalFunctions---------------------------------------------------
Def @ChooseColor1(1) !"COMDLG32.DLL", "ChooseColorA"
'-StructuresDefinition------------------------------------------------
Declarar 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-------------------------------------------------
Declarar UDC&[15]
Declarar 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

Disponer CHOOSECOLOR#
'-End-------------------------------------------------------------------
End