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

(sd-defdialog 'tp_leiter1_skizze
 :uict-option-menu-name "UICT-TPLEITER1"
 :uict-install-function 'tp_leiter_skizze
 :dialog-type :subaction
 :embedded-ui nil        ;; default = t
 :taskBarPage nil

 :variables '(
	(tp_wert1
		:value-type :string
		:uict-tx "UICT-TPLEITER1-dop1-TX"
	)
	(tp_ok
		:push-action (sd-accept-dialog)
		:uict-tb "UICT-TPLEITER1-1-PB"
	)
);;ende variablen
 :ok-action '(list (sd-read-from-string tp_wert1))
);;ende dialog
	 
(sd-defdialog 'tp_leiter1_dialog
 :dialog-title "Leiter erstellen"
 :taskBarPage nil
 :embedded-ui nil  
 :after-initialization
	'(progn
		(setq tp_screen_width (floor (/ (getf (sd-get-toplevel-window-geometry :application) :WIDTH) 2)))
		(setq tp_dia_posx (getf (sd-get-control-geometry "TP_LEITER1_DIALOG-DS") :X))
		(if (> tp_dia_posx tp_screen_width)
		(progn
			(sd-set-variable-status 'tp_rufe_skizze_rechts :visible t)
			(sd-set-variable-status 'tp_rufe_skizze_links :visible nil)
		)
		(progn
			(sd-set-variable-status 'tp_rufe_skizze_rechts :visible nil)
			(sd-set-variable-status 'tp_rufe_skizze_links :visible t)
		));;ende if
	);;ende progn
 :toolbox-button t

 :variables '(
	(tp_number
		:title "Höhe"
		:value-type :length
	)
	(tp_rufe_skizze_rechts
		:push-action (progn)
		:title "Skizze_r"
		:x-offset -1110
		:y-offset -250
		:subaction-name tp_leiter1_skizze
		:after-input
			(progn
				(setq tp_number (first tp_rufe_skizze_rechts))
			)
	)
	(tp_rufe_skizze_links
		:push-action (progn)
		:title "Skizze_l"
		:x-offset 190
		:y-offset -250
		:subaction-name tp_leiter1_skizze
		:after-input
			(progn
				(setq tp_number (first tp_rufe_skizze_links))
			)
	)
);;ende variablen

);;ende dialog

(defun tp_leiter_skizze ()
;	(sd-create-image "tp_1_skizze" :filename (concatenate 'string tainos_pfad "/Leitern/pixmaps/leiter1.bmp"))
	(sd-create-dialog-shell "UICT-TPLEITER1"
		:title           "Leiter geschweißt"
		:bottomLine      :none
		:pin t
	)
	(sd-append-area "UICT-TPLEITER1-1-AA" "UICT-TPLEITER1-AA"
		:frame            nil
		:title            ""
		:margin           3
		:titleForeground  "#ffff00"
		:background       :option
	)
	(sd-append-grid-area "UICT-TPLEITER1-1-GA" "UICT-TPLEITER1-1-AA"
		:frame            t
		:title            ""
		:width            1085
		:height           922
		:cellSize         1,1
	)
;;Anfang Dopplung Texte
;;====================================================================================================================================================
	(sd-create-text-control "UICT-TPLEITER1-dop1-TX" "UICT-TPLEITER1-1-GA"
		:x 342
		:y 171
		:width 34
		:height 25
		:editable t
		:showModified nil
		:showFocus t
		:enterAction
			'()
	)
	(sd-create-label-control "UICT-TPLEITER1-dop1-LB" "UICT-TPLEITER1-1-GA"
		:title "X"
		:x 376
		:y 169
		:width 10
		:height 34
		:alignment :center
	)
	(sd-create-text-control "UICT-TPLEITER1-dop2-TX" "UICT-TPLEITER1-1-GA"
		:x 386
		:y 171
		:width 34
		:height 25
		:editable t
		:showModified nil
		:showFocus t
		:enterAction
			'()
	)
	(sd-create-label-control "UICT-TPLEITER1-dop2-LB" "UICT-TPLEITER1-1-GA"
		:title "X"
		:x 420
		:y 169
		:width 10
		:height 34
		:alignment :center
	)
	(sd-create-text-control "UICT-TPLEITER1-dop3-TX" "UICT-TPLEITER1-1-GA"
		:x 430
		:y 171
		:width 34
		:height 25
		:editable t
		:showModified nil
		:showFocus t
		:enterAction
			'()
	)
	(sd-create-label-control "UICT-TPLEITER1-dopb-LB" "UICT-TPLEITER1-1-GA"
		:title "B"
		:x 355
		:y 146
		:width 10
		:height 34
		:alignment :center
	)
	(sd-create-label-control "UICT-TPLEITER1-doph-LB" "UICT-TPLEITER1-1-GA"
		:title "H"
		:x 399
		:y 146
		:width 10
		:height 34
		:alignment :center
	)
	(sd-create-label-control "UICT-TPLEITER1-dops-LB" "UICT-TPLEITER1-1-GA"
		:title "S"
		:x 443
		:y 146
		:width 10
		:height 34
		:alignment :center
	)
;;====================================================================================================================================================
;;Ende Dopplung Texte

	(sd-create-pushbutton-control "UICT-TPLEITER1-1-PB" "UICT-TPLEITER1-1-GA"
		:x					910
		:y					870
		:width				70
		:height				30
		:title				"OK"
		:pushAction 		'(progn 
;								(setq tp_dop1 (sd-read-from-string(sd-get-text-control-value "UICT-TPLEITER1-dop1-TX" :trimString t)))
;								(setq tp_dop2 (sd-read-from-string(sd-get-text-control-value "UICT-TPLEITER1-dop2-TX" :trimString t)))
;								(setq tp_dop3 (sd-read-from-string(sd-get-text-control-value "UICT-TPLEITER1-dop3-TX" :trimString t)))
;								(sd-destroy-dialog-shell "UICT-TPLEITER1")
;								(setq *tp-leiter-tool* (format nil "tp_beispiel_dialog :tp_hal_h ~a" tp_hal_h1))
;								(sd-call-dialog (format nil "tp_leiter_geschweisst_dialog
;									:tp_dop_b ~a
;									:tp_dop_h ~a
;									:tp_dop_s ~a"
;									tp_dop1
;									tp_dop2
;									tp_dop3
;								))
							);;ende progn
	)
	(sd-create-pushbutton-control "UICT-TPLEITER1-2-PB" "UICT-TPLEITER1-1-GA"
		:x					990
		:y					870
		:width				70
		:height				30
		:title				"Abbrechen"
		:pushAction 		'(progn
;								(sd-destroy-dialog-shell "UICT-TPLEITER1")
;								(sd-call-dialog (format nil "tp_leiter_geschweisst_dialog"))
							);;ende progn
	)
;	(sd-create-label-control "UICT-TPLEITER1-1-LB" "UICT-TPLEITER1-1-GA"
;		:image "tp_1_skizze"
;		:x 0
;		:y 0
;		:width 1070
;		:height 910
;	)
);;ende tp_leiter_skizze