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

LCL: Remove also public property TCustomComboBox.ReadOnly.

Browse Source 
git-svn-id: trunk@63112 -
This commit is contained in:
juha 2020-05-02 14:13:43 +00:00
parent ef165a7ed0
commit 47bfab75ef
6 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/exttools.pas
View File

@ -1217,7 +1217,9 @@ end;
destructor TExternalTools.Destroy;
begin
RunExternalTool:=nil;
DebugLn('TExternalTools.Destroy: Terminating All.');
TerminateAll;
DebugLn('TExternalTools.Destroy: Entering critical section.');
EnterCriticalSection;
try
if fRunning.Count>0 then

1
lcl/comboex.pas
View File

@ -248,7 +248,6 @@ type
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property ShowHint;
property Style;
property StyleEx;

5
lcl/include/customcombobox.inc
View File

@ -189,11 +189,6 @@ begin
Result := FMaxLength;
end;
function TCustomComboBox.GetReadOnly: Boolean;
begin
Result := Style in [csDropDownList, csOwnerDrawFixed, csOwnerDrawVariable];
end;
{------------------------------------------------------------------------------
Method: TCustomComboBox.LMChanged
Params: msg -

3
lcl/interfaces/qt/qtwsstdctrls.pp
View File

@ -1699,7 +1699,8 @@ begin
ACombo := QComboBox_create(nil);
try
QWidget_setFont(ACombo, ComboBox.getFont);
QComboBox_setEditable(ACombo, not ACustomComboBox.ReadOnly);
QComboBox_setEditable(ACombo,
not (ACustomComboBox.Style in [csDropDownList,csOwnerDrawFixed,csOwnerDrawVariable]));
AText := 'Mtjx';
AItems := QStringList_create(@AText);
QComboBox_addItems(ACombo, AItems);

3
lcl/interfaces/qt5/qtwsstdctrls.pp
View File

@ -1644,7 +1644,8 @@ begin
ACombo := QComboBox_create(nil);
try
QWidget_setFont(ACombo, ComboBox.getFont);
QComboBox_setEditable(ACombo, not ACustomComboBox.ReadOnly);
QComboBox_setEditable(ACombo,
not (ACustomComboBox.Style in [csDropDownList,csOwnerDrawFixed,csOwnerDrawVariable]));
AText := 'Mtjx';
AItems := QStringList_create(PWideString(@AText));
QComboBox_addItems(ACombo, AItems);

2
lcl/stdctrls.pp
View File

@ -299,7 +299,6 @@ type
function GetAutoComplete: boolean;
function GetDroppedDown: Boolean;
function GetItemWidth: Integer;
function GetReadOnly: Boolean;
procedure SetAutoComplete(const AValue: boolean);
procedure SetItemWidth(const AValue: Integer);
procedure LMDrawListItem(var TheMessage: TLMDrawListItem); message LM_DrawListItem;
@ -403,7 +402,6 @@ type
property DropDownCount: Integer read FDropDownCount write SetDropDownCount default 8;
property Items: TStrings read FItems write SetItems;
property ItemIndex: integer read GetItemIndex write SetItemIndex default -1;
property ReadOnly: Boolean read GetReadOnly stored False;
property SelLength: integer read GetSelLength write SetSelLength;// UTF-8 length
property SelStart: integer read GetSelStart write SetSelStart;// UTF-8 position
property SelText: String read GetSelText write SetSelText;