AutoScroll Especifica se a barra de scroll aparecerá automaticamente no form se ele não tiver a largura sufuciente para mostrar todos os seus componentes BorderStyle BorderStyle especifica a aparência e comportamento da borda do form. bsNone = 0 '-- Borda invisível.Não redimensionável bsSingle = 1 '-- Borda simples, Não redimensionável bsSizeable = 2 '-- Borda padrão redimensionável bsDialog = 3 '-- Diálogo, não redimensionável bsToolWindow = 4 '-- Como bsSingle mas com pequeno caption bsSizeToolWin = 5 '-- Como bsSizeable com pequeno caption ClientHeight A altura da área cliente do form, isto é da área utilizável dentro da borda do form. Cores Básicas clBlack = 0
clWhite = &HFFFFFF clBlue = &HFF0000 clGreen = &H00FF00 clRed = &H0000FF clPurple = &HFF00FF Cores do Sistema:
clScrollBar = -2147483648
clHilightText
= -2147483634 clBackGround = -2147483647 clBtnFace = -2147483633 clActiveCaption = -2147483646 clBtnShadow = -2147483632 clInActiveCaption = -2147483645 clGrayText = -2147483631 clMenu = -2147483644 clBtnText = -2147483630 clWindow = -2147483643 clInActiveCaptionText = -2147483629 clWindowFrame = -2147483642 clBtnHighlight = -2147483628 clMenuText = -2147483641 cl3DDkShadow = -2147483627 clWindowText = -2147483640 cl3DLight = -2147483626 clCaptionText = -2147483639 clInfoText = -2147483625 clActiveBorder = -2147483638 clInfoBk3DDkShadow = -2147483624 clInActiveBorder = -2147483637 clNone = 536870911 clAppWorkSpace = -2147483636 clDefault = 536870912 clHilight = -2147483635 Cursor
crDefault = 0 ' Ponteiro normal crNone = -1 crArrow = -2 crCross = -3 crIBeam = -4 crSize = -5 crSizeNESW = -6 crSizeNS = -7 crSizeNWSE = -8 crSizeWE = -9 crUpArrow = -10 crHourGlass = -11 crDrag = -12 crNoDrop = -13 crHSplit = -14 crVSplit = -15 crMultiDrag = -16 crSQLWait = -17 crNo = -18 crAppStart = -19 crHelp = -20 crHandPoint = -21 FormStyle Pega ou seta o estilo do form. Somente fsNormal é suportado Handle Pega o handle do form para a chamada da API do Windows Hint O hint é a dica que aparece quando se move o mouse sobre o form. Só é mostrada se ShowHint estiver ativada. IcoHandle Designa o handle de um recurso de ícone que aparecerá como o ícone do form Exemplo: $Resource game_Ico as "Game.ico" Dim Form as QForm Form.IcoHandle = game_Ico Icon Determina o nome do arquivo do ícone que aparecerá no form KeyPreview Determina se os eventos do teclado poderão ocorrer no form antes de ocorrerem no componente ativo. Nem todas as teclas serão redirecionadas. Left Determina a margem à esquerda do form relativa à lateral da tela ModalResult Atribuindo um valor a ModalResult fechará o formulário quando é mostrado modalmente. Parent Determina que um parent removerá o segundo form da barra de tarefas PopupMenu O PopupMenu é mostrado quando o usuário clica com o botão direito do mouse sobre o form Exemplo: Dim PopupMenu1 as QPopupMenu Dim Form as QForm Form.PopupMenu = PopupMenu1 ShowHint Se ativado a mensagem do hint será mostrada WindowState Determina como o form aparece na tela 0 = wsNorma - O form aparece nem maximizado nem minimizado 1 = wsMinimized - O form é minimizado 2 = wsMaximizado - O form é maximizado AddBorderIcons Os icones de borda válidos são: 0 = biSystemMenu -- The form icon 1 = biMinimize -- The minimize icon 2 = biMaximized -- The maximize icon 3 = biHelp -- The help icon Exemplo: $INCLUDE "RAPIDQ.INC" DIM Form AS QFORM Form.AddBorderIcons(biHelp) DIM Destination AS QRECT DIM Source AS QRECT DIM Image AS QIMAGE Image.BMP = "whatever.bmp" SUB FormPaint (Sender AS QFORM) WITH Destination . Top = 10 .Left = 10 . Right = .Left+Image.Width . Bottom = .Top+Image.Height END WITH WITH Source . Top = 0 . Left = 0 . Right = Image.Width . Bottom = Image.Height END WITH Sender.CopyRect(Destination, Image, Source) END SUB DIM Form AS QFORM Form.OnPaint = FormPaint DelBorderIcons Os icones de borda válidos são: 0 = biSystemMenu -- O icone do form 1 = biMinimize -- O icone minimizado 2 = biMaximized -- O icone maximizado 3 = biHelp -- O icone de ajuda Exemplo: $INCLUDE "RAPIDQ.INC" DIM Form AS QFORM Form.DelBorderIcons(biMinimize) Detalhes: Deletar o icone pode não necessariamente removê-lo da barra de título do form, mas o icone será descolorido Draw Detalhes: BMP pode ser qualquer propriedade BMP de QBitmap, QImage, QImageList, etc. qualquer componente com uma propriedade BMP serve. Exemplos: DIM Image1 AS QIMAGE Image1.BMP = "whatever.bmp" DIM Image2 AS QBITMAP Image2.BMP = "whatever.bmp" SUB FormPaint (Sender AS QFORM) Sender.Draw(0, 0, Image1.BMP) Sender.Draw(50, 50, Image2.BMP) END SUB DIM Form AS QFORM Form.OnPaint = FormPaint ShapeForm Detalhes: O primeiro parâmetro pode ser um filename para o arquivo BMP, ou um arquivo de recurso BMP. O segundo parâmetro indica qual cor é transparente. Exemplo 1: DIM Form AS QFORM Form.ShapeForm("image.bmp", &HFFFFFF) Exemplo 2: $RESOURCE image_BMP AS "image.bmp" DIM Form AS QFORM Form.ShapeForm(image_BMP, &HFFFFFF) StretchDraw Detalhes: BMP pode ser qualquer propriedade BMP do QBitmap, QImage, QImageList, etc. qualquer componente com uma propriedade BMP serve.. Exemplo (Duplica o tamanho original): DIM Image1 AS QIMAGE Image1.BMP = "whatever.bmp" SUB FormPaint (Sender AS QFORM) DIM R AS QRECT R.Left = 0 R.Top = 0 R.Right = Image1.Width*2 R.Bottom = Image1.Height*2 Sender.StretchDraw(R Image1.BMP) END SUB DIM Form AS QFORM Form.OnPaint = FormPaint TextOut Detalhes: fc% = foreground color bc% = background color Para um fundo transparente background, use o parâmetro bc% como -1 WndProc Apenas um WndProc por Form é permitido. Assim se tiver multiplos forms, apenas um estará habilitado a receber mensagens de cada vez. |
