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

TPromptDialog: handle Ctrl+C (copy MSG to clipboard).

Browse Source 
Issue #0016295.

git-svn-id: trunk@42005 -
This commit is contained in:
bart 2013-07-06 12:57:26 +00:00
parent d79ef4641e
commit 2b0d38d8b6
2 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/dialogs.pp
View File

@ -23,7 +23,7 @@ interface
uses
Types, typinfo, Classes, LResources, SysUtils, LCLIntf, InterfaceBase,
FileUtil, LCLStrConsts, LCLType, LCLProc, Forms, Controls, Themes, GraphType,
Graphics, Buttons, ButtonPanel, StdCtrls, ExtCtrls, LCLClasses;
Graphics, Buttons, ButtonPanel, StdCtrls, ExtCtrls, LCLClasses, ClipBrd;
type

17
lcl/include/promptdialog.inc
View File

@ -17,6 +17,8 @@ type
private
FCancelKind: TBitBtnKind;
function CreateButtons(AVerticalLayout: Boolean; ASpacing: Integer): Integer;
protected
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
public
IsSmallDevice: Boolean;
@ -89,6 +91,16 @@ begin
DefaultButton.Default := True;
end;
procedure TPromptDialog.KeyDown(var Key: Word; Shift: TShiftState);
begin
inherited KeyDown(Key, Shift);
if (Shift = [ssModifier]) and (Key = VK_C) then
begin
Key := 0;
ClipBoard.AsText := MSG;
end;
end;
procedure TPromptDialog.Paint;
var
UseMaskHandle: HBitmap;
@ -111,13 +123,14 @@ begin
end;
constructor TPromptDialog.CreateMessageDialog(const ACaption, aMsg: string;
DialogType : longint; TheButtons: PLongint; ButtonCount, DefaultIndex : Longint);
DialogType: Longint; TheButtons: PLongint; ButtonCount, DefaultIndex: Longint
);
var
curBtn: Integer;
curKind: TBitBtnKind;
begin
inherited CreateNew(nil, 1);
KeyPreview := True; //needed for capturing Ctrl+C in KeyDown
IsSmallDevice := (Screen.Width <= 300);
AutoScroll := False;