Jhonas

conhece o ditado ? ninguém nasce sabendo ! começe com HTML que é mais facil, depois vá incorporando as outras linguagens obs: Tem muito material disponivel na net para estudos abraço

ok... então para começar veja http://www.ime.usp.br/~acvm/mac115/boliche1.pdf e depois http://www.ime.usp.br/~macmulti/ abraço

voce pode usar HTML, ASP, PHP..etc vai depender da sua vontade e interesse mas isso exige muita leitura, paciencia e dedicação aos estudos abraço

voce pode usar HTML, ASP, PHP..etc vai depender da sua vontade e interesse mas isso exige muita leitura, paciencia e dedicação aos estudos abraço

amigo, se voce quer que alguém faça para voce, vai ser dificil tente fazer e se tiver duvida voce coloca no forum abraço

voce quer algo como o Mysql-Front ? ( digitar o comando e ver o resultado ? ) https://www.google.com.br/?gfe_rd=cr&ei=kacAVa-PJtW2mQGU0IHYDA&gws_rd=ssl#q=mysql+front+download abraço

Seja bem vinda ao Forum ... OBS: poste suas duvidas no forum correto abraço

faça assim unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} { procedure utilizada pela função que pega o serial do hd } procedure ChangeByteOrder( var Data; Size : Integer ); var ptr : PChar; i : Integer; c : Char; begin ptr := @Data; for i := 0 to (Size shr 1)-1 do begin c := ptr^; ptr^ := (ptr+1)^; (ptr+1)^ := c; Inc(ptr,2); end; end; { função que pega o serial number FÍSICO do HD e retorna string } function GetIdeDiskSerialNumber : String; type TSrbIoControl = packed record HeaderLength: ULONG; Signature: Array[0..7] of Char; Timeout: ULONG; ControlCode: ULONG; ReturnCode: ULONG; Length: ULONG; end; SRB_IO_CONTROL = TSrbIoControl; PSrbIoControl = ^TSrbIoControl; TIDERegs = packed record bFeaturesReg : Byte; // especificar "comandos" SMART bSectorCountReg : Byte; // registro de contador de setor bSectorNumberReg : Byte; // registro de número de setores bCylLowReg : Byte; // valor de cilindro (byte mais baixo) bCylHighReg : Byte; // valor de cilindro (byte mais alto) bDriveHeadReg : Byte; // registro de drive/cabeça bCommandReg : Byte; // comando IDE bReserved : Byte; // reservado- tem que ser zero end; IDEREGS = TIDERegs; PIDERegs = ^TIDERegs; TSendCmdInParams = packed record cBufferSize : DWORD; irDriveRegs : TIDERegs; bDriveNumber : Byte; bReserved : Array[0..2] of Byte; dwReserved : Array[0..3] of DWORD; bBuffer : Array[0..0] of Byte; end; SENDCMDINPARAMS = TSendCmdInParams; PSendCmdInParams = ^TSendCmdInParams; TIdSector = packed record wGenConfig : Word; wNumCyls : Word; wReserved : Word; wNumHeads : Word; wBytesPerTrack : Word; wBytesPerSector : Word; wSectorsPerTrack : Word; wVendorUnique : Array[0..2] of Word; sSerialNumber : Array[0..19] of Char; wBufferType : Word; wBufferSize : Word; wECCSize : Word; sFirmwareRev : Array[0..7] of Char; sModelNumber : Array[0..39] of Char; wMoreVendorUnique : Word; wDoubleWordIO : Word; wCapabilities : Word; wReserved1 : Word; wPIOTiming : Word; wDMATiming : Word; wBS : Word; wNumCurrentCyls : Word; wNumCurrentHeads : Word; wNumCurrentSectorsPerTrack : Word; ulCurrentSectorCapacity : ULONG; wMultSectorStuff : Word; ulTotalAddressableSectors : ULONG; wSingleWordDMA : Word; wMultiWordDMA : Word; bReserved : Array[0..127] of Byte; end; PIdSector = ^TIdSector; const IDE_ID_FUNCTION = $EC; IDENTIFY_BUFFER_SIZE = 512; DFP_RECEIVE_DRIVE_DATA = $0007c088; IOCTL_SCSI_MINIPORT = $0004d008; IOCTL_SCSI_MINIPORT_IDENTIFY = $001b0501; DataSize = sizeof(TSendCmdInParams)-1+IDENTIFY_BUFFER_SIZE; BufferSize = SizeOf(SRB_IO_CONTROL)+DataSize; W9xBufferSize = IDENTIFY_BUFFER_SIZE+16; var hDevice : THandle; cbBytesReturned : DWORD; pInData : PSendCmdInParams; pOutData : Pointer; // PSendCmdOutParams Buffer : Array[0..BufferSize-1] of Byte; srbControl : TSrbIoControl absolute Buffer; begin Result := ''; FillChar(Buffer,BufferSize,#0); if Win32Platform=VER_PLATFORM_WIN32_NT then // Windows NT, Windows 2000, Windows XP, Windows Vista, Win 7 begin // recuperar handle da porta SCSI hDevice := CreateFile('\\.\Scsi0:', // Nota: '\\.\C:' precisa de privilégios administrativos GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0); if hDevice=INVALID_HANDLE_VALUE then Exit; try srbControl.HeaderLength := SizeOf(SRB_IO_CONTROL); System.Move('SCSIDISK',srbControl.Signature,8); srbControl.Timeout := 2; srbControl.Length := DataSize; srbControl.ControlCode := IOCTL_SCSI_MINIPORT_IDENTIFY; pInData := PSendCmdInParams(PChar(@Buffer) +SizeOf(SRB_IO_CONTROL)); pOutData := pInData; with pInData^ do begin cBufferSize := IDENTIFY_BUFFER_SIZE; bDriveNumber := 0; with irDriveRegs do begin bFeaturesReg := 0; bSectorCountReg := 1; bSectorNumberReg := 1; bCylLowReg := 0; bCylHighReg := 0; bDriveHeadReg := $A0; bCommandReg := IDE_ID_FUNCTION; end; end; if not DeviceIoControl( hDevice, IOCTL_SCSI_MINIPORT, @Buffer, BufferSize, @Buffer, BufferSize, cbBytesReturned, nil ) then Exit; finally CloseHandle(hDevice); end; end else begin // Windows 95 OSR2, Windows 98, Windows ME hDevice := CreateFile( '\\.\SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0 ); if hDevice=INVALID_HANDLE_VALUE then Exit; try pInData := PSendCmdInParams(@Buffer); pOutData := @pInData^.bBuffer; with pInData^ do begin cBufferSize := IDENTIFY_BUFFER_SIZE; bDriveNumber := 0; with irDriveRegs do begin bFeaturesReg := 0; bSectorCountReg := 1; bSectorNumberReg := 1; bCylLowReg := 0; bCylHighReg := 0; bDriveHeadReg := $A0; bCommandReg := IDE_ID_FUNCTION; end; end; if not DeviceIoControl( hDevice, DFP_RECEIVE_DRIVE_DATA, pInData, SizeOf(TSendCmdInParams)-1, pOutData, W9xBufferSize, cbBytesReturned, nil ) then Exit; finally CloseHandle(hDevice); end; end; with PIdSector(PChar(pOutData)+16)^ do begin ChangeByteOrder(sSerialNumber,SizeOf(sSerialNumber)); SetString(Result,sSerialNumber,SizeOf(sSerialNumber)); end; end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := GetIdeDiskSerialNumber; end; end. abraço

