pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:Fix RxToolbar setup dialog. In RxDBGridExportSpreadSheet for footer row SUM value exported as numeric

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4586 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-03-24 07:58:23 +00:00
parent 5598f9414b
commit ba01d58f3f
12 changed files with 112 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/rx/trunk/rxtoolbar.pas
View File

@ -114,9 +114,7 @@ type
private
FButton: TToolbarButton;
FSaveLeft:integer;
// FActionLink:TActionLink;
function GetAction: TBasicAction;
//function GetAutoSize: boolean;
function GetButtonStyle: TToolbarButtonStyle;
function GetDropDownMenu: TPopupMenu;
function GetGroupIndex: Integer;
@ -128,9 +126,7 @@ type
function GetTop: Integer;
function GetVisible: boolean;
function GetWidth: Integer;
// procedure OnActionChanges(Sender: TObject);
procedure SetAction(const AValue: TBasicAction);
//procedure SetAutoSize(const AValue: boolean);
procedure SetButtonStyle(const AValue: TToolbarButtonStyle);
procedure SetDropDownMenu(const AValue: TPopupMenu);
procedure SetGroupIndex(const AValue: Integer);
@ -151,7 +147,6 @@ type
destructor Destroy; override;
published
property Action:TBasicAction read GetAction write SetAction;
//property AutoSize:boolean read GetAutoSize write SetAutoSize default true;
property Visible:boolean read GetVisible write SetVisible;
property Left: Integer read GetLeft write SetLeft;
property Height: Integer read GetHeight write SetHeight;