*** Projects\org\Main.pas	Sat Jan 20 16:30:00 2001
--- Projects\Main.pas	Thu May 10 10:00:00 2001
***************
*** 1147,1153 ****
    if (Message.CmdType = 9999) and not InExecuteLoop then
      ShowAboutBox
    else
!     inherited;
  end;
  
  function TMainForm.GetPalette: HPALETTE;
--- 1147,1158 ----
    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;
***************
*** 1172,1177 ****
--- 1177,1192 ----
  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;
***************
*** 1203,1209 ****
      SetBkMode (Handle, TRANSPARENT);
  
      SetFontNameSize (Font, SetupMessages[msg_TitleFont], 'Arial', 29);
!     Font.Style := [fsBold, fsItalic];
      R := ClientRect;
      InflateRect (R, -8, -8);
      R2 := R;
--- 1218,1227 ----
      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;
