-
Total de itens
9.657 -
Registro em
Tudo que Jhonas postou
-
str.Caption := FormatFloat('###.##',modulo.cds_tabelaCAMPO.Value); use dessa maneira: str.Caption := FormatFloat(',0.00',modulo.cds_tabelaCAMPO.Value); abraço
-
[AJUDA] Criar imagem corel ao iniciar aplicativo
pergunta respondeu ao Rafael Pasc. de Jhonas em Delphi, Kylix
exemplos: OleContainer1.SaveToFile(SavePictureDialog1.FileName); OleContainer1.SaveToFile (SaveDialog1.FileName); OleContainer1.SaveToFile(TempDir+'\Temp File'+FileExtension); OleContainer1.SaveToFile('c:\windows\desktop\fig.bmp'); exemplo completo: http://www.marcocantu.com/code/md6htm/Olecont.htm abraço -
[AJUDA] Criar imagem corel ao iniciar aplicativo
pergunta respondeu ao Rafael Pasc. de Jhonas em Delphi, Kylix
Não me recordo qual a sintaxe para o Corel , mas o exemplo abaixo serve para o Paintbrush voce usa a janela para procurar a figura e ela passa para o OleContainer .... onde esta escrito 'paint.picture' deve ser colocado a sintaxe para o Corel, mas não me recordo. procedure TForm1.Button1Click(Sender: TObject); begin OleContainer1.CreateObject('paint.picture', False); OleContainer1.AllowInPlace := True; OleContainer1.DoVerb(ovPrimary); if OpenPictureDialog1.Execute then begin Screen.Cursor := crHourGlass; try OleContainer1.CreateObjectFromFile(OpenPictureDialog1.FileName, false); OleContainer1.DoVerb(0); OleContainer1.Run; finally Screen.Cursor := crDefault; end; end; end; abraço -
(Resolvido) Trocar firebird de serviço para aplicação via código.
pergunta respondeu ao Douglas Soares de Jhonas em Delphi, Kylix
ainda resta esta dica do Churc veja se te serve http://scriptbrasil.com.br/forum/index.php...st&p=447208 abraço -
existe um outro jeito.... ao clicar no botão para salvar, voce pode fazer uma verificação dos campos não preenchidos e dar a mensagem ( vi em um post mas não me lembro em qual ... tera que pesquisar ) abraço
-
(Resolvido) Trocar firebird de serviço para aplicação via código.
pergunta respondeu ao Douglas Soares de Jhonas em Delphi, Kylix
Um exemplo bem simples: se eu fosse rodar o interbase server manager pelo painel de controle seria atraves desse comando C:\WINDOWS\system32\ibmgr.cpl então bastaria colocar a execução desse comando usando o winexec ou o ShellExecute Não me lembro se a passagem de parametros é exatamente esta, mas depois eu testo e te digo abraço -
voce pode usar um campo autoincremento do interbase ou pode fazer o seu prioprio campo autoincremento.... nos posts que estão na lista voce acharia ( pesquise ) ou voce pode ver esses artigos: http://www.activedelphi.com.br/forum/viewt...3e5a9f627ff6e4c http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=921 http://www.planetadelphi.com.br/artigo/82/...rs)---parte-01/ http://www.planetadelphi.com.br/dica/6922/autoincremento abraço
-
(Resolvido) Trocar firebird de serviço para aplicação via código.
pergunta respondeu ao Douglas Soares de Jhonas em Delphi, Kylix
como voce faria se fosse manualmente ??? aplique o mesmo principio quando usar o winexec, ou seja , se voce tem que clicar em um programa para executa-lo, o mesmo procedimento pode se feito via winexec ou shellexecute abraço -
voce pode emitir um alerta do tipo MSN http://scriptbrasil.com.br/forum/index.php...st&p=580438 ou pode ver outras soluções no forum http://scriptbrasil.com.br/forum/index.php...highlite=alerta abraço
-
(Resolvido) Trocar firebird de serviço para aplicação via código.
pergunta respondeu ao Douglas Soares de Jhonas em Delphi, Kylix
Douglas ... voce pode usar o SHELLEXECUTE ou WINEXEC http://scriptbrasil.com.br/forum/index.php...ighlite=winexec abraço -
IWDBLookupComboBox1: Dataset not in edit or insert mode - Native error 10007 IWDBLookupComboBox1: Dataset não está em modo de edição ou de inserção - Erro Nativo 10007 OBS: a conexão do IWDBLookupComboBox1 a tabela se faz atraves das propriedades 1 – “ListSource” 2 - “KeyField” 3 - “ListField” uma vez definidos os campos e o datasource, para não acontecer esse tipo de erro voce deve fazer uma verificação para saber se o DataSet esta ou não em modo de edição ou inserção exemplo if not (DSCadastro.state in [dsEdit, dsInsert]) then DSCadastro.edit; abraço
-
Faça uma busca no forum ... vai achar a resposta em um desses posts http://scriptbrasil.com.br/forum/index.php...e=autoincrement abraço
-
no proprio site existem demos ( exemplos ) de como usar os componentes ou entre em contato com este membro que já o usou e pode te dar as informações que necessita http://scriptbrasil.com.br/forum/index.php...st&p=577710 abraços
-
Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...;highlite=skins abraço
-
Alessandra .. veja todos os arquivos, toda a explicação esta no proprio site abraço
-
(Resolvido) Pegar/conseguir TableName pelo DataSource..
pergunta respondeu ao LucAlucard de Jhonas em Delphi, Kylix
acho que voce é que não esta entendendo .... dá até para saber qual é o table ou query associado ao DataSource, mas para saber qual é o nome da tabela através do DataSource não. existe entretanto outra opção .... este comando TableName := GetTableNameFromSQL(Command); // Set TableName property uses DBCommon, AdoConEd, SQLEdit procedure TForm3.btnConnectionStringClick(Sender: TObject); var SQLStr: string; sqlFrm: TSQLEditForm; Command: string; Connection: TADOConnection; TableName: string; begin // Close the connection (when open) ADOConnection1.Close; if EditConnectionString(ADOConnection1) then // build it begin ADOConnection1.Open; // if succeeded open your connection ADOConnection1.Connected := True; // and set Connected state to True end; // Build the query for your AdoDataSet using the default // property handler within delphi Command := ADODataSet1.CommandText; Connection := ADOConnection1; if Command <> ''then // check to be sure a connection has been made... TableName := GetTableNameFromSQL(Command); // Set TableName property // this is the function you can call to open the build dialog... if EditSQL(Command, Connection.GetTableNames, Connection.GetFieldNames, TableName) then ADODataSet1.CommandText := Command; ADODataSet1.Active := True; // Set Active... end; OBS: pegar o nome da tabela quando necessário Se voce está tentanto automatizar alguma rotina relacionada a nomes de tabelas, acho que esta pegando o caminho mais dificil abraço -
Cannot change visible in OnShow or OnHide.
pergunta respondeu ao geovanepc de Jhonas em Delphi, Kylix
No minimo voce está tentando esconder o form antes de ser criado procedure TForm1.FormShow(Sender: TObject); begin hide; end; abraço -
exemplo de como rodar um avi no delphi http://maikelscheid.blogspot.com/2009/06/e...-no-delphi.html abraço
-
202 Stack overflow error - Falta de espaço na pilha de alocação de variáveis locais de um subprograma, pode-se solucionar através da opção MEMORY SIZES do menu de compilação. Mais informações em http://www.unimep.br/~vmdzilio/apen_3.html abraço
-
veja este link http://www.baixaki.com.br/download/bat-to-exe-converter.htm abraço
-
voce até pode ligar ... se notar que o som esta muito baixo, memo que o controle de volume esteja no ultimo ponto, então voce tera que colocar um amplificador. obs: verifique a impedância do alto falante e a impedância da sua placa de som abraço
-
não use o quick report comum , voce deve usar o QRMDForm ( quick report master / detail ) em file > new > forms > quick report master / detail abraço
-
download EmbeddedWB no link http://www.torry.net/pages.php?s=90 abraço
-
(Resolvido) Pegar/conseguir TableName pelo DataSource..
pergunta respondeu ao LucAlucard de Jhonas em Delphi, Kylix
algumas dicas: Use uma função "GetTableNameFromSQL" do próprio Delphi que está na unit DBCommon // Obter nome das tabelas de um determinado ALIAS. try S := TStringList.Create; GetTableNames('NomeDoAlias', '*.db', False, False, S); Memo1.Text:=S.Text; finally S.Free; end; MyStringList := TStringList.Create; try Session.GetTableNames('DBDEMOS', '*.db',False, False, MyStringList); { Add the table names to a list box } ListBox1.Items = MyStringList; finally MyStringList.Free; end; Populates a string list with the names of tables in the database. procedure GetTableNames(List: TStrings; SystemTables: Boolean = False); Description Call GetTableNames to retrieve a list of tables in the associated database. List is the already-existing string list object into which the tables names are put. Set SystemTables to indicate whether the list of table names should include the database’s system tables. ADOConnection1.GetTableNames(ListBox2.Items, False); Note: any contents already in the target string list object are eliminated and overwritten by the data produces by GetTableNames. To get a listing of all of the tables contained in the database accessed via the connection object, use the GetTableNames method. This method copies a list of table names to an already-existing string list object. Use individual elements from this list for such things as the value for the TableName property of a TADOTable component or the name of a table in an SQL statement executed by a TADOQuery. ADOConnection1.GetTableNames(ListBox1.Items, False); The example below traverse a list of table names created using the GetTableNames method. For each table, the routine makes an entry in another table with the table’s name and number of records. procedure TForm1.Button1Click(Sender: TObject); var SL: TStrings; index: Integer; begin SL := TStringList.Create; try ADOConnection1.GetTableNames(SL, False); for index := 0 to (SL.Count - 1) do begin Table1.Insert; Table1.FieldByName('Name').AsString := SL[index]; ADOTable1.TableName := SL[index]; ADOTable1.Open; Table1.FieldByName('Records').AsInteger := ADOTable1.RecordCount; Table1.Post; end; finally SL.Free; ADOTable1.Close; end; end; abraço -
(Resolvido) Conexao Delphi 2010 e o MySQL
pergunta respondeu ao Geomar Canjundo de Jhonas em Delphi, Kylix
para o PostgreSQL copie as dlls: libmysql.dll e libpq.dll para o diretorio c:\Windows\System32 para o PostgreSQL v7.2, copie a dll: libpq721.dll no lugar da libpq.dll no diretório C:\ windows\System32 e modifique o arquivo Zeos.inc definindo o parametro PGSQL72. abraço