# Gambas Form File 3.0 { Form Form MoveScaled(0,0,64,59) Text = ("Rename all pictures") Resizable = False { Panel1 Panel MoveScaled(2,21,60,22) Border = Border.Sunken { txtPre TextBox MoveScaled(24,2,35,4) } { SpinBox1 SpinBox MoveScaled(24,7,6,4) MinValue = 1 MaxValue = 5 } { txtStart TextBox MoveScaled(24,12,10,4) Text = ("1") MaxLength = 5 } { CheckFile CheckBox MoveScaled(2,17,55,3) Text = ("Keep original filename as suffix") Value = CheckBox.True } { Label2 Label MoveScaled(2,7,22,4) Text = ("Number format") } { Label3 Label MoveScaled(31,7,13,4) Text = ("digits") } { Label5 Label MoveScaled(2,2,22,4) Text = ("Prefix") } { Label6 Label MoveScaled(2,12,22,4) Text = ("Start value") } } { btnOK Button MoveScaled(46,53,16,4) Text = ("&OK") Default = True } { btnCancel Button MoveScaled(28,53,16,4) Text = ("&Cancel") Cancel = True } { TextLabel1 TextLabel MoveScaled(2,2,60,14) Background = &HFFFCCC& Padding = 7 Text = ("This function will rename all .jp(e)g files in the directory and add serial numbers to the filenames.
The pictures will be handled in the order they are shown right now, in rows from left to right, rows from top to bottom.") Border = Border.Etched } { Label1 Label MoveScaled(2,18,19,3) Text = ("Options") } { Label4 Label MoveScaled(2,46,11,4) Text = ("Example:") } { lblExample Label MoveScaled(13,46,49,4) Font = Font["Bold"] Background = Color.TextBackground Alignment = Align.Center Border = Border.Etched } }