como eu faço pra colocar um tópico de perguntas no forum? no botão preto ( Novo Tópico ) que está no forum na parte de cima, lado direito abraço

pode ser http://forum.imasters.com.br/topic/487214-webbrowser/ tente esse tambem http://www.planetadelphi.com.br/dica/7499/-twebbrowser-como-clicar-no-botao-do-html- OBS: o correto seria fazer uma pesquisa no código da pagina e achar os elementos para testar abraço

mostre a parte do código onde ocorre esse erro veja tambem se voce não esqueceu de declarar alguma uses

veja se isso te ajuda https://www.scriptbrasil.com.br/forum/topic/178331-problema-para-clicar-no-botao-sem-id-delphi/ https://www.google.com.br/webhp?ie=utf-8&oe=utf-8&gws_rd=cr&ei=Sg7_VJDABYHXggTyyYDQAw#q=delphi+webbrowser+click+submit+button abraço

passe o endereço da pagina

exemplo: se o campo do DBEdit for do tipo integer ou float var Valor : real; valor := CDS_CadProutoPR_VENDA.Value - CDS_CadProutoPR_COMPRA.Value; ou valor := strtoint(DBEdit1.Text) - strtoint(DBEdit2.Text); ou valor := strtofloat(DBEdit1.Text) - strtofloat(DBEdit2.Text); abraço

