;*********************************************************************************************
; Dateiname 		: 	SD-PX_Energieketten.lsp
; Autor         : 	Stephan Wörz
; Erstellt      :	  09/11
; geändert    	:	 
;*********************************************************************************************
; Beschreibung:		- 
;*********************************************************************************************
; Änderungen
;
;*********************************************************************************************



(in-package   :teo) 
(use-package  :oli)

	(sd-hide-console-window)                  
	(sd-show-console-window)                 
	(setf si::*enter-break-handler* t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; DIALOG  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(sd-create-dialog-shell "SD-PX-Energieketten" 
      :title           	"Energieketten 2" 
      :bottomLine :none ;:ok-cancel-help ;:help 
			:areaBackground  	:command
			:cancelAction    '(display "cancelcancel-action")
			:okAction        '(display "ok")
);;sd-create-dialog-shell


;;================================================================================================
;;=========== GridArea erzeugen (Elternobjekt für weitere Dialogelemente =========================
;;================================================================================================

(sd-append-grid-area "SD-PX-Energieketten-2-GA" "SD-PX-Energieketten-AA"
    :frame nil
    :title ""
    :cellSize 10,10
    :spacing 2
    :margin 3
    :width  800
    :height 180)


;;================================================================================================
;;=========== GridArea 'Informationen' ===========================================================
;;================================================================================================

(sd-append-newline "SD-PX-Energieketten-AA")

(sd-append-grid-area "SD-PX-Energieketten-2-INF" "SD-PX-Energieketten-AA"
    :frame t
    :title "Informationen zur gewÌhlten Energiekette"
    :cellSize 5,5
    :spacing 0
    :margin 0
    :width  800
    :height 400)   

(sd-create-label-control "lbl_Radius_txt" 	 "SD-PX-Energieketten-2-INF"
      :title			(format nil "Radius~10T:") 
      :x          0
      :y          1
			:alignment  :left
      :width      20
      :height     4
);;sd-create-label-control		

(sd-create-label-control "lbl_Radius_val" 	 "SD-PX-Energieketten-2-INF"
      :title			"R"	
      :x          20
      :y          1
			:alignment  :left
      :width      20
      :height     4
);;sd-create-label-control		

	
(sd-create-label-control "lbl_Typ_txt" 	 "SD-PX-Energieketten-2-INF"
      :title			(format nil "Typ~10T:") 
      :x          0
      :y          6
			:alignment  :left
      :width      20
      :height     4
);;sd-create-label-control		
		
(sd-create-label-control "lbl_Typ_val" 	 "SD-PX-Energieketten-2-INF"
      :title			"T"	
      :x          20
      :y          6
			:alignment  :left
      :width      20
      :height     4
);;sd-create-label-control		
		
(sd-show-dialog-shell "SD-PX-Energieketten" :position '("TOP-MENU-TOOLBOX-TB" :bottomleft 100 110))

;;================================================================================================
;;=========== Tabelle erzeugen ===================================================================
;;================================================================================================
(sd-create-logical-table
 "E-ChainParameters"
 :columns     '(:ec_type   			:ec_radius     	:ec_OuterWidth       	:ec_InnerWidth 	:ec_OuterHeight 	:ec_InnerHeight 	:ec_pitch		:ec_Length_1  	:ec_Length_2	)
 :columnNames '("Typ" 					"Radius"     		"Aussere Breite"      "innere Breite"	"aussere Hohe"  	"innere Hohe"			"Teilung"		"Lange 1"				"Lange 2"			)
 ;;:keyColumns  '(:ec_type)
 :secured     nil
 :types       '(:string 				:length       	:length            		:length        		:length					:length						:length			:length					:length				)
 :units       '(nil     				:mm         		:mm                		:mm								:mm							:mm								:mm					:mm							:mm						)
 :contents  '(
							("2600.05.100.0"  100							81										65								50							35								56					100							200						)
							("2600.07.100.0"  100							91										75								50							35								56					100							200						)
							("2600.09.100.0"  100							106										90								50							35								56					100							200						)
							("2600.10.100.0"  100							116										100								50							35								56					100							200						)

						);;contents
);;sd-create-logical-table

;;================================================================================================
;;=========== Funktion "selection-action" ========================================================
;;================================================================================================
(defun E-ChainParameters-table-selection-action (table)
	(progn
			(sd-set-control-title "lbl_Typ_val" 						:title ec_typ)
		  (sd-set-control-title "lbl_Radius_val" 					:title ec_radius)
;	  (sd-show-control (format nil "IMG_~a" ec_type))
;  	(Display (format nil "Radius: ~A" ec_radius))
;		(Display (format nil "Typ: ~A" ec_type))
	);;progn
);;defun E-ChainParameters-table-selection-action

;;================================================================================================
;;=========== Tabelle in UI einbauen =============================================================
;;================================================================================================
(sd-create-display-table-control "ChainSelection-DT" "SD-PX-Energieketten-2-GA"
      :x                    2
      :y                    0
      :width                75
      :height               14
      :logicalTable         "E-ChainParameters"
			:columns              '(:ec_type :ec_radius :ec_OuterWidth :ec_InnerWidth :ec_OuterHeight :ec_InnerHeight :ec_pitch :ec_Length_1  :ec_Length_2)
      :applyColumns         '(:ec_type :ec_radius :ec_OuterWidth :ec_InnerWidth :ec_OuterHeight :ec_InnerHeight :ec_pitch :ec_Length_1  :ec_Length_2)
      :applyAction          :default-tokens
      :selectionMode        :single-row
			:selectionAction      'E-ChainParameters-table-selection-action
);;sd-create-display-table-control	
				

;;	(trace ProceedMFL)
;;	(trace ProceedTemplate)