--- pgadmin2/pgadmin2/frmOptions.frm.orig	Fri Sep 26 17:08:27 2003
+++ pgadmin2/pgadmin2/frmOptions.frm	Mon Sep 29 10:41:54 2003
@@ -1064,7 +1064,14 @@
   objFont.Name = szFont(0)
   objFont.Size = Val(szFont(1))
   objFont.Bold = CBool(szFont(2))
+
+  ' Japanese patch
+  If szFont(3) = "False" Or szFont(3) = "True" Then
   objFont.Italic = CBool(szFont(3))
+  Else
+    objFont.Italic = CBool("False")
+  End If
+
   Set ctx.Font = objFont
   PatchForm frmMain
   RegWrite HKEY_CURRENT_USER, "Software\" & App.Title, "Font", regString, CStr(txtFont.Tag)
@@ -1230,7 +1237,14 @@
   cdlg.FontName = szFont(0)
   cdlg.FontSize = Val(szFont(1))
   cdlg.FontBold = CBool(szFont(2))
+
+  ' Japanese patch
+  If szFont(3) = "False" Or szFont(3) = "True" Then
   cdlg.FontItalic = CBool(szFont(3))
+  Else
+    cdlg.FontItalic = CBool("False")
+  End If
+
   txtFont.Text = cdlg.FontName & ", " & cdlg.FontSize & "pt"
   If cdlg.FontBold Then txtFont.Text = txtFont.Text & ", bold"
   If cdlg.FontItalic Then txtFont.Text = txtFont.Text & ", italic"
--- pgadmin2/pgadmin2/basMisc.bas.orig	Fri Sep 26 17:16:48 2003
+++ pgadmin2/pgadmin2/basMisc.bas	Mon Sep 29 10:42:54 2003
@@ -152,7 +152,14 @@
   objFont.Name = szFont(0)
   objFont.Size = Val(szFont(1))
   objFont.Bold = CBool(szFont(2))
+
+  ' Japanese patch
+  If szFont(3) = "False" Or szFont(3) = "True" Then
   objFont.Italic = CBool(szFont(3))
+  Else
+    objFont.Italic = CBool("False")
+  End If
+
   Set ctx.Font = objFont
   Set frmMain.txtDefinition.Font = ctx.Font
   Set frmMain.tv.Font = ctx.Font