paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 15:39:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, added TfrPreview component, issue #14539

Browse Source 
git-svn-id: trunk@21605 -
This commit is contained in:
jesus 2009-09-08 05:58:27 +00:00
parent eb5031804b
commit f43edd5537
6 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -845,6 +845,7 @@ components/lazreport/images/bitmaps/tfrhtmexport.png -text svneol=unset#image/pn
components/lazreport/images/bitmaps/tfroleobject.bmp -text
components/lazreport/images/bitmaps/tfropendbdialog.bmp -text
components/lazreport/images/bitmaps/tfrpreview.bmp -text
components/lazreport/images/bitmaps/tfrpreview.png -text svneol=unset#image/png
components/lazreport/images/bitmaps/tfrprintgrid.png -text svneol=unset#image/png
components/lazreport/images/bitmaps/tfrreport.png -text svneol=unset#image/png
components/lazreport/images/bitmaps/tfrrichobject.bmp -text

3
components/lazreport/images/Package_images.txt
View File

@ -10,4 +10,5 @@ bitmaps/tfrroundrectobject.png
bitmaps/tfrshapeobject.png
bitmaps/tfrtextexport.png
bitmaps/tfruserdataset.png
bitmaps/tfrdesigner.png
bitmaps/tfrdesigner.png
bitmaps/tfrpreview.png

BIN
components/lazreport/images/bitmaps/tfrpreview.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 313 B

14
components/lazreport/source/lr_register.lrs
View File

@ -298,3 +298,17 @@ LazarusResources.Add('tfrdesigner','PNG',[
+#130#24'4'#247's'#136'A'#147'7?'#134#24#212#182#242'>'#196' H'#153#139'%'
+#140'HE'#240' g'#248'O%'#0#0'"qx'#191'q5'#139'l'#0#0#0#0'IEND'#174'B`'#130
]);
LazarusResources.Add('tfrpreview','PNG',[
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#4#3#0#0#0#18'Y '#203#0
+#0#0#1'sRGB'#0#174#206#28#233#0#0#0'0PLTE'#128#0#0#0#0#0#0#128#0#128#128#0#0
+#0#128#128#0#128#0#128#128#192#192#192#128#128#128#255#0#0#0#255#0#255#255#0
+#0#0#255#255#0#255#0#255#255#255#255#255#131#3'<'#234#0#0#0#1'tRNS'#0'@'#230
+#216'f'#0#0#0#1'bKGD'#0#136#5#29'H'#0#0#0#9'pHYs'#0#0#11#19#0#0#11#19#1#0#154
+#156#24#0#0#0#7'tIME'#7#217#9#8#5'&7L'#233'I'#25#0#0#0'uIDAT'#24#211'c` '#22
+#252#135#0#20#142#0#156#227#226#226'/'#128')'#243#197#197#223#5#183#12#138#1
+#31#5#229'!'#156#31#29#253#31'%:'#26#225'2'#31#219#203';'#224'2'#18#229#245
+'?'#26'a2'#226#229#245#223#27'a2'#226#223#203#203#17'2'#245'0'#14#208#158#142
+#242#239#21#130'H'#166'5B,'#2'Y'#218'(('#232#253#17#196'a'#20#4#3#145#253#2#8
+#15'3B'#164#160'@d#'#18#135'Q'#0#0#176'7]'#228#140','#205'?'#0#0#0#0'IEND'
+#174'B`'#130
]);

5
components/lazreport/source/lr_register.pas
View File

@ -19,8 +19,9 @@ uses
LR_E_TXT,
LR_E_HTM,
LR_E_CSV,
LR_PGrid,
LR_View,
ComponentEditors,
LazarusPackageIntf;
@ -48,7 +49,7 @@ begin
TfrBarCodeObject,TfrRoundRectObject,TfrShapeObject,
TfrCheckBoxObject,TfrCompositeReport,TfrUserDataset,
TfrTextExport,TfrHTMExport,TfrCSVExport,
TfrPrintGrid,TfrDesigner]);
TfrPrintGrid,TfrDesigner,TfrPreview]);
RegisterComponentEditor(TfrReport, TfrRepEditor);
end;

3
components/lazreport/source/lr_view.pas
View File

@ -277,7 +277,8 @@ end;
procedure TfrPreview.DoOnChangeBounds;
begin
inherited DoOnChangeBounds;
FWindow.FormResize(nil);
if FWindow<>nil then
FWindow.FormResize(nil);
end;
procedure TfrPreview.OnePage;