-
Total de itens
9.657 -
Registro em
Tudo que Jhonas postou
-
Pesquise no forum e no google pela palavra Jogos Delphi abraço
-
Configurar Largura do Código de Barras
pergunta respondeu ao Alberto Antonio de Jhonas em Delphi, Kylix
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 -
(Resolvido) Assistir filmes e tv online
pergunta respondeu ao joão Aprendiz de Jhonas em Delphi, Kylix
Amigo, essa pergunta voce tem que fazer no forum de Visual Basic ... ok ? http://scriptbrasil.com.br/forum/index.php?showforum=23 abraço -
TImage com PNG Semi Transparente, por cima de TUDO!
pergunta respondeu ao GuiCorTei de Jhonas em Delphi, Kylix
no post do Micheus ele dá uma dica .. mas voce tera que alterar um pouco o código abraço -
Cor da seleção do StringGrid (de azul para verde)
pergunta respondeu ao GuiCorTei de Jhonas em Delphi, Kylix
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 -
Cor da seleção do StringGrid (de azul para verde)
pergunta respondeu ao GuiCorTei de Jhonas em Delphi, Kylix
mude a propriedade FixedColor do StringGrid para clYellow ou outra cor que quiser abraço -
TImage com PNG Semi Transparente, por cima de TUDO!
pergunta respondeu ao GuiCorTei de Jhonas em Delphi, Kylix
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 -
Já pesquisou no forum ? http://scriptbrasil.com.br/forum/index.php...ighlite=tocador abraço
-
TImage com PNG Semi Transparente, por cima de TUDO!
pergunta respondeu ao GuiCorTei de Jhonas em Delphi, Kylix
o wincontrol sempre vem a frente de control. é só colocar o timage num panel autosize abraço -
(Resolvido) Possivel mostrar rolar DBGrid?
pergunta respondeu ao jaumDoDelphi de Jhonas em Delphi, Kylix
acho que tem algo a respeito no forum ... faça uma pesquisa http://scriptbrasil.com.br/forum/index.php...highlite=scroll abraço -
(Resolvido) Problemas com FOCO na aplicação TEF
pergunta respondeu ao Paulo Henrique de Assis de Jhonas em Delphi, Kylix
exemplo: Button1.SetFocus; DBGrid1.SetFocus; o comando setfocus redireciona o foco para o componente especificado abraço -
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
-
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
-
(Resolvido) Problemas com FOCO na aplicação TEF
pergunta respondeu ao Paulo Henrique de Assis de Jhonas em Delphi, Kylix
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 -
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
-
o sistem.io é uma biblioteca completa de classes deve fazer parte de alguma vcl do delphi2006 abraço
-
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
-
http://www.devmedia.com.br/curso/relatorios/Plano_Aula.asp procure por MultiPageReport abraço
-
(Resolvido) Problemas com FOCO na aplicação TEF
pergunta respondeu ao Paulo Henrique de Assis de Jhonas em Delphi, Kylix
voce tem como fechar o simulador plug&play do Visa ? -
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
-
Gerar Combinações, sem repetir o elemento e o conjunto
pergunta respondeu ao GuiCorTei de Jhonas em Delphi, Kylix
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 -
existem programas que fazem isso http://www.sharewareconnection.com/downloa...m-sharecon.html abraço
-
(Resolvido) Espaço entre o direotório
pergunta respondeu ao Felipe da Silva COsta de Jhonas em Delphi, Kylix
experimente isso: pFrom := PChar(trim(origem)); abraço -
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
-
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