paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 19:43:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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 -
This commit is contained in:
lazarus 2002-09-29 15:08:38 +00:00
parent 24f1528f15
commit df7fc46334
2 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/include/controlsproc.inc
View File

@ -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;

9
lcl/include/customform.inc
View File

@ -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