Quick Report

23/05/2003

1

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


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
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira