#|
erstellt: 04.12.2008
letzter Änderungszeitpunkt: 04.12.2008 20:00
Autor: Patrick Weber

Erweiterungen einfach selbst durchführen:

Beispiel:
Block kopieren und anfügen 
        (FARBE0007                                                         ; <--  fortlaufend nummerieren
         :title "RAL 1006"                                                 ; <--  Name ändern
         :toggle-type :grouped-toggle :size :third
         :push-action (setf FARBE (sd-rgb-to-color "#45c18f") KEINE nil)   ; <--  HEX-Farbcode "#rrggbb" ändern
         :next-variable 'TEIL
      )

      HEX-Farbcode kann man z.B. mit dem Rechner auf
      http://www.drpeterjones.com/colorcalc/
      umrechnen.

ä Ì   Ä Ø    ö Î    Ö Ú    ü Ï    Ü Û    ß Þ    ° ³
|#

(in-package :custom)
(use-package :OLI)


(sd-defdialog 'cust-ch-color-part-dialog
:dialog-title "Teile umfÌrben"
:variables
  '(
      ("Ziel")
      (BASIS
         :value-type :grouped-boolean
         :title "Basis"
         :initial-value t
      )
      (EXEMPLAR
         :value-type :grouped-boolean
         :title "Exemplar"
         :initial-value nil
      )
      ("-")
; --------------------------------------------------------------------------------------------------------------------------------------
; AB HIER ERWEITERN --------------------------------------------------------------------------------------------------------

      (FARBE0001 
         :title "RAL 1000"
         :toggle-type :grouped-toggle :size :third
         :push-action (setf FARBE (sd-rgb-to-color "#ccc188") KEINE nil)
         :next-variable 'TEIL
      )
      (FARBE0002 
         :title "RAL 1001"
         :toggle-type :grouped-toggle :size :third
         :push-action (setf FARBE (sd-rgb-to-color "#33f0e6") KEINE nil)
         :next-variable 'TEIL
      )
      (FARBE0003 
         :title "RAL 1002"
         :toggle-type :grouped-toggle :size :third
         :push-action (setf FARBE (sd-rgb-to-color "#00f500") KEINE nil)
         :next-variable 'TEIL
      )
      (FARBE0004 
         :title "RAL 1003"
         :toggle-type :grouped-toggle :size :third
         :push-action (setf FARBE (sd-rgb-to-color "#d40034") KEINE nil)
         :next-variable 'TEIL
      )
      (FARBE0005 
         :title "RAL 1004"
         :toggle-type :grouped-toggle :size :third
         :push-action (setf FARBE (sd-rgb-to-color "#eeee00") KEINE nil)
         :next-variable 'TEIL
      )
      (FARBE0006 
         :title "RAL 1005"
         :toggle-type :grouped-toggle :size :third
         :push-action (setf FARBE (sd-rgb-to-color "#125499") KEINE nil)
         :next-variable 'TEIL
      )


; --------------------------------------------------------------------------------------------------------------------------------------
      (KEINEF
         :title "Keine"
         :toggle-type :wide-toggle
         :push-action (setf FARBE nil KEINE t)
         :next-variable 'TEIL
      )
      (FARBE
         :value-type :rgb-color
         :title "Farbe"
         :initial-enable nil
         :initial-value nil
      )
      (KEINE
         :value-type :boolean
         :initial-value nil
         :initial-visible nil
      )
      (TEIL 
         :selection (*sd-part-seltype*)
         :multiple-items nil
         :initial-value nil
         :prompt-text "Teil angeben"
         :title "Teil"
         :after-input
            (progn
               (if KEINE
                  (if BASIS
                        (sd-call-cmds (set_part_base_color :parts TEIL :clr))
                        (sd-call-cmds (set_part_inst_color :parts TEIL :clr))
                  )
                  (when FARBE
                     (if BASIS
                        (sd-call-cmds (set_part_base_color :parts TEIL :color FARBE))
                        (sd-call-cmds (set_part_inst_color :parts TEIL :color FARBE))
                     )
                  )
               )
               (setf TEIL nil)
            )
         :next-variable 'TEIL
      )
   )
:mutual-exclusion '(BASIS EXEMPLAR)
:local-functions '()
:ok-action '()
:help-action '()
)