94 lines
2.3 KiB
ObjectPascal
94 lines
2.3 KiB
ObjectPascal
|
|
||
|
|
{******************************************}
|
||
|
|
{ }
|
||
|
|
{ FastReport v4.0 }
|
||
|
|
{ TStrings editor }
|
||
|
|
{ }
|
||
|
|
{ Copyright (c) 1998-2008 }
|
||
|
|
{ by Alexander Tzyganenko, }
|
||
|
|
{ Fast Reports Inc. }
|
||
|
|
{ }
|
||
|
|
{******************************************}
|
||
|
|
|
||
|
|
unit FMX.frxEditStrings;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
{$I frx.inc}
|
||
|
|
|
||
|
|
uses
|
||
|
|
System.SysUtils, System.Classes, System.UITypes, FMX.Controls,
|
||
|
|
FMX.Forms, FMX.Dialogs, FMX.ExtCtrls, FMX.Layouts,
|
||
|
|
FMX.Memo, FMX.Types, FMX.frxFMX
|
||
|
|
, System.Variants
|
||
|
|
{$IFDEF DELPHI18}
|
||
|
|
,FMX.StdCtrls
|
||
|
|
{$ENDIF};
|
||
|
|
|
||
|
|
|
||
|
|
type
|
||
|
|
TfrxStringsEditorForm = class(TForm)
|
||
|
|
ToolBar: TToolBar;
|
||
|
|
OkB: TfrxToolButton;
|
||
|
|
CancelB: TfrxToolButton;
|
||
|
|
Memo: TMemo;
|
||
|
|
procedure OkBClick(Sender: TObject);
|
||
|
|
procedure CancelBClick(Sender: TObject);
|
||
|
|
procedure FormCreate(Sender: TObject);
|
||
|
|
procedure MemoKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);
|
||
|
|
procedure FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.FMX}
|
||
|
|
|
||
|
|
uses FMX.frxClass, FMX.frxRes;
|
||
|
|
|
||
|
|
|
||
|
|
procedure TfrxStringsEditorForm.OkBClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
ModalResult := mrOk;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxStringsEditorForm.CancelBClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
ModalResult := mrCancel;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxStringsEditorForm.FormCreate(Sender: TObject);
|
||
|
|
begin
|
||
|
|
//Toolbar.Images := frxResources.MainButtonImages;
|
||
|
|
//todo images
|
||
|
|
Caption := frxGet(4800);
|
||
|
|
CancelB.Hint := frxGet(2);
|
||
|
|
OkB.Hint := frxGet(1);
|
||
|
|
frxResources.LoadImageFromResouce(CancelB.Bitmap, 21, 2);
|
||
|
|
frxResources.LoadImageFromResouce(OkB.Bitmap, 21, 0);
|
||
|
|
|
||
|
|
//if UseRightToLeftAlignment then
|
||
|
|
// FlipChildren(True);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxStringsEditorForm.MemoKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);
|
||
|
|
begin
|
||
|
|
if (Key = vkReturn) and (ssCtrl in Shift) then
|
||
|
|
ModalResult := mrOk
|
||
|
|
else if Key = vkEscape then
|
||
|
|
ModalResult := mrCancel;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxStringsEditorForm.FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);
|
||
|
|
begin
|
||
|
|
if Key = VKF1 then
|
||
|
|
frxResources.Help(Self);
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|
||
|
|
|