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

lcl: apply patch of Stephano to make some method declarations more delphi compatible (issue #0013125)

Browse Source 
git-svn-id: trunk@18593 -
This commit is contained in:
paul 2009-02-06 17:50:50 +00:00
parent 3e1fff8dc6
commit 6fc8235611
9 changed files with 21 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/comctrls.pp
View File

@ -1435,7 +1435,7 @@ type
procedure UpdateVisibleToolbar;
function GroupAllUpAllowed: boolean;
function DialogChar(var Message: TLMKey): boolean; override;
procedure SetAutoSize(const Value: Boolean); override;
procedure SetAutoSize(Value: Boolean); override;
public
constructor Create(TheOwner: TComponent); override;
function CheckMenuDropdown: Boolean; dynamic;

6
lcl/controls.pp
View File

@ -955,7 +955,7 @@ type
Operation: TAnchorSideChangeOperation); virtual;
procedure SetAlign(Value: TAlign); virtual;
procedure SetAnchors(const AValue: TAnchors); virtual;
procedure SetAutoSize(const Value: Boolean); virtual;
procedure SetAutoSize(Value: Boolean); virtual;
procedure BoundsChanged; dynamic;
function CreateControlBorderSpacing: TControlBorderSpacing; virtual;
procedure DoConstraintsChange(Sender: TObject); virtual;
@ -979,8 +979,8 @@ type
procedure ChangeScale(Multiplier, Divider: Integer); dynamic;
function CanAutoSize(var NewWidth, NewHeight: Integer): Boolean; virtual;
procedure SetAlignedBounds(aLeft, aTop, aWidth, aHeight: integer); virtual;
procedure SetBiDiMode(const AValue: TBiDiMode); virtual;
procedure SetParentBiDiMode(const AValue: Boolean); virtual;
procedure SetBiDiMode(AValue: TBiDiMode); virtual;
procedure SetParentBiDiMode(AValue: Boolean); virtual;
function IsAParentAligning: boolean;
function GetClientOrigin: TPoint; virtual;
function GetClientRect: TRect; virtual;// visual size of client area

2
lcl/forms.pp
View File

@ -487,7 +487,7 @@ type
function VisibleIsStored: boolean;
procedure DoSendBoundsToInterface; override;
procedure DoAutoSize; override;
procedure SetAutoSize(const Value: Boolean); override;
procedure SetAutoSize(Value: Boolean); override;
protected
// drag and dock
procedure DoDock(NewDockSite: TWinControl; var ARect: TRect); override;

6
lcl/include/control.inc
View File

@ -2158,7 +2158,7 @@ end;
{------------------------------------------------------------------------------
TControl SetAutoSize
------------------------------------------------------------------------------}
procedure TControl.SetAutoSize(const value : Boolean);
procedure TControl.SetAutoSize(value : Boolean);
Begin
If AutoSize <> Value then begin
FAutoSize := Value;
@ -4436,7 +4436,7 @@ end;
Method: TControl.SetBiDiMode
------------------------------------------------------------------------------}
procedure TControl.SetBiDiMode(const AValue: TBiDiMode);
procedure TControl.SetBiDiMode(AValue: TBiDiMode);
begin
if FBiDiMode=AValue then exit;
FBiDiMode:=AValue;
@ -4448,7 +4448,7 @@ end;
Method: TControl.SetParentBiDiMode
------------------------------------------------------------------------------}
procedure TControl.SetParentBiDiMode(const AValue: Boolean);
procedure TControl.SetParentBiDiMode(AValue: Boolean);
begin
if FParentBiDiMode=AValue then exit;
FParentBiDiMode:=AValue;

4
lcl/include/customcombobox.inc
View File

@ -729,7 +729,7 @@ end;
Assigns items for ComboBox from a stringlist.
------------------------------------------------------------------------------}
procedure TCustomComboBox.SetItems(Value : TStrings);
procedure TCustomComboBox.SetItems(const Value : TStrings);
begin
if (Value <> FItems) then begin
FItems.Assign(Value);
@ -917,7 +917,7 @@ end;
Sets ths index of the currently selected item in the combobox.
------------------------------------------------------------------------------}
procedure TCustomComboBox.SetItemIndex(Val : integer);
procedure TCustomComboBox.SetItemIndex(const Val : integer);
begin
//if CompareText(Name,'TextToFindComboBox')=0 then
// debugln('TCustomComboBox.SetItemIndex A ',DbgSName(Self),' Text="',Text,'"');

2
lcl/include/customform.inc
View File

@ -1043,7 +1043,7 @@ begin
inherited DoAutoSize;
end;
procedure TCustomForm.SetAutoSize(const Value: Boolean);
procedure TCustomForm.SetAutoSize(Value: Boolean);
begin
if Value=AutoSize then exit;
if Value=true then

2
lcl/include/toolbutton.inc
View File

@ -386,7 +386,7 @@ begin
CopyPropertiesFromMenuItem(FMenuItem);
end;
procedure TToolButton.SetAutoSize(const Value: Boolean);
procedure TToolButton.SetAutoSize(Value: Boolean);
begin
if Value = AutoSize then exit;
inherited SetAutoSize(Value);

7
lcl/maskedit.pp
View File

@ -208,6 +208,7 @@ type
procedure KeyPress(var Key: Char); override;
procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X, Y: Integer); override;
procedure CheckCursor;
public
procedure CutToClipBoard; override;
procedure PasteFromClipBoard; override;
@ -1417,6 +1418,12 @@ begin
end;
end;
procedure TCustomMaskEdit.CheckCursor;
begin
if IsMasked then
SetCursorPos;
end;
procedure TCustomMaskEdit.CutToClipBoard;
begin
if not IsMasked then

4
lcl/stdctrls.pp
View File

@ -282,7 +282,6 @@ type
function GetItemWidth: Integer;
procedure SetAutoComplete(const AValue: boolean);
procedure SetItemWidth(const AValue: Integer);
procedure SetItems(Value: TStrings);
procedure LMDrawListItem(var TheMessage: TLMDrawListItem); message LM_DrawListItem;
procedure LMMeasureItem(var TheMessage: TLMMeasureItem); message LM_MeasureItem;
procedure LMSelChange(var TheMessage); message LM_SelChange;
@ -305,6 +304,7 @@ type
procedure Select; dynamic;
procedure DropDown; dynamic;
procedure GetItems; dynamic;
procedure SetItems(const Value: TStrings); virtual;
procedure CloseUp; dynamic;
procedure AdjustDropDown; virtual;
@ -319,7 +319,7 @@ type
procedure SetDropDownCount(const AValue: Integer); virtual;
procedure SetDroppedDown(const AValue: Boolean); virtual;
procedure SetItemHeight(const AValue: Integer); virtual;
procedure SetItemIndex(Val: integer); virtual;
procedure SetItemIndex(const Val: integer); virtual;
procedure SetMaxLength(AValue: integer); virtual;
procedure SetSelLength(Val: integer); virtual;
procedure SetSelStart(Val: integer); virtual;