Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. Jhonas

    [Ajuda] Jogo

    Pesquise no forum e no google pela palavra Jogos Delphi abraço
  2. dependendo do Texto ( ex: 123124465477856867979) voce deve alterar a propriedade WideFactor para aumentar a lagura. para a altura.. é só clicar nos pontos verdes do código de barras com o mouse e arrastar abraço
  3. Amigo, essa pergunta voce tem que fazer no forum de Visual Basic ... ok ? http://scriptbrasil.com.br/forum/index.php?showforum=23 abraço
  4. no post do Micheus ele dá uma dica .. mas voce tera que alterar um pouco o código abraço
  5. exemplo: OBS: voce deve mudar o código para a sua necessidade unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids; type TForm1 = class(TForm) StringGrid1: TStringGrid; procedure StringGrid1DrawCell(Sender: TObject; Col, Row:Longint;Rect: TRect; State: TGridDrawState); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row:Longint;Rect: TRect; State: TGridDrawState); {***} procedure DrawCellText; var Text: array[0..255] of Char; begin StrPCopy( Text, StringGrid1.Cells[ Col, Row ] ); ExtTextOut( StringGrid1.Canvas.Handle, Rect.Left + 2, Rect.Top + 2, ETO_CLIPPED or ETO_OPAQUE, @Rect, Text, StrLen( Text ), nil ); end; {***} procedure DrawCellColor( CorFundo, CorLetra : TColor ); var S1, S2 : TColor; begin with StringGrid1.Canvas do begin S1 := Brush.Color; S2 := Font.Color; try {pinta o fundo com a cor desejada} Brush.Color := CorFundo; FillRect( Rect ); {pinta as letras com a cor desejada} Font.Color := CorLetra; DrawCellText; finally {restaura as cores} Brush.Color := S1; Font.Color := S2; end;{try} end;{with} end; {***} begin if ( Row = 2 ) and ( Col = 3 ) then DrawCellColor( clYellow, clWindowText ); end; end. abraço
  6. mude a propriedade FixedColor do StringGrid para clYellow ou outra cor que quiser abraço
  7. eu optaria por usar um form transparente e sobrepor sobre outro para mostrar a imagem ou voce pode olhar esse post, e ver se ajuda http://scriptbrasil.com.br/forum/index.php...st&p=594173 abraço
  8. Já pesquisou no forum ? http://scriptbrasil.com.br/forum/index.php...ighlite=tocador abraço
  9. o wincontrol sempre vem a frente de control. é só colocar o timage num panel autosize abraço
  10. acho que tem algo a respeito no forum ... faça uma pesquisa http://scriptbrasil.com.br/forum/index.php...highlite=scroll abraço
  11. exemplo: Button1.SetFocus; DBGrid1.SetFocus; o comando setfocus redireciona o foco para o componente especificado abraço
  12. eu já havia testado dessa forma , porém eu preciso de uma janela externa. Que não esteja no Programa, por exemplo 'Calculadora' nesse caso faça assim: procedure TForm1.Button1Click(Sender: TObject); var H : HWnd; R: TRect; begin H := FindWindow(Nil,'Calculadora'); if H <> 0 then begin GetWindowRect(H, R); label1.Caption := inttostr(R.Top); // posição em cima label2.Caption := inttostr(R.Left); // posição esquerda label3.Caption := inttostr(R.Right); // posição direita label4.Caption := inttostr(R.Bottom); // posição em baixo end; end; OBS: Esse código te da as posições da janela da calculadora em relação a janela do desktop ... então o que voce tem que fazer é calcular o Widht e o Height dessa janela atraves dessas posições agora é por sua conta ... ok ? abraço
  13. exemplo: procedure TForm1.Button1Click(Sender: TObject); var H : HWnd; begin H := FindWindow(Nil,'Form2'); if H <> 0 then begin showmessage('Form2.Width = ' + inttostr(Form2.width)); showmessage('Form2.Heigth = ' + inttostr(Form2.Height)); end; end; abraço
  14. como voce disse que a aplicação foi feita por voce, então procure a parte do código que chama o NCN e depois voce redireciona o foco para o componente que voce quer abraço
  15. exemplos: http://imasters.com.br/artigo/5990/php/delphi_for_php/ http://www.planetadelphi.com.br/artigo/139...-delphi-for-php http://translate.google.com.br/translate?h...m/article/38212 abraço
  16. o sistem.io é uma biblioteca completa de classes deve fazer parte de alguma vcl do delphi2006 abraço
  17. veja esses links https://www.google.com.br/search?source=hp&ei=nioDWsHcN4WKwgTLoJ_wAw&q=http%3A%2F%2Fscriptbrasil.com.br%2Fforum%2Findex.php...e%3Dsalvar%2Bimagem&o que=http%3A%2F%2Fscriptbrasil.com.br%2Fforum%2Findex.php...e%3Dsalvar%2Bimagem&gs_l=psy-ab.3...1445.1445.0.2213.1.1.0.0.0.0.169.169.0j1.1.0....0...1.1.64.psy-ab..0.0.0....0.NjaHWGYU5b8 abraço
  18. http://www.devmedia.com.br/curso/relatorios/Plano_Aula.asp procure por MultiPageReport abraço
  19. o idbasecomponente faz parte do pacote do indy10 { $HDR$} {**********************************************************************} { Unit archived using Team Coherence } { Team Coherence is Copyright 2002 by Quality Software Components } { } { For further information / comments, visit our WEB site at } { http://www.TeamCoherence.com } {**********************************************************************} {} { $Log: 10081: IdBaseComponent.pas { { Rev 1.0 2002.11.12 10:31:32 PM czhower } unit IdBaseComponent; interface uses Classes; // *********************************************************** // TIdBaseComponent is the base class for all Indy components. // *********************************************************** type TIdBaseComponent = class(TComponent) public function GetVersion: string; property Version: string read GetVersion; published end; implementation uses IdGlobal; function TIdBaseComponent.GetVersion: string; begin Result := gsIdVersion; end; end. abraço
  20. esse seu problema é um trabalho de escola, certo ? se voce tentar desenvolver parte do código, o pessoal pode tentar te ajudar .. ok ? abraço
  21. existem programas que fazem isso http://www.sharewareconnection.com/downloa...m-sharecon.html abraço
  22. experimente isso: pFrom := PChar(trim(origem)); abraço
  23. posts relacionados http://scriptbrasil.com.br/forum/index.php...te=rave+reports OBS: Caso voce realmente não encontre nada que o auxilie, me avise abraço
  24. acho que voce não entendeu .... o sistem.io é uma biblioteca completa de classes ... se fosse um dcu existiria um .pas para esse arquivo. ou então não entendi o que voce esta querendo abraço
×
×
  • Criar Novo...