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

IdeIntf: Cleanup.

Browse Source
This commit is contained in:
Juha 2024-03-08 23:06:32 +02:00
parent a7b6815a8c
commit 0aa083ac3f
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/ideintf/objectinspector.pp
View File

@ -2295,11 +2295,9 @@ begin
if FCurrentEdit<>nil then if FCurrentEdit<>nil then
begin begin
SetActiveControl(FCurrentEdit); SetActiveControl(FCurrentEdit);
if (FCurrentEdit is TCustomEdit) then begin if (FCurrentEdit is TCustomEdit) then
DebugLn(['SetItemIndexAndFocus: Selecting All.']);
TCustomEdit(FCurrentEdit).SelectAll TCustomEdit(FCurrentEdit).SelectAll
{$IFnDEF UseOINormalCheckBox} {$IFnDEF UseOINormalCheckBox}
end
else if (FCurrentEdit is TCheckBoxThemed) and WasValueClick then else if (FCurrentEdit is TCheckBoxThemed) and WasValueClick then
TCheckBoxThemed(FCurrentEdit).Checked:=not TCheckBoxThemed(FCurrentEdit).Checked; TCheckBoxThemed(FCurrentEdit).Checked:=not TCheckBoxThemed(FCurrentEdit).Checked;
{$ELSE} {$ELSE}