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

LazControl: LazIntegerEdit, improve and paste-clipboard fixes. Issue #41079, #41080, #41081

Browse Source
This commit is contained in:
Martin 2024-08-15 22:41:19 +02:00
parent 1ec623a8f1
commit f54755cc79
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/lazcontrols/laznumedit.pas
View File

@ -120,6 +120,20 @@ type
property Value;
property MinValue;
property MaxValue;
property DisplayBase;
property SetDecimalKeys;
property HexIndicator;
property SetHexKeys;
property ToggleHexKeys;
property OctIndicator;
property SetOctKeys;
property ToggleOctKeys;
property BinIndicator;
property SetBinKeys;
property ToggleBinKeys;
property OnBaseChange;
property AllowMinus;
property AllowPlus;
public
property AutoSelected;
published
@ -508,7 +522,7 @@ procedure TLazIntegerEditGen._KeyPress(var Key: Char);
) ) );
end;
const
AllowedControlChars = [#8,#9,^C,^Z];
AllowedControlChars = [#8,#9,^A,^C,^Z];
var
Utf8Key: TUtf8Char;
p: String;
@ -551,7 +565,10 @@ begin
val(Clipboard.AsText, v, e);
if e = 0 then begin
FValue := v;
Text := EncodeText(FCurrentBasePrefix, FValue);
s := EncodeText(FCurrentBasePrefix, FValue);
Text := s;
SelStart := Length(s);
SelLength := 0;
end;
end
else