Как программно отключить Thumbnail
dron-s
Россия
Привет!!!
как программно отключить Thumbnail?
я программно создаю отчёт..
как программно отключить Thumbnail?
я программно создаю отчёт..
var
frxReport: TfrxReport;
Page: TfrxReportPage;
MasterData:TfrxMasterData;
begin
frxReport:=TfrxReport.Create(OrgAttributes);
Page:=TfrxReportPage.Create(frxReport);
with frxReport.PreviewOptions do
begin
AllowEdit := False;
Buttons := Buttons - [pbPrint];
Buttons := Buttons - [pbLoad];
Buttons := Buttons - [pbSave];
Buttons := Buttons - [pbExport];
Buttons := Buttons - [pbFind];
Buttons := Buttons - [pbOutline];
Buttons := Buttons - [pbTools];
Buttons := Buttons - [pbEdit];
Buttons := Buttons - [pbNavigator];
Buttons := Buttons - [pbExportQuick];
Buttons := Buttons - [pbPageSetup];
ThumbnailVisible := False; // не работает!!! никак не риагирует на это...
end;
frxReport.LoadFromFile(GetEXEPath + 'FR\Attribut.fr3');
VersionProg := frxReport.FindObject('VersionProg') as TfrxMemoView;
VersionProg.Text := 'Âåðñèÿ ïðîãðàììû: ' + GetFileVersion(ParamStr(0));
frxReport.ShowReport();
frxReport.Free;
посянение в коде!!!
Комментарии
работает