luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

FileView: Number of pages are now be more readable on dark backgrounds.

Browse source 
[GB.FORM]
* BUG: FileView: Remove a debugging message.
* NEW: FileView: Number of pages are now be more readable on dark backgrounds.
This commit is contained in:
Benoît Minisini 2023-01-01 14:53:52 +01:00
parent 166bb46e7e
commit 5a1095794e
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
comp/src/gb.form/.src/File/CTaskPreview.class
View file

@ -126,9 +126,11 @@ Private Sub PrintIcon(hImage As Image, sThumb As String, Optional bVideo As Bool
hRect.X = X + hImage.W - hRect.W - hRect.H / 4
hRect.Y = Y + hImage.H - hRect.H - hRect.H / 4
Paint.Rectangle(hRect.X, hRect.Y, hRect.W, hRect.H, hRect.H)
Paint.Background = Color.TextForeground
Paint.Fill
Paint.Background = Color.Gradient(Color.TextForeground, Color.TextBackground, 0.33)
Paint.Fill(True)
Paint.Background = Color.TextBackground
Paint.LineWidth = 1
Paint.Stroke
Paint.DrawText(CStr(nPage), hRect.X, hRect.Y, hRect.W, hRect.H, Align.Center)
Endif
@ -213,7 +215,7 @@ Private Sub PrintPdfFile(sPath As String, sThumb As String)
Try hPdf = New PdfDocument(sPath)
If Error Then
Error File.Name(sPath); ": "; Error.Text
'Error File.Name(sPath); ": "; Error.Text
Return
Endif
If hPdf.Count = 0 Then Return