paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 11:59:13 +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 State;
property TabOrder; property TabOrder;
property TabStop; property TabStop;
property UseOnChange;
property Visible; property Visible;
end; end;

1
lcl/dbctrls.pp
View File

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

1
lcl/include/buttoncontrol.inc
View File

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

13
lcl/stdctrls.pp
View File

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

4
packager/packageeditor.pas
View File

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