Le portail francophone de la géomatique

Sub Main
Dialog Title "La belle fenêtre!!" Width 345 Height 384  
    Control StaticText Position 87,118 Width 48 Height 10 Title "Style par déf.:"
    Control BrushPicker Position 135,113 Width 20 Height 20 calling ModifStyleDef ID 2100  'Into reg_brush
               Value CurrentBrush()
               Disable
      Control Button Position 135,113 Width 20 Height 20 Title "."  calling ModifStyleDef

If CommandInfo(CMD_INFO_DLG_OK) Then print "Youpiiiiiiiii!"
End Sub
'---------------------------------------------------------------
Sub ModifStyleDef 
dim a, b, c, d, e, f as integer
  print currentbrush() & chr$(10) & CurrentBorderPen()
    run menu command M_FORMAT_PICK_FILL
    a = styleAttr(currentbrush(), BRUSH_PATTERN)
    b = styleAttr(currentbrush(), BRUSH_FORECOLOR) 
     c = styleAttr(currentbrush(), BRUSH_BACKCOLOR) 
     d = styleAttr(CurrentBorderPen(), PEN_WIDTH)
     e = styleAttr(CurrentBorderPen(), PEN_PATTERN)
     f = styleAttr(CurrentBorderPen(), PEN_COLOR)

    Set Style Brush MakeBrush(a, b, c)
    Set Style BorderPen MakePen(d, e, f)
     print currentbrush() & chr$(10) & CurrentBorderPen() ' j'ai vérifié, le CirrentBorderPen est bien modifié

     Alter Control 2100 value currentbrush() 
end sub

Sub main
  
    'config' des styles par défaut sinon message d'erreur (je ne sais pas pourquoi, un OnError ne détecte pas l'absence de définition de DefaultBrush ou CurBrush)
    DefaultBrush = MakeBrush (1,8421504, -1) 
    CurBrush = MakeBrush (16,8421504, -1)
    Set Style BorderPen MakePen(2,2,8421504)  

  call main2

end sub

Sub Main2

    Dialog Title "Oh la belle fenêtre" Width 345 Height 384  

    'les boutons de choix de styles par défaut ou pour l'objet courant
    Control StaticText Position 87,118 Width 48 Height 10 Title "Style par déf.:"
    Control BrushPicker Position 135,113 Width 20 Height 20 calling ModifStyleDef ID 2100  'Into reg_brush
           Value DefaultBrush
           Disable
      Control Button Position 135,113 Width 20 Height 20 Title "."  calling ModifStyleDef

    Control StaticText Position 161,118 Width 53 Height 10 Title "Cadre en cours:"
    Control BrushPicker Position 215,113 Width 20 Height 20 calling ModifStyleCur ID 2200  'Into reg_brush
            Value CurBrush
            Disable 
      Control Button Position 215,113 Width 20 Height 20 Title "."  calling ModifStyleCur

end sub

Sub ModifStyleDef 
    run menu command M_FORMAT_PICK_FILL
     DefaultBrush = currentbrush()
    Dialog remove
    call Main2
end sub

Sub ModifStyleCur
    run menu command M_FORMAT_PICK_FILL
     CurBrush = currentbrush()
    Dialog remove
    call Main2
end sub