MWE: Applied patch from "Andrew Johnson" <aj_genius@hotmail.com>

Patch includes:
    -fixes Problems with hiding modal forms
    -temporarily fixes TCustomForm.BorderStyle in bsNone
    -temporarily fixes problems with improper tabbing in TSynEdit

git-svn-id: trunk@3375 -

lcl/include/controlsproc.inc

@@ -18,6 +18,26 @@ Begin
   List.Add(Item);
 End;
 
+Procedure ListInsert(var List : TList; Index : Longint; Item: Pointer);
+Begin
+  if List = nil then List := TList.Create;
+  List.Insert(Index, Item);
+End;
+
+Function ListIndexOf(var List : TList; Item: Pointer) : Longint;
+Begin
+  Result := -1;
+  if List = nil then exit;
+  Result := List.IndexOf(Item);
+End;
+
+Function ListCount(List : TList) : Longint;
+Begin
+  Result := 0;
+  if List = nil then exit;
+  Result := List.Count;
+End;
+
 Procedure ListRemove(var List : TList; Item: Pointer);
 Begin
   if List=nil then exit;

lcl/include/customform.inc

@@ -874,6 +874,8 @@ end;
 {------------------------------------------------------------------------------}
 procedure TCustomForm.Hide;
 begin
+  If fsModal in FormState then
+    ModalResult := mrCancel;
   Visible := False;
 end;
 
@@ -1133,6 +1135,13 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.60  2002/09/29 15:08:38  lazarus
+  MWE: Applied patch from "Andrew Johnson" <aj_genius@hotmail.com>
+    Patch includes:
+      -fixes Problems with hiding modal forms
+      -temporarily fixes TCustomForm.BorderStyle in bsNone
+      -temporarily fixes problems with improper tabbing in TSynEdit
+
   Revision 1.59  2002/09/16 16:18:50  lazarus
   MG: fixed mem leak in TPixmap