I have written a Dialog which helps with my record collection:
Code:
Rename_dlg = "Rename Album Track Ids" n = 1 ui_modeless_dlg_box(Rename_dlg,<<%dlg% {startup=Reset_Button_Click} {Background=#204+153+255} {region} Number of Discs:| [%z;s1,7%.6N]; {endregion}; {region} {frame=4,2:Disc 1} S1:| [.4s1] E1:| [.4e1!e1ChangeEvent] R1:| [.6r1]; S2:| [.4s2] E2:| [.4e2!e2ChangeEvent] R2:| [.6r2]; {condition=(N>1)} {frame=4,2:Disc 2} S3:| [.4s3] E3:| [.4e3!e3ChangeEvent] R3:| [.6r3]; S4:| [.4s4] E4:| [.4e4!e4ChangeEvent] R4:| [.6r4]; {condition=(N>2)} {frame=4,2:Disc 3} S5:| [.4s5] E5:| [.4e5!e5ChangeEvent] R5:| [.6r5]; S6:| [.4s6] E6:| [.4e6!e6ChangeEvent] R6:| [.6r6]; {condition=(N>3)} {frame=4,2:Disc 4} S7:| [.4s7] E7:| [.4e7!e7ChangeEvent] R7:| [.6r7]; S8:| [.4s8] E8:| [.4e8!e8ChangeEvent] R8:| [.6r8]; {condition=(N>4)} {frame=4,2:Disc 5} S9:| [.4s9] E9:| [.4e9!e9ChangeEvent] R9:| [.6r9]; S10:| [.4s10] E10:| [.4e10!e10ChangeEvent] R10:| [.6r10]; {condition=(N>5)} {frame=4,2:Disc 6} S11:| [.4s11] E11:| [.4e11!e11ChangeEvent] R11:| [.6r11]; S12:| [.4s12] E12:| [.4e12!e12ChangeEvent] R12:| [.6r12]; {condition=(N>6)} {frame=4,3:Disc 7} S13:| [.4s11] E13:| [.4e13!e11ChangeEvent] R13:| [.6r13]; S14:| [.4s12] E14:| [.4e14] R14:| [.6r14]; {endregion}; {endregion}; {condition=.t.} {line=1,0}; {region} <*8Replace!Replace_Button_Click><8Close!CLOSE_Button_Click><8Reset!RESET_button_click> {endregion}; %dlg%,<<%code% if a_dlg_button = "CLOSE_Button_Click" then ui_modeless_dlg_close(Rename_dlg) end if if a_dlg_button ="e1ChangeEvent" then a_dlg_button = "" S2 = increment_value(e1) end if if a_dlg_button ="e2ChangeEvent" then a_dlg_button = "" S3 = increment_value(e2) end if if a_dlg_button ="e3ChangeEvent" then a_dlg_button = "" S4 = increment_value(e3) end if if a_dlg_button ="e4ChangeEvent" then a_dlg_button = "" S5 = increment_value(e4) end if if a_dlg_button ="e5ChangeEvent" then a_dlg_button = "" S6 = increment_value(e5) end if if a_dlg_button ="e6ChangeEvent" then a_dlg_button = "" S7 = increment_value(e6) end if if a_dlg_button ="e7ChangeEvent" then a_dlg_button = "" S8 = increment_value(e7) end if if a_dlg_button ="e8ChangeEvent" then a_dlg_button = "" S9 = increment_value(e8) end if if a_dlg_button ="e9ChangeEvent" then a_dlg_button = "" S10 = increment_value(e9) end if if a_dlg_button ="e10ChangeEvent" then a_dlg_button = "" S11 = increment_value(e10) end if if a_dlg_button ="e11ChangeEvent" then a_dlg_button = "" S12 = increment_value(e11) end if if a_dlg_button ="e12ChangeEvent" then a_dlg_button = "" S13 = increment_value(e12) end if if a_dlg_button = "RESET_button_click" then e1 = "" e2 = "18" e3 = "" e4 = "" e5 = "" e6 = "" e7 = "" e8 = "" e9 = "" e10 ="" e11 = "" e12 = "" r1 = "A1" r2 = "B1" r3 = "C1" r4 = "D1" r5 = "E1" r6 = "F1" r7 = "G1" r8 = "H1" r9 = "I1" r10 = "J1" r11 = "K1" r12 = "L1" r13 = "M1" r14 = "N1" s1 = "01" s2 = "" s3 = "" s4 = "" s5 = "" s6 = "" s7 = "" s8 = "" s9 = "" s10 = "" s11 = "" s12 = "" s13 = "" s14 = "" a_dlg_button = "" end if if a_dlg_button = "replace_button_click" then ' does stuff !! end if %code%)
Comment