*** Projects\org\Main.pas	Sat Dec 30 00:00:00 2000
--- Projects\Main.pas	Thu May 10 23:39:52 2001
***************
*** 1515,1521 ****
    if (Message.CmdType = 9999) and not InExecuteLoop then
      ShowAboutBox
    else
!     inherited;
  end;
  
  function TMainForm.GetPalette: HPALETTE;
--- 1515,1526 ----
    if (Message.CmdType = 9999) and not InExecuteLoop then
      ShowAboutBox
    else
!     case Message.CmdType of
!       SC_MOVE, SC_MOVE + 2:Message.Result := 0;
!       SC_SIZE..SC_SIZE + 8:Message.Result := 0;
!     else
!       inherited;
!     end;
  end;
  
  function TMainForm.GetPalette: HPALETTE;
***************
*** 1540,1545 ****
--- 1545,1560 ----
  end;
  
  procedure TMainForm.FormPaint(Sender: TObject);
+ 
+   function IsMultiByteString(s: string): Boolean;
+   var
+     i: integer;
+   begin
+     for i := 1 to Length(s) do
+       if IsDBCSLeadByte(Ord(s[i])) then Break;
+     Result := (i <= Length(s));
+   end;
+ 
  var
    C1, C2: TColor;
    CS: TPoint;
***************
*** 1571,1577 ****
      SetBkMode (Handle, TRANSPARENT);
  
      SetFontNameSize (Font, SetupMessages[msg_TitleFont], 'Arial', 29);
!     Font.Style := [fsBold, fsItalic];
      R := ClientRect;
      InflateRect (R, -8, -8);
      R2 := R;
--- 1586,1595 ----
      SetBkMode (Handle, TRANSPARENT);
  
      SetFontNameSize (Font, SetupMessages[msg_TitleFont], 'Arial', 29);
!     if IsMultiByteString(SetupHeader.AppName) then
!       Font.Style := [fsBold]
!     else
!       Font.Style := [fsBold, fsItalic];
      R := ClientRect;
      InflateRect (R, -8, -8);
      R2 := R;