na propriedade do DateTimePicker1 DateFormat = dfLong segunda-feira, 9 de março de 2015 abraço

como o código não esta usando componentes visuais e nem de banco de dados, acho que funciona faça o teste abraço

ok... fica assim unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Memo2: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} type TChars = set of Char; function FilterChars(const S: string; const ValidChars: TChars): string; var I: integer; begin Result := ''; for I := 1 to Length(S) do if S[I] in ValidChars then Result := Result + S[I]; end; procedure TForm1.Button1Click(Sender: TObject); var S: Pchar; s1, r : string; i : integer; begin Memo2.Clear; for i := 0 to Memo1.Lines.Count -1 do begin S := Pchar(trim(Memo1.Lines.Strings[i])); r := ''; r := (FilterChars(s,['A'..'Z', 'a'..'z'])); if r = '' then Memo2.Lines.Append(s) else Memo2.Lines.Append('.'+s); end; end; end. Resultado da sua lista 12.129.206.102 12.129.225.115 12.28.27.130 12.28.27.131 12.28.27.132 128.121.249.189 128.242.116.130 .14words.com 192.67.198.4 192.67.198.49 193.96.188.143 194.200.132.34 194.231.46.220 194.231.46.221 194.246.96.48 195.4.52.48 195.63.211.202 198.104.154.25 198.64.148.133 198.65.131.93 198.65.131.94 199.93.70.2 203.2.124.18 204.181.176.53 204.228.229.164 204.228.229.165 204.228.229.166 204.228.229.167 204.228.229.168 204.228.229.177 204.228.229.178 204.228.229.179 204.228.229.180 204.228.229.181 204.251.10.203 204.251.10.213 204.50.24.185 205.160.14.21 205.160.14.22 205.167.142.6 205.234.132.8 205.241.44.90 206.113.230.2 206.160.0.11 206.160.0.248 206.160.0.252 206.168.114.48 206.168.114.50 206.168.114.52 206.168.114.53 206.207.85.33 206.244.69.51 206.246.209.45 206.251.184.30 206.31.204.150 207.126.49.11 207.158.229.242 207.201.162.40 207.217.96.29 207.217.96.30 207.217.96.31 207.217.96.32 207.217.96.33 207.217.96.35 207.217.96.36 207.217.96.37 207.217.96.38 207.217.96.39 207.217.96.40 207.217.96.41 207.217.96.42 207.217.96.43 207.217.96.44 207.217.96.45 207.231.72.88 207.36.18.209 207.36.45.220 207.44.168.20 207.44.168.233 207.44.169.192 207.44.173.116 207.44.218.85 207.44.248.187 207.44.248.188 207.44.248.190 207.44.249.161 207.70.7.168 207.71.8.68 208.185.127.162 208.185.127.163 208.185.127.165 208.185.127.168 208.185.127.169 208.254.3.130 208.254.3.160 208.254.3.169 208.254.3.180 208.48.246.80 208.55.206.181 208.56.125.247 208.56.200.121 209.1.28.222 209.1.28.62 209.103.172.156 209.103.172.199 209.120.129.252 209.123.16.9 209.123.184.7 209.126.159.26 209.126.159.27 209.126.164.242 209.126.168.26 209.126.206.173 209.126.206.180 209.15.74.4 209.15.84.106 209.16.80.2 209.16.80.4 209.161.0.32 209.161.1.14 209.161.228.29 209.161.231.185 209.161.237.116 209.171.43.13 209.189.198.102 209.195.129.84 209.195.130.178 209.196.188.172 209.197.123.166 209.204.200.140 209.204.217.45 209.240.128.4 209.25.129.211 209.250.128.48 209.250.128.7 209.254.34.188 209.35.194.183 209.51.153.26 209.61.200.137 212.112.238.70 212.114.150.187 212.227.118.69 212.227.174.218 212.227.187.14 212.38.173.23 213.130.63.232 213.130.63.233 213.148.142.130 213.61.105.210 213.61.105.213 213.83.41.141 216.100.98.13 216.100.98.17 216.100.98.24 216.100.99.13 216.100.99.17 216.110.132.232 216.110.143.153 216.110.170.65 216.118.88.207 216.120.251.2 216.126.73.71 216.127.68.84 216.127.78.69 216.138.238.71 216.148.213.149 216.150.67.66 216.167.114.177 216.169.106.11 216.169.126.164 216.173.214.14 216.18.130.8 216.193.197.238 216.193.219.130 216.193.219.176 216.218.248.130 216.218.248.145 216.218.248.174 216.218.248.244 216.219.253.193 216.40.195.47 216.40.213.201 216.43.175.114 216.55.175.240 216.73.102.125 217.158.94.51 217.160.158.162 217.160.181.139 217.160.226.136 217.195.47.119 217.243.191.101 217.243.191.102 217.69.237.5 217.79.181.161 38.119.83.27 38.144.87.87 .50cent.com 62.104.23.213 62.116.137.145 62.116.137.155 62.116.137.173 62.116.138.132 62.116.138.135 62.116.138.140 62.116.138.142 62.116.139.64 62.116.140.196 62.116.140.212 62.73.174.194 63.164.32.130 63.218.152.42 63.236.214.203 63.249.227.174 63.251.163.112 64.136.24.162 64.136.24.165 64.143.9.197 64.156.139.229 64.227.44.114 64.235.246.143 64.239.0.11 64.239.28.7 64.239.80.146 64.239.87.165 64.246.32.137 64.246.44.69 64.246.50.88 64.250.235.140 64.250.235.141 64.40.102.41 64.70.225.193 64.74.96.244 64.82.99.102 65.246.58.39 65.246.58.5 65.246.58.7 65.75.153.23 65.98.41.82 66.109.239.42 66.116.109.35 66.139.77.84 66.150.161.133 66.150.51.160 66.175.2.27 66.194.152.138 66.194.239.191 66.194.239.192 66.194.239.86 66.194.67.102 66.216.74.56 66.216.74.57 66.218.79.157 66.218.79.158 66.218.79.159 66.218.79.164 66.218.79.165 66.218.79.166 66.221.97.45 66.226.64.2 66.235.217.102 66.235.219.115 66.246.150.71 66.246.44.63 66.255.14.40 66.255.14.41 66.36.97.32 66.54.217.236 66.70.194.149 66.78.36.83 66.84.33.138 66.96.31.132 66.96.31.165 66.96.31.71 66.98.136.77 66.98.176.92 66.98.245.113 67.15.35.16 67.19.136.164 67.19.136.167 67.19.32.68 68.251.194.114 68.251.194.119 69.0.211.66 69.0.212.37 69.26.170.37 69.43.166.7 69.5.12.203 69.56.220.30 69.57.142.126 69.57.142.159 69.57.142.41 69.60.110.41 69.60.160.133 69.7.164.162 69.7.164.171 69.93.219.186 69.93.219.189 69.93.51.181 70.85.161.7 81.88.35.41 81.88.35.42 82.165.203.135 84.22.162.58 .adelaideinstitute.org .air-photo.com .americannaziparty.com .americanskinheads.com .amren.com .anu.org .appd.de .aufmarsch.de .bahb.net .bhsweden.tsx.org .blacksandjews.com .bloodandhonour.com .bnp.net .brainwashstudios.com .buendnis-rechts.de .bulldog88.tsx.org .burks.de .campaign.davidduke.com .churchofsatan.org .civil-liberties.com .civilwartwo.com .club3k.at .codoh.com .cofcc.org .creator.org .crusader.net .dailyrotten.com .deutsches-rechtsbuero.de .deutsches-reich.de .duke.org .dumponyou.com .fn.md.webjump.com .fpp.co.uk .frank-rennicke.de .freedomsite.org .freikorps.com .freimaurer.org .hammerskins.com .hanse-records.de .happytreefriends.com .heimatkunde.tsx.org .heimattreue-jugend.de .hoffman-info.com .ihr.org .internationalknights.de .jdo.org .jeffsarchive.com .johnsack.com .jsvp.ch .k-k-k.com .kamellia.com .kingidentity.com .kkk.com .kkkk.net .kriegsfront.tsx.org .kukluxklan.net .kukluxklan.org .kulmbacher.freeservers.com .kulturkammer.de .lewr.net .lewr.org .louisbeam.com .mankind.org .melvig.org .micetrap.net .midgaard.org .mjt.nysv.org .musicalterrorists.com .n-a-f.com .naawp.com .natall.com .natfront.com .natvan.com .nazi.org .neworderknights.org .niggerjoke.com .nit.de .nizkor.org .nordfront.de.cx .nordland.net .nordzeit.de .normanfinkelstein.com .npd.net .oikrach.com .ourhero.com .pathcom.com .propatria.org .puresatan.com .radioislam.net .rahowa.com .redwatch.co.uk .redwatch.net .redwatch.org.uk .resist.com .resistance.com .revisionism.com .rotten.com .rudolf-hess.org .ruetli1291.ch .schweizer-demokraten.ch .scripturesforamerica.org .seek2.com .siegener-baerensturm.de .signal-online.de .site88.8m.com .skinheadxx.tsx.org .stickdeath.com .stormfront.org .svp.ch .theanonymousemail.com .thisisarandomentrythatdoesnotexist.com .thulenet.com .thulepublications.com .tt-v.de .ukar.org .unitedstrike.com .vanguardnewsnetwork.com .vho.org .wakeupordie.com .wckkkk.com .wcotc.com .whemporium.com .whitepride.net .whiteracist.com .whitesingles.com .whiteunitypress.com .widerstand.com .wno.org .wolfsrudel.org .wotansdungeon.tsx.org abraço

