XProfan

English

ByteAttack

SO! After day/Nächtelanger Infinity-Hau-me-In-whom-head

time ne Question XProfan under windows

gives it a SetStyle around the Farbauswahldialog "Ausgeklapp" view?

by me launch it (Win7) always so:

would have been But rather so:

beautiful weekend

XProfan X3
Website: [...]

Facebook: [...]

11/07/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

« this Posting watts as Solution marked. »

Michael
W.

Yes, habs found (the Flag FullOpen) and three Nutzerfarben with indicated...
Compile Mark Separation

'-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.

11/07/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Yes I fürchte -

müsstest times the API-Variante find - there gives one well by
structure z.B. too The Standardfarben on.

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

11/07/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
W.

Yes, habs found (the Flag FullOpen) and three Nutzerfarben with indicated...
Compile Mark Separation

'-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