Eu já fiz utilizando o método ScaleBy. VC controi seu form para uma
determinada resolução, por exemplo (800x600) e depois aplica essa taxa
(4/3) nesta função, usando Screen.Width e/ou Screen.Height. Não me
lembro direito, mas dá uma consultada no help.
[]'s,
Nielsen
Em 05/12/05, ..::
Veja em http://www.fabforce.net/dbdesigner4/
Nielsen
Em 12/08/05, Raniere[EMAIL PROTECTED] escreveu:
E aê galera? Beleza com todos?!!
Alguém sabe onde foi parar o projeto DbDesigner? Eu entrei no
Souceforge.org para verificar alguma atualização e não achei
nenhum
arquivo... O projeto
Eneias,
Vc pode usar o OpenPictureDialog padrão do Delphi (no meu caso, D7),
mas não esqueça de incluir a unit jpeg na cláusula uses... Mesmo que
vc use jvOpenDialog vc vai precisar incluir jpeg para poder usar
LoadFromFile de algum TPicture. Lembre-se que essas caixas de diálogo
não abrem o
, delphibydelphi[EMAIL PROTECTED] escreveu:
Obrigado, mas continuando, isso quer dizer que eu teria que acessar os
métodos protegido da classe para poder realizar essa operação ?
- Original Message -
From: Nielsen Cassiano Simões
To: delphi-br@yahoogrupos.com.br
Sent: Sunday, April 17
Um ToolButton não trabalha diretamente com imagens. Ele só trabalha
com o índice da imagem associada na ToolBar. Dessa forma, vc não vai
poder utilizar um ToolButton com imagem diretamente sem usar um
TImageList. Observe que seu TImageList pode sim adicionar imagens em
tempo de execução (por
Caro Romario,
Esse help sobre Free não é particularmente sobre o método Free de
TList, e sim da classe TObject. Se você observar, é um método público
derivado de TObject para todos os seus decendentes.
O help nos alerta para, na criação de novos objetos, não chame
Destroy, ou destrutor de
Mude o campo para Numeric(15,4), acho que isso já vai solucionar seu
problema pois, conforme seu exemplo, VITEM seria 13,, o que daria
o resultado 199,9995, ficando fácil o arredondamento.
Nielsen
On Wed, 23 Feb 2005 17:28:07 -0300, giuvany [EMAIL PROTECTED] wrote:
Pessoal
Você pode fazer isso com UNION (já que os campos retornados são os
mesmos) da seguinte forma:
Primeira Consulta
UNION Segunda Consulta
Nielsen
On Fri, 28 Jan 2005 10:39:18 -0200, Hélder Rodrigues
[EMAIL PROTECTED] wrote:
Bom dia amigos,
Estou precisando unir duas consultas SQL ... (a
Então faça o seguinte:
Se a segunda consulta não tem o campo período, então crie, na mesma
posição na segunda consulta, uma expressão do tipo 0 AS Periodo,
para que os campos possão bater. O importante é que o mesmo número de
campos esteja presente nas duas consultas, e os campos de cada
O negrito não apareceu pra mim...
Tente fazer o seguinte:
procedure ShowForm(Sender: TObject; v_NomeForm : String);
var
v_ClasseForm: String;
begin
v_ClasseForm := 'T'+ v_NomeForm;
if ((Sender as TForm) = NIL) then
begin
if DM_FDM2.Q_Permissoes.Locate('DSC_ID',
Eu estava sem o Delphi, agora já testei e deu certo. O código abaixo
tem algumas alterações que funcionárão. A princípio, percebi que vc
tem que registrar (o que pode ser feito em uma única linha, todas as
classes que vc vai utilizar antes de chamar GetClass. Eis o código:
v_ClasseForm := 'T'+
On Wed, 13 Oct 2004 09:11:57 -0300, Cristina Orthmann
[EMAIL PROTECTED] wrote:
Caro Nielsen,
Somente o meu computador é que não está funcionando corretamente na
rede, apesar de poder acessar a internet e ter acesso ao software de
gestão da empresa onde o banco de dados fica situado no
nossa empresa, utilizamos um servidor
do prédio, onde todos os associados que tem acesso a rede de internet do
prédio tem acesso.
Nielsen Cassiano Simões escreveu:
Já tive esse problema, e a única forma de resolver é configurar as
máquinas da rede no DNS do servidor de domínio. Tente
Entre como administrador, abra o Regedit, vá em
HKEY_CURRENT_USER\Software\Borland\Delphi\5.0 e exporte a
ramificação selecionada. Aí, coloque o arquivo .reg exportado em algum
lugar público e peça para cada usuário dar um duplo clique para fazer
o merge desse arquivo no registro de cada um.
Procure por StringReplace()
Nielsen
On Thu, 30 Sep 2004 10:46:05 -0300, Daniel Bastos
[EMAIL PROTECTED] wrote:
Atualmnte eu faço na mão.
Existe alguma função no delphi que faça isso para mim?
--
Daniel A. Bastos
--
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para
Oi ?,
Tente da forma:
WHERE (FONE_CLIENTE LIKE 254%) OR (FONE_CLIENTE LIKE 455)
Nielsen
On Thu, 30 Sep 2004 00:03:17 -, er83pet04 [EMAIL PROTECTED] wrote:
Pessoal,
Tenho um campo em uma tabela que guarda o telefone de clientes. O
telefone é um campo do tipo varchar2 e é
Tente assim:
function ExibeDescricao(Alias, Tabela, CampoChave, CampoDescricao, Valor,
Tipo: String; Numerico: Boolean): String;
var
qryAux: TQuery;
begin
Result := '';
try
if Valor '' then
begin
qryAux := TQuery.Create(nil);
qryAux.DataBaseName := Alias;
Use a função FileExists da forma:
If FileExists('C:\Arquivo.TXT') then
...
Nielsen
On Wed, 22 Sep 2004 21:22:47 -, fpsp2000 [EMAIL PROTECTED] wrote:
Ola!
Leio um arquivo texto, so q antes da leitura preciso verificar se
ele existe pra efetuar a leitura, e nao sei como fazer
Vinícius,
Acho que esse exemplo resolve seu problema:
var
t1, t2, t3, t4, teste, outro, variavel3: string;
lstVars: TStringList;
i: Integer;
p: ^String;
begin
t1 := 't';
t2 := '3';
t3 := '50';
variavel3 := 'Valor da variavel3';
teste := 'variavel';
lstVars
Valdemir,
Tente dessa forma:
try
ExecSQL;
except
on E:Exception do
begin
ShowMessage(E.Message);
Application.Terminate;
end;
end;
Nielsen
On Sat, 18 Sep 2004 10:55:55 -0300, Valdemir - PROSIS
[EMAIL PROTECTED] wrote:
Pessoal tenho a seguinte
Seria mais fácil você definir o padrão CVS, onde os campos são
separados por , ou por ;, ou utilizar TAB como separador de
campos, senão você vai se perder.
Definido isso, você pode utilizar a função Pos(Separador, Linha) e
Copy(Linha, Posição_Inicial, Tamanho) para remover campo a campo.
21 matches
Mail list logo