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

LCL: remove deprecated methods and properties (that were tagged to be removed in 1.9)

Browse Source 
git-svn-id: trunk@55713 -
This commit is contained in:
ondrej 2017-08-20 10:25:04 +00:00
parent c2428a4dd1
commit 380e645438
8 changed files with 0 additions and 89 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/comctrls.pp
View File

@ -380,7 +380,6 @@ type
FMultiSelect: Boolean;
FOnChanging: TTabChangingEvent;
FOnCloseTabClicked: TNotifyEvent;
FOnDrawTab: TDrawTabEvent;
FOnGetImageIndex: TTabGetImageEvent;
FOnPageChanged: TNotifyEvent;
FOptions: TCTabControlOptions;
@ -468,11 +467,9 @@ type
property Tabs: TStrings read FAccess write SetPages;
property TabIndex: Integer read FPageIndex write SetPageIndex default -1;
property OnChange: TNotifyEvent read FOnPageChanged write FOnPageChanged;
property OnDrawTab: TDrawTabEvent read FOnDrawTab write FOnDrawTab; deprecated 'Will be deleted in Lazarus 1.8';
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
function TabIndexAtClientPos(ClientPos: TPoint): integer; deprecated 'Will be deleted in next major Lazarus release, use IndexOfPageAt';
function TabRect(AIndex: Integer): TRect;
function GetImageIndex(ThePageIndex: Integer): Integer; virtual;
function IndexOf(APage: TPersistent): integer; virtual;
@ -855,7 +852,6 @@ type
property MultiSelect: Boolean read GetMultiSelect write SetMultiSelect default False;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
property OnChanging;
property OnDrawTab; deprecated 'Will be removed in 1.8';
property OnGetImageIndex;
property OwnerDraw: Boolean read GetOwnerDraw write SetOwnerDraw default False;
property RaggedRight: Boolean read GetRaggedRight write SetRaggedRight default False;

6
lcl/dbgrids.pas
View File

