www.icone-gif.com/
Espero ter ajudado.
- Original Message -
From: galvao_em [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Monday, December 27, 2004 10:46 AM
Subject: [delphi-br] Ícones
Olá pessoal, estou desenvolvendo um sistema para controle de frotas, e
estou
Olá, estou utilizando um componente TListItem, que é
semelhante ao TLIstView e gostaria de saber como que
eu faço para selecionar uma determinada linha, para
simular o clique do mouse.
Por favor.
Obrigado.
__
Do you Yahoo!?
Jazz up your
Adapte para as suas necessidades.
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Texto :WideString;
formato : Word;
Data : THandle;
Palette: HPALETTE;
tudo:string;
begin
//Inicializando o Word
//Insira um componente TWordApplication e utilize o codigo:
W.Connect;
W.Visible :=
OK, foi falha minha, serei mais específico.
Pretendo fazer um programa(servidor) q devera agir como um jogo, ele
será o 'mundo' e o programa cliente seria o usuario, os programas
conversam diretamente, ou atraves de socket, nao sei qual eh a melhor
forma, mas certamente nao será por arquivo, DB
if Assigned(frmPrincipal) then
Application.CreateForm(TfrmPrincipal,frmPrincipal);
frmPrincipal.ShowModal;
frmPrincipal.Free;
Espero ter ajudado.
- Original Message -
From: delphi6_2005 [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Wednesday, December 08, 2004 10:16 AM
Subject:
colocar a uses Registry;
procedure TForm1.Button1Click(Sender: TObject);
Var
Conexao, Executa, Conecta : string;
Dialup : Pchar;
reg : TRegIniFile;
begin
reg := TRegIniFile.create('RemoteAccess');
Conexao := reg.ReadString('','Default','');
reg.free;
Executa:='rundll32.exe
Firebird/Interbase - || (Duas Barras Verticais)
select campo_nome||campo_sobre as novo_campo
from cliente;
Espero ter ajudado.
- Original Message -
From: DVJ [EMAIL PROTECTED]
To: Grupo Delphi [EMAIL PROTECTED]
Sent: Thursday, December 09, 2004 11:28 AM
Subject: [delphi-br] Off -
Esta função permite encriptar e desencriptar strings. O código de
encriptação é bastante simples, por isso pode ser melhorado, sendo este
apenas um exemplo de como fazê-lo em Delphi.
function EnDecryptString(StrValue : String; Chave: Word) : String;
var
I: Integer;
OutValue : String;
begin
Qual a plataforma? (windows98, ME, XP)
- Original Message -
From: Alexandre Brasil [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, December 03, 2004 8:55 AM
Subject: [delphi-br] Pegar Grupo de trabalho
Bom dia!
Pessoal... estou desenvolvendo um sisteminha que pega várias
.
[]'s Alexandre
- Original Message -
From: Fabio Giro [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, December 03, 2004 10:00 AM
Subject: Re: [delphi-br] Pegar Grupo de trabalho
Qual a plataforma? (windows98, ME, XP)
- Original Message -
From: Alexandre
compactar:
WinExec(PChar('C:\Arquivos de Programas\WinZip\WinZip32
C:\A\teste\cartaoemilia.doc'),1);
descompactar:
WinExec(PChar('C:\Arquivos de Programas\WinZip\WinZip32
C:\A\delphi5.zip'),1);
Espero ter ajudado.
- Original Message -
From: Murillo Proença [EMAIL PROTECTED]
To:
Este é um exemplo de criar o clientdataset em tempo de execução. Talves não
colocando o TClientDataSet.Create(Nil); funcione. Experimente. Já é uma
dica.
var
cldDados: TClientDataSet;
begin
cldDados := TClientDataSet.Create(Nil);
cldDados.FieldDefs.Add('CODIGO', ftInteger); // Campo do
Marcos, tenho um relatório que imprime recibo em três vias na mesma página.
Talvez a forma que fiz não tenha sido a melhor, mas coloquei no relatório
somente a ban detail, montei a primeira via e depois repeti as variáveis
abaixo. É apenas uma dica.
Espero ter ajudado.
- Original Message
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Texto :WideString;
formato : Word;
Data : THandle;
Palette: HPALETTE;
tudo:string;
begin
//Inicializando o Word
//Insira um componente TWordApplication e utilize o codigo:
W.Connect;
W.Visible := True;
//Abrindo um documento em branco
Peguei esta dica aqui na lista.
//PARA MESCLAR FAÇA
FArquivoExcel.Workbooks[1].WorkSheets[1]
.Range['A1:C1'].Merge;
Espero ter ajudado.
- Original Message -
From: Oswaldo Ricardo da Rocha Jr [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, November 12, 2004 7:29 AM
Subject:
Douglas, peguei esta dica aqui na lista. Não testei. Para o que você quer,
talvez tenha que alterar o parâmetro onde está o num. 6. Faça os testes e
adapte para as suas necessidades.
mudar um de seus atributos para arquivo oculto
solucao
Inicaliaze as variáveis na procedure QuickRep1BeforePrint
- Original Message -
From: er83pet04 [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, October 25, 2004 4:07 PM
Subject: [delphi-br] Duplicação de valores ao imprimir relatório
Alguém já viu isso?
Criei um relatório
Coloque 1 table, 1 datasource, 1dbgrid, 1 botão e 1 edit.
Clique com o botão direito sobre o dbgrid e inclua algumas colunas.
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text := (dbgrid1.Columns.Items[0].Field).AsString;
end;
Se for isso que você quer, adapte as suas
Componente QuickReport, propriedade Page/PaperSize
Espero ter ajudado.
- Original Message -
From: Alexandre Toffalini [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, October 19, 2004 9:16 AM
Subject: [delphi-br] Configurar tamanho do papel
Olá pessoal...
Sou novo no mundo
function FileDate(Arquivo: String): String;
var
FHandle: integer;
begin
if not fileexists(Arquivo) then
Result := 'Nome de Arquivo Inválido'
else
begin
FHandle := FileOpen(Arquivo, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
Alisson, aí vão algumas dicas. Aadpte-as para as suas necessidades
//PARA MESCLAR FAÇA
FArquivoExcel.Workbooks[1].WorkSheets[1]
.Range['A1:C1'].Merge;
colocar a cor
Planilha.Cells[1,lin].Font.Color := clBlue;
Espero ter ajudado.
- Original Message -
From: Alisson Costa Resende
program Project1;
uses
Forms,
Windows,
Dialogs,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
Var
HprevHist : HWND;
begin
Application.Initialize;
HprevHist := FindWindow(Nil, PChar('project1.exe'));
if HprevHist = 0 then
begin
Application.Title := 'project1.exe';
Beto, esta rotina pinta o fundo de todas as células. Junte com a rotina que
você tem para capturar a célula clicada que talvez consiga o que quer.
procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
Rect: TRect; State: TGridDrawState);
begin
// pinta o fundo da celula
www.universojuridico.com.br
Espero ter ajudado.
- Original Message -
From: joaoschroeder [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, October 12, 2004 10:42 AM
Subject: [delphi-br] Re: Contrato e Proposta de Software
Olá!
Tudo bem?
Aqui se fala que tem modelos de contrato
Rogerio, faça o teste aí. Crie um form com 2 edit´s e 1 botão.
procedure TForm1.Button1Click(Sender: TObject);
var
int1 : integer;
num1 : double;
num2 : double;
begin
num1 := strtofloat(edit1.text);
num2 := num1 * 1000;
int1 := trunc(num2);
num1 := int1 / 10;
edit2.text :=
401 - 425 de 425 matches
Mail list logo