From 5a1095794e2d7220d7d87b4d4918aa3eabb70bc5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= Date: Sun, 1 Jan 2023 14:53:52 +0100 Subject: [PATCH] FileView: Number of pages are now be more readable on dark backgrounds. [GB.FORM] * BUG: FileView: Remove a debugging message. * NEW: FileView: Number of pages are now be more readable on dark backgrounds. --- comp/src/gb.form/.src/File/CTaskPreview.class | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/comp/src/gb.form/.src/File/CTaskPreview.class b/comp/src/gb.form/.src/File/CTaskPreview.class index aff5e28c9..15cb97bc1 100644 --- a/comp/src/gb.form/.src/File/CTaskPreview.class +++ b/comp/src/gb.form/.src/File/CTaskPreview.class @@ -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