Update Panel.bas

XusinboyBekchanov · May 5, 2024 · ab3881a · ab3881a
1 parent 6fd6a34
commit ab3881a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/mff/Panel.bas b/mff/Panel.bas
@@ -193,7 +193,7 @@ Namespace My.Sys.Forms
 					End With
 				End If
 				If ShowCaption Then
-					Canvas.Font.Size = Canvas.Font.Size
+					SelectObject(Canvas.Handle, Canvas.Font.Handle)
 					Canvas.TextOut(Current.X, Current.Y, FText, Font.Color, FBackColor)
 				End If
 				If OnPaint Then OnPaint(*Designer, This, Canvas)