can't say i've much experience with that command but:
// Project: NamePic
// Created: 2023-11-04
// show all errors
SetErrorMode(2)
// set window properties
SetWindowTitle( "NamePic" )
SetWindowSize( 640,360, 0 )
SetWindowAllowResize( 1 )
// set display properties
SetVirtualResolution( 640,360 )
SetOrientationAllowed( 1, 1, 1, 1 ) // portrait, portrait2, landscape, landscape2
SetSyncRate( 30, 0 )
SetScissor( 0,0,0,0 )
UseNewDefaultFonts( 1 )
CenterWindow()
do
If GetPointerPressed()
ThisFile$ = ChooseRawFile("*.jpg;*.png",1)
If ThisFile$ <> ""
FType$ = GetStringToken(ThisFile$,".",2)
NamePic(LoadImage("raw:"+ThisFile$), FType$)
EndIf
EndIf
Print( "Click to Load Image and Rename" )
Sync()
loop
Function NamePic(img,ft$)
ThisSPR = CreateSprite(img)
SetSpriteSize(ThisSPR,-1,100)
SetSpritePositionByOffset(ThisSPR,GetDeviceWidth()/2.0,250)
Sync()
StartTextInput()
Repeat
Print("[Enter] Image Name")
Sync()
Until GetTextInputCompleted()
DeleteSprite(ThisSPR)
If GetTextInputCancelled() = 0
SaveImage(img, GetTextInput()+"."+ft$)
OpenBrowser(GetWritePath()+"/media")
EndIf
EndFunction
Function CenterWindow()
X = GetMaxDeviceWidth()/2.0 - GetWindowWidth()/2.0
Y = GetMaxDeviceHeight()/2.0 - GetWindowHeight()/2.0
SetWindowPosition( X,Y)
EndFunction
meanwhile, i didn't see a RenameFile() command so it wouldn't have to make a copy of the file but i expect MadBit's
FileExplore has one.
short on time ATM so i'll have to leave this here for now. hope that helps
