BlogGang.com : : Pu121 : Disable minimize Qreport

Disable minimize Qreport

When generating reports you may want to hide the minimize button of the QuickReport preview form, if pressed it can minimize the preview form and hide away from your users, that may get some users mixed up and if Preview is called again, you may get an error message aswell. I also disable the maximize button because it may achieve the same result giving an error.

code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!

Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.

!**************************************
! Name: Disable minimize and maximize bu
! ttons of a quick report print preview fo
! rm
! Description:When generating reports yo
! u may want to hide the minimize button o
! f the
QuickReport preview form, if pressed it can minimize the preview form and
hide away from your users, that may get some users mixed up and if Preview
is called again, you may get an error message aswell. I also disable the
maximize button because it may achieve the same result giving an error.
! By: Francisco Vazquez
!
!This code is copyrighted and has ! limited warranties.Please see //w
! ww.Planet-Source-Code.com/vb/scripts/Sho
! wCode.asp?txtCodeId=1664&lngWId=7 !for details. !**************************************

Place on the BeforePrint event of the QuickReport the following code:
var
i: Integer;
begin
for i := 0 to Screen.FormCount - 1 do
if Screen.Forms[i].ClassName = 'TQRStandardPreview' then
begin
Screen.Forms[i].BorderIcons:= Screen.Forms[i].BorderIcons-[biMinimize]; //hides minimize button
Screen.Forms[i].BorderIcons:= Screen.Forms[i].BorderIcons-[biMaximize]; //hides maximize button
end;
end;

Create Date : 20 กุมภาพันธ์ 2551

Last Update : 20 กุมภาพันธ์ 2551 15:28:09 น.

0 comments

Counter : 1113 Pageviews.