37 lines
830 B
ObjectPascal
37 lines
830 B
ObjectPascal
|
unit Unit1;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
|
|
Dialogs, uEditorBase, JvAppStorage, JvAppRegistryStorage,
|
||
|
|
JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
|
||
|
|
ActnList, ComCtrls, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
|
||
|
|
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uCustomView,
|
||
|
|
uViewBase, Unit2;
|
||
|
|
|
||
|
|
type
|
||
|
|
TfEditorBase1 = class(TfEditorBase)
|
||
|
|
frViewBase21: TfrViewBase2;
|
||
|
|
procedure JvFormStorageRestorePlacement(Sender: TObject);
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
fEditorBase1: TfEditorBase1;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
procedure TfEditorBase1.JvFormStorageRestorePlacement(Sender: TObject);
|
||
|
|
begin
|
||
|
|
inherited;
|
||
|
|
Invalidate;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|