paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 16:29:38 +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; procedure UpdateVisibleToolbar;
function GroupAllUpAllowed: boolean; function GroupAllUpAllowed: boolean;
function DialogChar(var Message: TLMKey): boolean; override; function DialogChar(var Message: TLMKey): boolean; override;
procedure SetAutoSize(const Value: Boolean); override; procedure SetAutoSize(Value: Boolean); override;
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
function CheckMenuDropdown: Boolean; dynamic; function CheckMenuDropdown: Boolean; dynamic;

6
lcl/controls.pp
View File

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

2
lcl/forms.pp
View File

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

6
lcl/include/control.inc
View File

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

4
lcl/include/customcombobox.inc
View File

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

2
lcl/include/customform.inc
View File

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

2
lcl/include/toolbutton.inc
View File

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

7
lcl/maskedit.pp
View File

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

4
lcl/stdctrls.pp
View File

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