RxFPC:default editor for RxToolPanel

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6756 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-12-14 11:41:03 +00:00
parent 48e5ae174f
commit 246fee7828
10 changed files with 72 additions and 147 deletions

View File

@ -54,8 +54,8 @@ type
TRXHistory = class(TComponent)
private
FButtonNext: string;
FButtonPrior: string;
//FButtonNext: string;
//FButtonPrior: string;
FButtonStyle: TToolbarButtonStyleCntrl;
FNextButton: TToolbarItem;
FNextButtonName: string;
@ -138,8 +138,6 @@ begin
end;
function TRXHistory.SetBtn(const ABtnName: string;var Button:TToolbarItem):boolean;
var
i:integer;
begin
Result:=false;
if not Assigned(FToolPanel) then exit;