a onde for dominios gostaria de estar colocando um . na frente procedure TForm1.Button1Click(Sender: TObject); var S: Pchar; s1 : string; i : integer; begin Memo2.Clear; for i := 0 to Memo1.Lines.Count -1 do begin S := Pchar(trim(Memo1.Lines.Strings[i])); if pos('1.',s) > 0 then Memo2.Lines.Append(s) else begin s1 := StringReplace(s,'1','.1',[rfReplaceAll]); Memo2.Lines.Append(s1); end; end; end; .1-monster.ru .1-porno.org .1-securebanking.com .1-sexe-gratuit.biz .1-uploads.ru .1-verygoods.ru 1.10.97.216 1.104.7.195 1.11.214.186 1.112.201.202 1.114.164.11 1.114.176.202 1.114.239.159 1.browncastro.com 1.michaelwilsonmusic.com .100-celebrities.com .100-escorts.com OBS: se voce manter o ( - ) traço para os domínios e o ponto ( . ) para o IP , não terá que mudar nada no código abraço

veja https://www.google.com.br/?gfe_rd=cr&ei=Ptj5VJW1N9CxzQKOgoHIAQ&gws_rd=ssl#q=3d+qt+tutorial abraço

exemplos http://stackoverflow.com/questions/7419344/string-grid-and-graphic-in-cells http://stackoverflow.com/questions/9924259/inserting-image-in-stringgrid-cell https://www.scriptbrasil.com.br/forum/topic/118440-resolvidoiamgem-no-stringgrid/?p=484989 abraço

