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

lcl: remove TButtonConrol.UseOnChange, register it as a removed property

Browse Source 
others: remove various placed where we used UseOnChage property

git-svn-id: trunk@17740 -
This commit is contained in:
paul 2008-12-09 04:24:54 +00:00
parent c9039dd63d
commit 5a7173ef9a
5 changed files with 6 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/rtticontrols/rttictrls.pas
View File

@ -835,7 +835,6 @@ Type
property State;
property TabOrder;
property TabStop;
property UseOnChange;
property Visible;
end;

1
lcl/dbctrls.pp
View File

@ -472,7 +472,6 @@ Type
property ShowHint;
property TabOrder;
property TabStop;
property UseOnChange;
property ValueChecked: string read FValueCheck write SetValueCheck;
property ValueUnchecked: string read FValueUncheck write SetValueUncheck;
property Visible;

1
lcl/include/buttoncontrol.inc
View File

@ -62,7 +62,6 @@ end;
constructor TButtonControl.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
FUseOnChange := False;
ControlStyle := ControlStyle-csMultiClicks-[csAcceptsControls,csCaptureMouse];
end;

13
lcl/stdctrls.pp
View File

@ -31,7 +31,7 @@ interface
uses
Classes, SysUtils, LCLStrConsts, LCLType, LCLProc, LMessages, Graphics,
GraphType, ExtendedStrings, LCLIntf, ClipBrd, ActnList, Controls,
Forms, Menus;
Forms, Menus, LResources;
type
@ -1002,7 +1002,6 @@ type
private
FOnChange: TNotifyEvent;
FClicksDisabled: Boolean;
FUseOnChange: boolean;
function IsCheckedStored: boolean;
protected
fLastCheckedOnChange: boolean;
@ -1015,7 +1014,6 @@ type
protected
property Checked: Boolean read GetChecked write SetChecked stored IsCheckedStored default False;
property ClicksDisabled: Boolean read FClicksDisabled write FClicksDisabled;
property UseOnChange: boolean read FUseOnChange write FUseOnChange stored False default False;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
public
constructor Create(TheOwner: TComponent); override;
@ -1166,7 +1164,6 @@ type
property AllowGrayed: Boolean read FAllowGrayed write FAllowGrayed default false;
property State: TCheckBoxState read GetState write SetState default cbUnchecked;
property TabStop default true;
property UseOnChange;
property OnChange;
end;
@ -1220,7 +1217,6 @@ type
property State;
property TabOrder;
property TabStop;
property UseOnChange;
property Visible;
end;
@ -1259,7 +1255,6 @@ type
property State;
property TabOrder;
property TabStop;
property UseOnChange;
property Visible;
end;
@ -1313,7 +1308,6 @@ type
property State;
property TabOrder;
property TabStop;
property UseOnChange;
property Visible;
end;
@ -1482,5 +1476,10 @@ end;
{$I customstatictext.inc}
initialization
RegisterRemovedProperty(TButtonControl, 'UseOnChange',
'Removed in 0.9.27. It was an old workaround which is not needed anymore.',
'');
end.

4
packager/packageeditor.pas
View File

@ -1447,7 +1447,6 @@ begin
Name:='CallRegisterProcCheckBox';
Parent:=FilePropsGroupBox;
Caption:=lisPckEditRegisterUnit;
UseOnChange:=true;
OnChange:=@CallRegisterProcCheckBoxChange;
Hint:=Format(lisPckEditCallRegisterProcedureOfSelectedUnit, ['"', '"']);
ShowHint:=true;
@ -1457,7 +1456,6 @@ begin
with AddToUsesPkgSectionCheckBox do begin
Name:='AddToUsesPkgSectionCheckBox';
Caption:=lisPkgMangUseUnit;
UseOnChange:=true;
OnChange:=@AddToUsesPkgSectionCheckBoxChange;
Hint:=lisPkgMangAddUnitToUsesClauseOfPackageDisableThisOnlyForUnit;
ShowHint:=true;
@ -1486,7 +1484,6 @@ begin
with UseMinVersionCheckBox do begin
Name:='UseMinVersionCheckBox';
Caption:=lisPckEditMinimumVersion;
UseOnChange:=true;
OnChange:=@UseMinVersionCheckBoxChange;
Parent:=FilePropsGroupBox;
end;
@ -1503,7 +1500,6 @@ begin
with UseMaxVersionCheckBox do begin
Name:='UseMaxVersionCheckBox';
Caption:=lisPckEditMaximumVersion;
UseOnChange:=true;
OnChange:=@UseMaxVersionCheckBoxChange;
Parent:=FilePropsGroupBox;
end;