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

Calculator: Add menu for copy/paste. Issue #28551, patch from Alexey Torgashin

Browse Source 
git-svn-id: trunk@49706 -
This commit is contained in:
juha 2015-08-23 22:20:02 +00:00
parent f2ebd5c2bf
commit a7bc23443e
2 changed files with 26 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
lcl/forms/calcform.pas
View File

@ -23,7 +23,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, Graphics,
StdCtrls, ExtCtrls, Buttons;
StdCtrls, ExtCtrls, Buttons, Menus, Clipbrd;
const
CalcDefPrecision = 15;
@ -104,6 +104,7 @@ type
FDisplayLabel: TLabel;
FOnCalcKey: TCalculatorCalcKeyEvent;
FOnDisplayChange: TCalculatorDispChangeEvent;
FMenu: TPopupMenu;
procedure FormKeyPress(Sender: TObject; var Key: char);
procedure CopyItemClick(Sender: TObject);
function GetValue: Double;
@ -651,19 +652,19 @@ end;
procedure TCalculatorPanel.Copy;
begin
// Clipboard.AsText:=FText;
Clipboard.AsText:=FText;
end;
procedure TCalculatorPanel.Paste;
var
S: string;
begin
{ if Clipboard.HasFormat(CF_TEXT) then
try
SetDisplay(StrToFloat(Trim(ReplaceStr(Clipboard.AsText,
CurrencyString, ''))));
except
SetCalcText('0');
end;
}
if Clipboard.HasFormat(CF_TEXT) then
begin
S:=Clipboard.AsText;
S:=Trim(StringReplace(S, CurrencyString, '', []));
SetDisplay(StrToFloatDef(S, 0.0));
end;
end;
{ TCalculatorForm }
@ -677,6 +678,8 @@ begin
end;
procedure TCalculatorForm.InitForm(ALayout: TCalculatorLayout);
var
mi: TMenuItem;
begin
BorderStyle:=bsDialog;
Caption:=rsCalculator;
@ -733,6 +736,17 @@ begin
OnDisplayChange:=@Self.DisplayChange;
FControl:=FDisplayLabel;
end;
{ Menu }
FMenu:=TPopupMenu.Create(Self);
DisplayPanel.PopupMenu:=FMenu;
mi:=TMenuItem.Create(Self);
mi.Caption:=rsDoCopy;
mi.OnClick:=@CopyItemClick;
FMenu.Items.Add(mi);
mi:=TMenuItem.Create(Self);
mi.Caption:=rsDoPaste;
mi.OnClick:=@PasteItemClick;
FMenu.Items.Add(mi);
end;

2
lcl/lclstrconsts.pas
View File

@ -298,6 +298,8 @@ resourceString
rsPickDate = 'Select a date';
rsSize = ' size ';
rsModified = ' modified ';
rsDoCopy = 'Copy';
rsDoPaste = 'Paste';
// ShellCtrls
sShellCtrlsName = 'Name';