浏览代码

* avoid ugly border draw on windows without owners in fvision

pierre 23 年之前
父节点
当前提交
851892016b
共有 1 个文件被更改,包括 6 次插入2 次删除
  1. 6 2
      ide/fpviews.pas

+ 6 - 2
ide/fpviews.pas

@@ -1740,7 +1740,8 @@ begin
   if Title<>nil then DisposeStr(Title);
   if Title<>nil then DisposeStr(Title);
   Title:=NewStr(ATitle);
   Title:=NewStr(ATitle);
 {$ifdef FVISION}
 {$ifdef FVISION}
-  DrawBorder;
+  If assigned(Owner) then
+    DrawBorder;
 {$else}
 {$else}
   Frame^.DrawView;
   Frame^.DrawView;
 {$endif}
 {$endif}
@@ -4207,7 +4208,10 @@ end;
 END.
 END.
 {
 {
   $Log$
   $Log$
-  Revision 1.17  2002-05-29 22:38:13  pierre
+  Revision 1.18  2002-05-30 15:02:39  pierre
+   * avoid ugly border draw on windows without owners in fvision
+
+  Revision 1.17  2002/05/29 22:38:13  pierre
    Asciitab now in fvision
    Asciitab now in fvision
 
 
   Revision 1.16  2002/05/24 21:15:31  pierre
   Revision 1.16  2002/05/24 21:15:31  pierre