Quick Report

23/05/2003

0

Como faço para desabilitar aqueles botoes no Quick Report, Impressora, Conf. Impressora, etc...

So quero que mostre o formulário, e o botão de sair.

Desde ja agradeco


Marcelototini

Marcelototini

Responder

Posts

23/05/2003

Carnette

Como faço para desabilitar aqueles botoes no Quick Report, Impressora, Conf. Impressora, etc... So quero que mostre o formulário, e o botão de sair. Desde ja agradeco



Aí em baixo está o que está escrito no arquivo QRPREV.DFM...

é só abrir este arquivo e fazer as modificações necessárias...Mas, tenha cuidaddo para NÃO desalinhar os objetos...ok..em negrito estão as propriedades que vc deve alterar e/ou incluir..

object QRStandardPreview: TQRStandardPreview
Left = 229
Top = 191
Width = 652
Height = 579
Caption = ´Print Preview´
Color = clBtnFace
ParentFont = True
KeyPreview = True
OldCreateOrder = True
Position = poScreenCenter
ShowHint = True
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 13
object StatusBar: TStatusBar
Left = 0
Top = 538
Width = 644
Height = 19
Panels = <
item
Alignment = taRightJustify
Text = ´0¬´
Width = 40
end
item
Text = ´Page´
Width = 50
end>
SimplePanel = False
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 644
AutoSize = True
BorderWidth = 2
Flat = True
Images = Images
TabOrder = 1
object ToolButton1: TToolButton //1º Botao
Left = 0
Top = 0
Width = 8
Caption = ´ToolButton1´
ImageIndex = 12
Style = tbsDivider
[b:751b912085]Visible = False[/b:751b912085]
end
object ZoomFit: TToolButton //2º Botão
Left = 8
Top = 0
Hint = ´Zoom to fit´
Caption = ´ZoomFit´
Grouped = True
ImageIndex = 0
Style = tbsCheck
[b:751b912085]Visible = False[/b:751b912085]
OnClick = ZoomToFitClick
end
object Zoom100: TToolButton \\3º Botao
Left = 31
Top = 0
Hint = ´100¬´
Caption = ´Zoom100´
Grouped = True
ImageIndex = 1
Style = tbsCheck
OnClick = ZoomTo100Click
[b:751b912085]Visible = False[/b:751b912085]
end
object ZoomToWidth: TToolButton \\4º Botao
Left = 54
Top = 0
Hint = ´Zoom to width´
Caption = ´ZoomToWidth´
Grouped = True
ImageIndex = 2
Style = tbsCheck
OnClick = ZoomToWidthClick
[b:751b912085]Visible = False[/b:751b912085]
end
object Separator1: TToolButton \\5º Botao
Left = 77
Top = 0
Width = 8
Caption = ´Separator1´
ImageIndex = 3
Style = tbsDivider
[b:751b912085]Visible = False[/b:751b912085]
end
object FirstPage: TToolButton \\6º Botao
Left = 85
Top = 0
Hint = ´First page´
Caption = ´FirstPage´
ImageIndex = 3
OnClick = FirstPageClick
[b:751b912085]Visible = False[/b:751b912085]
end
object PreviousPage: TToolButton \\7º botao
Left = 108
Top = 0
Hint = ´Previous page´
Caption = ´PreviousPage´
ImageIndex = 4
OnClick = PrevPageClick
[b:751b912085]Visible = False[/b:751b912085]
end
object ToolButton2: TToolButton \\8º Botao
Left = 131
Top = 0
Hint = ´Next page´
Caption = ´NextPage´
ImageIndex = 5
OnClick = NextPageClick
[b:751b912085]Visible = False[/b:751b912085]
end
object LastPage: TToolButton \\9º Botao
Left = 154
Top = 0
Hint = ´Last page´
Caption = ´LastPage´
ImageIndex = 6
OnClick = LastPageClick
[b:751b912085]Visible = False[/b:751b912085]
end
object Separator2: TToolButton
Left = 177
Top = 0
Width = 8
Caption = ´Separator2´
ImageIndex = 7
Style = tbsDivider
end
object PrintSetup: TToolButton
Left = 185
Top = 0
Hint = ´Printer setup´
Caption = ´PrintSetup´
Enabled = False
ImageIndex = 7
OnClick = PrintSetupClick
[b:751b912085]Visible = False[/b:751b912085]
end
object Print: TToolButton
Left = 208
Top = 0
Hint = ´Print´
Caption = ´Print´
Enabled = False
ImageIndex = 8
OnClick = PrintClick
[b:751b912085]Visible = False[/b:751b912085]
end
object Separator3: TToolButton
Left = 231
Top = 0
Width = 8
Caption = ´Separator3´
ImageIndex = 9
Style = tbsDivider
end
object SaveReport: TToolButton
Left = 239
Top = 0
Hint = ´Save Report´
Caption = ´PrintSetup´
ImageIndex = 10
OnClick = SaveClick
[b:751b912085]Visible = False[/b:751b912085]
end
object LoadReport: TToolButton
Left = 262
Top = 0
Hint = ´Load Report´
Caption = ´Print´
ImageIndex = 9
OnClick = LoadClick
[b:751b912085]Visible = False[/b:751b912085]
end
object Separator4: TToolButton
Left = 285
Top = 0
Width = 8
Caption = ´Separator4´
ImageIndex = 11
Style = tbsDivider
end
object ExitButton: TSpeedButton
Left = 293
Top = 0
Width = 40
Height = 22
Caption = ´&Close´
OnClick = ExitClick
end
end
object QRPreview: TQRPreview
Left = 0
Top = 32
Width = 644
Height = 506
HorzScrollBar.Tracking = True
VertScrollBar.Tracking = True
Align = alClient
TabOrder = 2
OnPageAvailable = QRPreviewPageAvailable
OnProgressUpdate = QRPreviewProgressUpdate
PageNumber = 1
Zoom = 100
end


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar