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

lcl: remove WordWrapIsStored methods since they are not needed anymore (fpc bug was fixed long ago)

Browse Source 
git-svn-id: trunk@21765 -
This commit is contained in:
paul 2009-09-19 09:15:16 +00:00
parent 42742cc32a
commit a095fdff62
4 changed files with 2 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/dbctrls.pp
View File

@ -811,7 +811,6 @@ Type
protected
function GetReadOnly: Boolean; override;
procedure SetReadOnly(AValue: Boolean); override;
function WordWrapIsStored: boolean; override;
procedure DataChange(Sender: TObject); virtual;
procedure ActiveChange(Sender: TObject); virtual;
procedure Notification(AComponent: TComponent;
@ -860,7 +859,7 @@ Type
property TabOrder;
property Tabstop;
property Visible;
property WordWrap stored WordWrapIsStored;
property WordWrap;
end;

8
lcl/include/custommemo.inc
View File

@ -231,14 +231,6 @@ begin
end;
end;
{------------------------------------------------------------------------------
function TCustomMemo.WordWrapIsStored: boolean;
------------------------------------------------------------------------------}
function TCustomMemo.WordWrapIsStored: boolean;
begin
Result:=not WordWrap;
end;
procedure TCustomMemo.ControlKeyDown(var Key: Word; Shift: TShiftState);
begin
if not ReadOnly then

5
lcl/include/dbmemo.inc
View File

@ -65,11 +65,6 @@ begin
FDataLink.ReadOnly:=AValue;
end;
function TDBMemo.WordWrapIsStored: boolean;
begin
Result:=not WordWrap;
end;
procedure TDBMemo.DataChange(Sender: TObject);
begin
if FDataLink.Field<>nil then begin

4
lcl/stdctrls.pp
View File

@ -805,7 +805,6 @@ type
procedure SetWordWrap(const Value: boolean);
procedure SetScrollBars(const Value: TScrollStyle);
procedure Loaded; override;
function WordWrapIsStored: boolean; virtual;
procedure ControlKeyDown(var Key: Word; Shift: TShiftState); override;
procedure CNChar(var Message: TLMKeyUp); message CN_CHAR;
class function GetControlClassDefaultSize: TPoint; override;
@ -815,7 +814,6 @@ type
procedure Append(const Value: String);
public
property Lines: TStrings read FLines write SetLines;
//property Font: TFont read FFont write FFont;
property HorzScrollBar: TMemoScrollBar
read FHorzScrollBar write SetHorzScrollBar stored StoreScrollBars;
property VertScrollBar: TMemoScrollBar
@ -823,7 +821,7 @@ type
property ScrollBars: TScrollStyle read FScrollBars write SetScrollBars default ssNone;
property WantReturns: Boolean read FWantReturns write SetWantReturns default true;
property WantTabs: Boolean read FWantTabs write SetWantTabs default false;
property WordWrap: Boolean read FWordWrap write SetWordWrap stored WordWrapIsStored default true;
property WordWrap: Boolean read FWordWrap write SetWordWrap default true;
end;