mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-08 00:37:53 +02:00
df0d616b82
1. Send to email addons - fix work with post client if client locked exported file 2. Internal scrip - add mouse cursors const to script engine - localize error messages (add russian messages) - fix error on parse string values in scrip (now work ' char in string) 3. Report designer - in report designer add check code before save script - for memo object on master/detail band add popup menu for quick select fields from master/detail datasets (see option in designer options dialog) - fix show scrip editor for dialog page on mouse duble click 4. Crross report - add scrip suppert - add internal const "CrosViewIsEmpty" 5. Cleanup code git-svn-id: trunk@52504 -
34 lines
454 B
ObjectPascal
34 lines
454 B
ObjectPascal
unit lr_propedit;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Forms, LR_Class;
|
|
|
|
type
|
|
|
|
{ TPropEditor }
|
|
|
|
TPropEditor = class(TForm)
|
|
protected
|
|
FView: TfrView;
|
|
public
|
|
function ShowEditor(AView: TfrView): TModalResult; virtual;
|
|
property View: TfrView read FView;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TPropEditor }
|
|
|
|
function TPropEditor.ShowEditor(AView: TfrView): TModalResult;
|
|
begin
|
|
FView:=AView;
|
|
Result := ShowModal;
|
|
end;
|
|
|
|
end.
|
|
|