veja https://www.google.com.br/?gfe_rd=cr&ei=UXn4VI6HKIGZzAL8hIH4BQ&gws_rd=ssl#q=editor+em+portugues+para+sites abraço

No Auto-create Foms , os seus forms são automaticamente criados no Available Forms, os seus forms somente são criados em tempo de execução ( um a um ) abraço

function Application.MessageBox(Text, Caption: PChar; Flags: LongInt): Integer; O PChar genérico representa um ponteiro para um valor de Char. ( Caracteres ) Este ponteiro de caracteres é usado para manipular strings terminadas em nulos. OBS: Strings terminadas em nulo são na realidade apenas arrays de caracteres que tem em sua ultima posição um caracter nulo (#0) para marcar o fim da string. Devido à ausência de um indicador de comprimento da string, as operações que dependem dessa informação são normalmente executadas mais rapidamente quando realizadas sobre strings padrão Pascal. O Delphi, define estas strings como sendo ponteiros para caracteres com o nome de PChar. Ele também pode ser usado para apontar caracteres dentro de uma cadeia, ou seja, um PChar pode ser indexado como se fosse um array de caracteres. de maneira mais simples: if Application.MessageBox('Deseja realmente excluir este Produto ?','Confirme', MB_ICONQUESTION+MB_YESNO) = ID_YES then se voce não usar o Pchar não seria possível incluir na string o controle de quebra de linha para esse comando: Application.MessageBox 'Deseja realmente excluir este Produto ?' +#13+#13+ abraço

só que ele aparece uma coluna a mais sendo que no striggrid não tem essa coluna, isso é simples de resolver Printer.Canvas.TextOut(0, 100, Printer.Title); for F := 0 to sGrid.ColCount-1 do begin X1 := 0; OBS: O mesmo vale para a linha a mais que aparece na impressão Printer.Canvas.Font.Style := []; for TmpI := 0 to sGrid.RowCount-1 do begin Y1 := 150 * TmpI + 300; abraço

o código fica dessa maneira unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls; type TForm1 = class(TForm) Button1: TButton; StringGrid1: TStringGrid; procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses Printers; procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin If (arow > 0) then if (odd(arow)) then begin stringgrid1.Canvas.Font.Color:= clBlack; stringgrid1.Canvas.Brush.Color:= clBtnFace; end else begin stringgrid1.Canvas.Font.Color:= clBlack; stringgrid1.Canvas.Brush.Color:= clWhite; end; stringgrid1.Canvas.FillRect(Rect); stringgrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,stringgrid1.Cells[acol,arow]); end; procedure PrintGrid(sGrid: TStringGrid; sTitle: string); var X1, X2: Integer; Y1, Y2: Integer; TmpI: Integer; F: Integer; TR: TRect; begin Printer.Title := sTitle; Printer.BeginDoc; Printer.Canvas.Pen.Color := 0; Printer.Canvas.Font.Name := 'Times New Roman'; Printer.Canvas.Font.Size := 12; Printer.Canvas.Font.Style := [fsBold, fsUnderline]; Printer.Canvas.TextOut(0, 100, Printer.Title); for F := 0 to sGrid.ColCount do begin X1 := 0; for TmpI := 0 to (F - 1) do X1 := X1 + 5 * (sGrid.ColWidths[TmpI]); Y1 := 300; X2 := 0; for TmpI := 0 to F do X2 := X2 + 5 * (sGrid.ColWidths[TmpI]); Y2 := 450; TR := Rect(X1, Y1, X2 - 30, Y2); Printer.Canvas.Font.Style := [fsBold]; Printer.Canvas.Font.Size := 7; Printer.Canvas.TextRect(TR, X1 + 50, 350, sGrid.Cells[F, 0]); Printer.Canvas.Font.Style := []; for TmpI := 0 to sGrid.RowCount do begin Y1 := 150 * TmpI + 300; Y2 := 150 * (TmpI + 1) + 300; if Odd(TmpI) then Printer.Canvas.Brush.Color := clBtnFace else Printer.Canvas.Brush.Color := clWhite; TR := Rect(X1, Y1, X2 - 30, Y2); Printer.Canvas.TextRect(TR, X1 + 50, Y1 + 50, sGrid.Cells[F, TmpI]); Printer.Canvas.Brush.Color := clBlack; Printer.Canvas.FrameRect(TR); Printer.Canvas.Brush.Color := clWhite; end; end; Printer.EndDoc; end; procedure TForm1.Button1Click(Sender: TObject); begin PrintGrid(StringGrid1, 'Print Stringgrid'); end; end. abraço