Moderators: petermad, Stefan2, Hacker
2ghisler(Author)ghisler(Author) wrote: 2026-06-01, 07:37 UTC Therefore it would be beneficial to keep the width a bit below 800 pixels.
It took the entire week to replicate the original screenshot session environment to the tiniest detail possible, on Windows 11.beb wrote: 2026-05-31, 10:01 UTC ...And I'm not going to hurry up, so if everything goes well, we will see the results around the next weekend.
I simply open a notepad window, maximize it, and move TC to the middle. Then use Alt+PrintScreen and paste to MS paint (small canvas). MS Paint automatically resizes the window to a larger pasted image. To get rid of the title bar name, use camper.I'm considering the option of making the screenshots over a monochrome wallpaper (like white) as a last resort.
No, thanks, it leaves noisy artefacts everywhere, even outside the corners.
I made an AutoHotkey script for that:
Code: Select all
#Requires AutoHotkey v2.0
Persistent()
SetTimer(ForceTitle, 100)
ForceTitle()
{
if WinExist("ahk_class TTOTAL_CMD")
{
CurrentTitle := WinGetTitle("ahk_class TTOTAL_CMD")
; Check if the title still contains registration text
if InStr(CurrentTitle, "Registered") or InStr(CurrentTitle, "-")
{
WinSetTitle("Total Commander (x64) 11.58", "ahk_class TTOTAL_CMD")
}
}
}
Code: Select all
$time = [diagnostics.stopwatch]::StartNew()
$env:Path +=";$env:OneDrive\Media\ImageMagick\bin"
$path = [IO.DirectoryInfo]$pwd.path
$type = '.png'
# screenshot target size = original image size
$width = 770
$height = 530
$size = '{0}x{1}' -f $width,$height
$coordinates = '{0},{1}' -f ($width-1),($height-1)
$files = Get-ChildItem -path $path -file -recurse -force -exclude "*2009*"|Where {
$_.extension -in $type -and $_.Name -notlike '*fix.*'} #|Select -first 10
# process files
'processing {0} files...' -f $files.count|Write-Host -f Yellow
foreach ($file in $files){
# display input
[IO.Path]::GetRelativePath($path,$file)
# make transparent round corners, trying three radii:
$radii = 8,7,6 # 8-pixel is native but overkill, 7-pixel good, but 6-pixel is the best, imho
foreach ($radius in $radii) {
# output path and naming
$outputPath = $file.Directory
$outputName = '{0}_radius_{1}x{2}_fix{3}' -f $file.BaseName,$radius,$radius,$file.Extension
$output = [IO.FileInfo][IO.Path]::combine($outputPath,$outputName)
$command = $file.FullName,
'-alpha', 'set',
'(', '-size', $size, 'xc:none', '-fill', 'white', '-draw', "roundRectangle 0,0 $coordinates $radius,$radius", ')',
'-compose', 'DstIn',
'-composite',
'-define', 'png:color-type=6', # = png32:$output.FullName
$output.FullName
magick @command
# display output
[IO.Path]::GetRelativePath($path,$output)|Write-Host -f Green
} # end of radii loop
''
} # end of input files loop
# finalize
$time.Stop()
'{0} items processed for {1:mm\:ss\.fff}' -f $files.count,$time.Elapsed
'by {0}' -f $MyInvocation.MyCommand.Name
sleep -seconds 33
Why not? Most of the users who install the app from the developer will have that.
I've just tried that. Nice. However, it does not produce those transparent corners as well.ghisler(Author) wrote: 2026-06-08, 08:56 UTC I simply open a notepad window, maximize it, and move TC to the middle. Then use Alt+PrintScreen and paste to MS paint (small canvas). MS Paint automatically resizes the window to a larger pasted image...
Currently, a copy of Total Commander dedicated to screenshot making has no plugins installed and is doing well.
