XProfan

Français

ByteAttack

SO! Pour journée/Nächtelanger Infinity-Hau-Mir-dans-Den-tête

la fois ne Frage trop XProfan sous Windows

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

chez mir startet es (Win7) toujours so:

Hätte es mais lieber so:

Schönes Wochenende

XProfan X3
Website: [...]

Facebook: [...]

07.11.2015 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

« cette Beitrag wurde comme Solution gekennzeichnet. »

Michael
W.

oui, habs trouvé (cela Flag FullOpen) et trois Nutzerfarben avec angegeben...
Kompilieren Marque Séparation

'-Begin----------------------------------------------------------- ------
'-ExternalFunctions---------------------------------------------------
Def @ChooseColor1(1) !"COMDLG32.DLL", "ChooseColorA"
'-StructuresDefinition------------------------------------------------
Déclarer CHOOSECOLOR#
Struct TCHOOSECOLOR = lStructSize&, hwndOwner&, hInstance&, \
rgbResult&, lpCustColors&, Flags&, lCustData&, lpfnHook&, \
lpTemplateName&
Faible 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-------------------------------------------------
Déclarer UDC&[15]
Déclarer 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

Si @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#
'-Fin-------------------------------------------------------------------
Fin

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

07.11.2015 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

oui je fürchte -

müsstest fois le API-variante trouver - là gibt on wohl per
Struktur z.B. aussi qui Standardfarben à.

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

07.11.2015 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
W.

oui, habs trouvé (cela Flag FullOpen) et trois Nutzerfarben avec angegeben...
Kompilieren Marque Séparation

'-Begin----------------------------------------------------------- ------
'-ExternalFunctions---------------------------------------------------
Def @ChooseColor1(1) !"COMDLG32.DLL", "ChooseColorA"
'-StructuresDefinition------------------------------------------------
Déclarer CHOOSECOLOR#
Struct TCHOOSECOLOR = lStructSize&, hwndOwner&, hInstance&, \
rgbResult&, lpCustColors&, Flags&, lCustData&, lpfnHook&, \
lpTemplateName&
Faible 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-------------------------------------------------
Déclarer UDC&[15]
Déclarer 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

Si @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#
'-Fin-------------------------------------------------------------------
Fin