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

LCL: removed useless property setter

Browse Source 
git-svn-id: trunk@33524 -
This commit is contained in:
juha 2011-11-14 09:33:15 +00:00
parent 241f651b88
commit 9b08f69b27
2 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/forms.pp
View File

@ -473,7 +473,6 @@ type
procedure SetFormBorderStyle(NewStyle: TFormBorderStyle); procedure SetFormBorderStyle(NewStyle: TFormBorderStyle);
procedure SetCancelControl(NewControl: TControl); procedure SetCancelControl(NewControl: TControl);
procedure SetDefaultControl(NewControl: TControl); procedure SetDefaultControl(NewControl: TControl);
procedure SetDesigner(Value : TIDesigner);
procedure SetFormStyle(Value : TFormStyle); procedure SetFormStyle(Value : TFormStyle);
procedure SetIcon(AValue: TIcon); procedure SetIcon(AValue: TIcon);
procedure SetMenu(Value: TMainMenu); procedure SetMenu(Value: TMainMenu);
@ -653,7 +652,7 @@ type
property DefaultControl: TControl read FDefaultControl write SetDefaultControl; property DefaultControl: TControl read FDefaultControl write SetDefaultControl;
property DefaultMonitor: TDefaultMonitor read FDefaultMonitor property DefaultMonitor: TDefaultMonitor read FDefaultMonitor
write FDefaultMonitor default dmActiveForm; write FDefaultMonitor default dmActiveForm;
property Designer: TIDesigner read FDesigner write SetDesigner; property Designer: TIDesigner read FDesigner write FDesigner;
property FormState: TFormState read FFormState; property FormState: TFormState read FFormState;
property FormStyle: TFormStyle read FFormStyle write SetFormStyle property FormStyle: TFormStyle read FFormStyle write SetFormStyle
default fsNormal; default fsNormal;

8
lcl/include/customform.inc
View File

@ -1102,14 +1102,6 @@ begin
end; end;
end; end;
{------------------------------------------------------------------------------
TCustomForm SetDesigner
------------------------------------------------------------------------------}
procedure TCustomForm.SetDesigner(Value : TIDesigner);
Begin
FDesigner := Value;
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
procedure TCustomForm.SetZOrder(Topmost: Boolean); procedure TCustomForm.SetZOrder(Topmost: Boolean);
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}