Ir para conteúdo
Fórum Script Brasil

vms

Membros
  • Total de itens

    306
  • Registro em

  • Última visita

Tudo que vms postou

  1. acho que voce não entendeu. FirstIndent LeftIndent essas funçoes dar um recuo horizontal um espaço antes e depois na linha de texto --------------------------- | meu texto meu texto | | meu texto meu texto | | meu texto meu texto | | meu texto meu texto | | meu texto meu texto | | meu texto meu texto | |-------------------------| eu preciso do recuo na vertical o espaço no inicio e acima do texto e no final abaixo do texto --------------------------- | | | | | meu texto meu texto | | meu texto meu texto | | meu texto meu texto | | meu texto meu texto | | meu texto meu texto | | meu texto meu texto | | | | | |-------------------------| nota o espaço na parte superior e inferior
  2. ola Jhonas, olhei o help e não encontrei essa opção, so tinha esses Editor Options command Editor options,setting colors o exemplo que voce colocou tem varias propriedades do richedit, mas nenhum faz o que eu preciso. voce tem alguma outra sugestao? estou usando o delphi 7 agradeço pela atenção.
  3. ola pessoal eu uso essa função para dar um recuo no texto no richedit (horizontal) como faço pra dar um recuo em cima e em baixo? (na vertical) Editor.Paragraph.FirstIndent; Editor.Paragraph.RightIndent;
  4. ok! vou providenciar isso, valeu.
  5. como voce fez , abriu o arquivo index.php com explorer ou firefox? ou fez algum outro procedimento para abrir? o meu aqui fica abrindo uma caixa igual essa Erro_Imagem alguém tem ideia o possa ser?
  6. ola pessoal, seguite estou querendo usar esse mural de recados sem banco de dados que encontrei aqui no forum https://www.scriptbrasil.com.br/download/codigo/7097/ o problema é que quando abro o arquivo, fica abrindo uma caixa de alerta avisando que o campo estar em branco, mas não deu tempo escrever nada, foi logo mostrando o erro. como corrijo isso? obrigado pela atenção.
  7. opa! ficou só o "filé". valeu Jhonas deu certinho. e obrigado pela força tambem ZueRa.
  8. beleza. tentei fazer de 2 formas, 1 foi assim procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text := Encrypt(Edit2.Text); end; nem compila e dar esse erro: e tentei assim procedure TForm1.Button4Click(Sender: TObject); var vari : String; begin vari := 'valdenir'; Encrypt(vari); Edit1.Text := vari; end; ele compila, mas quando clico no botão dar esse erro:
  9. valeu pela dica ZueRa, mas eu já tinha visto aqueles post e alguns outros já consegui fazer algumas coisas com DLL, mas o problema que tenho agora é com essa função que eu citei. não estou conseguindo usar. voce pode me ajudar?
  10. ola pessoal estou com uma duvida com essa função na DLL consigo compilar a DLL normalmente, mas quando uso no projeto, dar erro como faço pra usar essa função que estar na DLL? abaixo estar o codigo completo como estou fazendo, onde estar o erro? isso é a função na DLL library DllDelphi; uses Windows, Messages; function Encrypt( Senha:String ): String; export; Const Chave : String = 'Jesus'; Var x,y : Integer; NovaSenha : String; begin for x := 1 to Length( Chave ) do begin NovaSenha := ''; for y := 1 to Length( Senha ) do NovaSenha := NovaSenha + chr( (Ord(Chave[x]) xor Ord(Senha[y]))); Senha := NovaSenha; end; result := Senha; end; exports Encrypt; begin end. isso é projeto que chama a DLL. unit UProjectDelphi; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button4: TButton; Edit1: TEdit; Edit2: TEdit; procedure Button4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; procedure Encrypt( Senha:String ); external 'DllDelphi.dll' implementation {$R *.dfm} procedure TForm1.Button4Click(Sender: TObject); begin Edit1.Text := Encrypt(Edit1.Text); end; end.
  11. ola pessoal, alguém sabe como deixar um dbgrid transparente? queria colocar uma imagem atraz do grid. uso o C++Builder 6 agradeço desde já.
  12. Malgno, mais uma vez muitissimo obrigado. ficou so o "filé".
  13. ola pessoal seguite, eu usava o seguite codigo e funcionava perfeitamente if (!FileExists(ExtractFilePath(Application->ExeName)+"Configurações\\inf_Funcionario.txt")) ShowMessage("ERRO AO ABRIR: "+ ExtractFilePath(Application->ExeName) +"Configurações\\inf_Funcionario.txt."); mas, eu queria melhorar a aparecia da messagem assim, mas não funciona, dar erro if (!FileExists(ExtractFilePath(Application->ExeName)+"Configurações\\inf_Funcionario.txt")) Application->MessageBox( "ERRO AO ABRIR: "+ ExtractFilePath(Application->ExeName) +"Configurações\\inf_Funcionario.txt.","ERRO: 0003",MB_OK | MB_ICONERROR); tentei assim tambem e nada, dar erro (E2085 Invalid pointer addition) if (!FileExists(ExtractFilePath(Application->ExeName)+"Configurações\\inf_Funcionario.txt")) Application->MessageBox( "ERRO AO ABRIR: "+ ExtractFilePath(Application->ExeName).c_str() +"Configurações\\inf_Funcionario.txt.","ERRO: 0003",MB_OK | MB_ICONERROR); como faço isso? agraço desde já.
  14. realmente é misterio vou fazer isso, passar para o fastreport, valeu mais uma vez. ah! voce faz falta no dicasBCB, afinal, acho que voce respondeu 70% das minhas duvidas. e se um dia pensar em tirar ferias, passa aqui no Ceará :).
  15. ola maligno, meu programa é um sistema de cadastro de ordem de serviço e tem 32 formularios(oh trabalhão pra encontrar esse erro), mas consegui descobrir, o problema ta no Qreporter o interesaante é que na minha casa o programa funciona e na empresa não. porque ocorreu esse erro se o programa funcionava normalmente e derrepente da um erro desse num componente se o programa nem foi recompilado? o programa do usuario ta no servidor! desde já agradeço pela ajuda.
  16. alguém sabe o motivo desse erro EInvalidOp? meu programa fucionava perfeitamente quando um belo dia ele deixa de funcionar por causa desse erro. pesquisei na net sobre o assunto e vi que é erro de ponto flutuante "Invalid floating point operation" mas não consegui corrigir. uso o C++ Builder 6.
  17. porque não aparece a maozinha quando passo o mouse em cima do link? alguém pode dar uma dica? <style> <!------------------------style criado----------------------> .titulo {color: blue; font-weight: bold; font-size: 16px; } .titulolink {color: black; font-weight: bold; font-size: 14px; } .texto {color: black; font-size: 14px; font-weight: normal; } .link {color: blue; font-weight: bold; font-size: 14px; } body { background-image: url(images/bg.jpg); background-repeat: repeat; } a:link {text-decoration:none;} a:visited {text-decoration:none;} a:hover {text-decoration:none;} p {line-height:100%; margin: 7px 0 7px 0;} </style> <!------------------------codigo----------------------> <td width="800" height="34" background="images/painelbotao.jpg"> <table width="515" height="30" border="0" cellpadding="0" cellspacing="0"> <tr> <th width="100" scope="col"><a onclick="mostra(''); style="cursor: hand;" "class="link"> Inicio</a> </th> <th width="100" scope="col"><a onclick="mostra('item2'); style="cursor: hand;" "class="link"> Dicas</a> </th> <th width="100" scope="col"><a onclick="mostra('item3'); style="cursor: hand;" "class="link"> Fontes</a> </th> <th width="100" scope="col"><a onclick="mostra('item4'); style="cursor: hand;" "class="link"> Projetos</a> </th> <th width="100" scope="col"><a onclick="mostra('item5'); style="cursor: hand;" "class="link"> Download</a> </th> </tr>
  18. ola pessoal stou tentando criar uma pagina que seja dividida por 2 coluna de uma tabela lateral. | meu texto |..........|....................| |..........|....................| |..........|....................| |..........|....................| |..........|....................| |..........|....................| |..........|....................| |..........|....................| |..........|....................| tenho 4 menus: INICIAL - PROJETOS - DOWNLOAD - SOBRE o que quero é o seguite: quando clicar em algum menu, oculte o texto atual e mostre o texto chamado como faço isso? agradeço deste já INICIAL </table></td> </tr> <tr> <th width="0" height="0" scope="col"><p align="center"> </p> <p align="center" class="titulo">Bem vidos. <br> <p align="left" class="texto">Olá, meu nome e Valdenir de M. Silva(VMS)<br> </tr> PROJETOS </table></td> </tr> <tr> <th width="0" height="0" scope="col"><p align="center"> </p> <p align="center" class="titulo">Meus projetos <br> <p align="left" class="texto">Olá, baixe a vontade<br> </tr> DOWNLOAD </table></td> </tr> <tr> <th width="0" height="0" scope="col"><p align="center"> </p> <p align="center" class="titulo">Download <br> <p align="left" class="texto">Olá, Aproveite o maximo<br> </tr> SOBRE </table></td> </tr> <tr> <th width="0" height="0" scope="col"><p align="center"> </p> <p align="center" class="titulo">Sobre<br> <p align="left" class="texto">sobre o autor<br> </tr>
  19. vms

    como listar drives do pc

    sim, deu certo A função GetDriveType(), da API do Windows, até como o próprio nome diz, apenas informa qual o tipo do drive. Para obter uma lista dos drives lógicos da máquina, deve-se usar a função GetLogicalDrives(), também da API do Windows. Ela não exige qualquer argumento e retorna uma DWORD com os drives em um bitmask. A partir do MSB do valor, 0=drive A, 1=drive B, 2=drive C, e assim por diante. Depois, com a lista em mãos, pode-se usar GetDriveType() para saber que tipo é. ola maligno, basiado na sua dica, procurei por essa função e encontrei um exemplo(abaixo) compila direitinho, mas não to sabendo como usar. alguém pode dar uma dica como usar com um combobox? o que eu coloco nesse ( )? ComboBox2->Items->AddStrings(GetLogicalDriveStringsW()); UINT WINAPI GetLogicalDriveStringsW( UINT len, LPWSTR buffer ) { DWORD drives = GetLogicalDrives(); UINT drive, count; for (drive = count = 0; drive < 26; drive++) if (drives & (1 << drive)) count++; if ((count * 4) + 1 > len) return count * 4 + 1; for (drive = 0; drive < 26; drive++) { if (drives & (1 << drive)) { *buffer++ = 'a' + drive; *buffer++ = ':'; *buffer++ = '\\'; *buffer++ = 0; } } *buffer = 0; return count * 4; }
  20. ola pessoal estou usando o c++ builder6 como faço para listar todos os drives do computador em um combobox? *C:\ *disquete *pendrives *mapeamento de redes eu encontrei a função abaixo em delphi, mas não consegui traduzir :( se alguém tem uma função ou possa me ajudar a traduzir esta ai eu agradeço. codigo em delphi function GetDrivers: TStringList; VAR Driver : Char; begin Result := TStringList.Create; for Driver :='A' TO 'Z' DO begin case GetDriveType(PChar(Driver+':\')) of DRIVE_REMOVABLE: Result.ADD(driveR+':\'); DRIVE_FIXED: Result.ADD(driveR+':\'); DRIVE_REMOTE: Result.ADD(driveR+':\'); DRIVE_CDROM: Result.ADD(driveR+':\'); end; end; end; tentativa de trdução delphi para c++ void GetDrivers(TStringList) { Char Driver ; String Result; Result = new TStringList->Create; for (Driver = "A"; Driver = "Z"; ) { switch ( GetDriveType(PChar(Driver+":\")) { DRIVE_REMOVABLE: Result->ADD(driveR+":\"); DRIVE_FIXED: Result->ADD(driveR+":\"); DRIVE_REMOTE: Result->ADD(driveR+":\"); DRIVE_CDROM: Result->ADD(driveR+":\"); } } }
  21. ola pessoal uso esse codigo abaixo para salvar e carregar posição das colunas do dbgrid o problemas é que se tenho 5 DBGrid, logo tenho que gerar 5 arquivos de configuração. existe alguma forma de salvar a configuração desses 5 DBGrid em um arquivo apenas? DBGrid2.Columns.SaveToFile(ExtractFilePath(Application.ExeName) + 'GridSai.ini'); DBGrid2.Columns.LoadFromFile(ExtractFilePath(Application.ExeName) + 'GridSai.ini');
  22. ola pessoal stou tentando converter algumas funções do delphi para c++ builder a duvida é o seguite algumas funçoes tem uma "variavel" Result, como no exemplo abaixo para retornar o resultado onde é declarada essa variavel? function Maiuscula(Texto:String): String; {Converte a primeira letra do texto especificado para maiuscula e as restantes para minuscula} var :; begin if Texto <> '' then begin Texto := UpperCase(Copy(Texto,1,1))+LowerCase(Copy(Texto,2,Length(Texto))); [b]Result[/b] := Texto; end; end;
×
×
  • Criar Novo...