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

quick fixed crashing property overloading BorderStyle

Browse Source 
git-svn-id: trunk@5496 -
This commit is contained in:
mattias 2004-05-21 18:20:11 +00:00
parent c01cf47133
commit 5d9f229457
2 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/forms.pp
View File

@ -410,7 +410,6 @@ type
procedure Notification(AComponent: TComponent; Operation : TOperation);override;
procedure PaintWindow(dc : Hdc); override;
procedure RequestAlign; override;
procedure SetBorderStyle(NewStyle: TBorderStyle); override;
procedure SetZOrder(Topmost: Boolean); override;
procedure UpdateShowing; override;
procedure UpdateWindowState;

11
lcl/include/customform.inc
View File

@ -971,14 +971,6 @@ begin
end;
end;
{------------------------------------------------------------------------------}
{ TCustomForm SetBorderStyle }
{------------------------------------------------------------------------------}
procedure TCustomForm.SetBorderStyle(NewStyle: TBorderStyle);
begin
SetFormBorderStyle(NewStyle);
end;
{------------------------------------------------------------------------------}
{ TCustomForm SetFormBorderStyle }
{------------------------------------------------------------------------------}
@ -1613,6 +1605,9 @@ end;
{ =============================================================================
$Log$
Revision 1.138 2004/05/21 18:20:11 mattias
quick fixed crashing property overloading BorderStyle
Revision 1.137 2004/05/21 18:12:17 mattias
quick fixed crashing property overloading BorderStyle