@ -509,7 +509,6 @@ type
public
constructor Create(AOwner: TComponent); override;
procedure AutoAdjustColumns; override;
procedure AutoSizeColumns; deprecated 'This method will be deleted in 1.8. Use AutoAdjustColumns';
procedure InitiateAction; override;
procedure DefaultDrawColumnCell(const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
function EditorByStyle(Style: TColumnButtonStyle): TWinControl; override;
@ -3556,11 +3555,6 @@ begin
UpdateAutoSizeColumns;
end;
procedure TCustomDBGrid.AutoSizeColumns;
begin
AutoAdjustColumns;
end;
procedure TCustomDBGrid.InitiateAction;
begin
{$ifdef dbgDBGrid}DebugLnEnter('%s.InitiateAction INIT', [ClassName]);{$endif}

13
lcl/editbtn.pas
View File

@ -204,11 +204,9 @@ type
fSortData: Boolean; // Data needs to be sorted.
fIsFirstSetFormActivate: Boolean;
fOnAfterFilter: TNotifyEvent;
function GetUseFormActivate: Boolean;
procedure SetFilter(const AValue: string);
procedure SetIdleConnected(const AValue: Boolean);
procedure OnIdle(Sender: TObject; var Done: Boolean);
procedure SetUseFormActivate(AValue: Boolean);
function IsTextHintStored: Boolean;
protected
fNeedUpdate: Boolean;
@ -255,7 +253,6 @@ type
deprecated 'Use OnFilterItemEx with a caption parameter instead.';
property OnFilterItemEx: TFilterItemExEvent read fOnFilterItemEx write fOnFilterItemEx;
property OnCheckItem: TCheckItemEvent read fOnCheckItem write fOnCheckItem;
property UseFormActivate: Boolean read GetUseFormActivate write SetUseFormActivate stored False; deprecated 'Will be removed after 1.8 release.';
// TEditButton properties.
property ButtonCaption;
property ButtonCursor;
@ -1154,11 +1151,6 @@ begin
fOnAfterFilter(Self);
end;
procedure TCustomControlFilterEdit.SetUseFormActivate(AValue: Boolean);
begin
// Remove after 1.8
end;
procedure TCustomControlFilterEdit.SetFilter(const AValue: string);
begin
Button.Enabled:=AValue<>'';
@ -1274,11 +1266,6 @@ begin
Result := ResBtnListFilter;
end;
function TCustomControlFilterEdit.GetUseFormActivate: Boolean;
begin
Result := False;
end;
{ TFileNameEdit }
constructor TFileNameEdit.Create(AOwner: TComponent);

1
lcl/forms.pp
View File

@ -273,7 +273,6 @@ type
public
constructor Create(TheOwner: TComponent); override;
public
property DesignTimeDPI: Integer read FDesignTimePPI write SetDesignTimePPI stored False; deprecated {$IFNDEF FPDOC}'Use DesignTimePPI instead. DesignTimeDPI will be removed in 1.8'{$ENDIF};
property DesignTimePPI: Integer read FDesignTimePPI write SetDesignTimePPI default 96;
property PixelsPerInch: Integer read FPixelsPerInch write FPixelsPerInch stored False;
property Scaled: Boolean read FScaled write SetScaled default True;

16
lcl/groupededit.pp
View File

@ -70,8 +70,6 @@ type
FIsReadOnly: Boolean;
FLayout: TLeftRight;
FSpacing: Integer;
FTextHintFontColor: TColor; //remove in 1.9
FTextHintFontStyle: TFontStyles; //remove in 1.9
//Forwarded events from FButton
FOnBuddyClick: TNotifyEvent;
//Forwarded events from FEdit
@ -122,8 +120,6 @@ type
function GetSelText: String;
function GetTabStop: Boolean;
function GetTextHint: TTranslateString;
function GetTextHintFontColor: TColor; //Remove in 1.9
function GetTextHintFontStyle: TFontStyles; //Remove in 1.9
procedure InternalOnBuddyClick(Sender: TObject);
procedure InternalOnEditClick(Sender: TObject);
@ -302,8 +298,6 @@ type
property TabStop: Boolean read GetTabStop write SetTabStop default True;
property Text;
property TextHint: TTranslateString read GetTextHint write SetTextHint;
property TextHintFontColor: TColor read GetTextHintFontColor write FTextHintFontColor default clGrayText; deprecated 'Will be removed in the future'; //deprecated in 1.7
property TextHintFontStyle: TFontStyles read GetTextHintFontStyle write FTextHintFontStyle default [fsItalic]; deprecated 'Will be removed in the future'; //deprecated in 1.7
property OnChange: TNotifyEvent read FOnEditChange write FOnEditChange;
property OnClick: TNotifyEvent read FOnEditClick write FOnEditClick;
@ -631,16 +625,6 @@ begin
Result := FEdit.TextHint;
end;
function TCustomAbstractGroupedEdit.GetTextHintFontColor: TColor;
begin
Result := clGrayText;
end;
function TCustomAbstractGroupedEdit.GetTextHintFontStyle: TFontStyles;
begin
Result := [fsItalic];
end;
procedure TCustomAbstractGroupedEdit.FocusAndMaybeSelectAll;
begin
FEdit.SetFocus;

23
lcl/include/customedit.inc
View File

@ -680,17 +680,6 @@ begin
end;
end;
procedure TCustomEdit.SetTextHintFontColor(const aTextHintFontColor: TColor);
begin
DebugLn('TCustomEdit.TextHintFontColor is deprecated and will be removed in Lazarus 1.9');
end;
procedure TCustomEdit.SetTextHintFontStyle(const aTextHintFontStyle: TFontStyles
);
begin
DebugLn('TCustomEdit.TextHintFontStyle is deprecated and will be removed in Lazarus 1.9');
end;
procedure TCustomEdit.ShowEmulatedTextHint;
var
HintFont: TFont;
@ -713,18 +702,6 @@ begin
FEmulatedTextHintStatus := thsShowing;
end;
function TCustomEdit.GetTextHintFontColor: TColor;
begin
Result := clNone;
DebugLn('TCustomEdit.TextHintFontColor is deprecated and will be removed in Lazarus 1.9');
end;
function TCustomEdit.GetTextHintFontStyle: TFontStyles;
begin
Result := [];
DebugLn('TCustomEdit.TextHintFontStyle is deprecated and will be removed in Lazarus 1.9');
end;
procedure TCustomEdit.HideEmulatedTextHint;
begin
if FEmulatedTextHintStatus<>thsShowing then

20
lcl/include/customnotebook.inc
View File

@ -356,26 +356,6 @@ begin
inherited Destroy;
end;
{------------------------------------------------------------------------------
function TCustomTabControl.TabIndexAtClientPos(ClientPos: TPoint): integer;
Returns the index of the page of the tab at the client position.
For example:
Index:=NoteBook1.TabIndexAtClientPos(
NoteBook1.ScreenToClient(Mouse.CursorPos));
------------------------------------------------------------------------------}
function TCustomTabControl.TabIndexAtClientPos(ClientPos: TPoint): integer;
begin
if HandleAllocated then begin
Result := TWSCustomTabControlClass(WidgetSetClass).GetTabIndexAtPos(Self, ClientPos);
// Result is the index in visible tabs because invisible tabs are removed
// from the native control. Calculate the real tab index here.
Result := TabToPageIndex(Result);
end
else
Result := -1;
end;
function TCustomTabControl.TabRect(AIndex: Integer): TRect;
begin
if HandleAllocated then

6
lcl/stdctrls.pp
View File

@ -731,8 +731,6 @@ type
FSelStart: integer;
FTextChangedByRealSetText: Boolean;
FTextHint: TTranslateString;
function GetTextHintFontColor: TColor; //Remove in 1.9
function GetTextHintFontStyle: TFontStyles; //Remove in 1.9
procedure ShowEmulatedTextHint;
procedure HideEmulatedTextHint;
procedure SetAlignment(const AValue: TAlignment);
@ -743,8 +741,6 @@ type
procedure SetMaxLength(Value: Integer);
procedure SetModified(Value: Boolean);
procedure SetPasswordChar(const AValue: Char);
procedure SetTextHintFontColor(const aTextHintFontColor: TColor);
procedure SetTextHintFontStyle(const aTextHintFontStyle: TFontStyles);
protected type
TEmulatedTextHintStatus = (thsHidden, thsShowing, thsChanging);
protected
@ -825,8 +821,6 @@ type
property TabStop default true;
property Text;
property TextHint: TTranslateString read GetTextHint write SetTextHint;
property TextHintFontColor: TColor read GetTextHintFontColor write SetTextHintFontColor default clGrayText; deprecated 'Will be removed in the future'; //deprecated in 1.7
property TextHintFontStyle: TFontStyles read GetTextHintFontStyle write SetTextHintFontStyle default [fsItalic]; deprecated 'Will be removed in the future';
end;