s3c

Também poderia mover os executáveis p/ lixeira. MoveFile('C:\Temp\Setup.exe','C:\RECYCLED\Setup.exe');

você deve estar utilizando a table language como 'Paradox ascii'. Tente recriá-la utilizando a table language como Paradox 'intl' 850. você também pode deixar como default o LangDrive no driver nativo Paradox do BDE Administrator.

Apagar o registro da consulta ou do banco de dados?

Se já tiver aplicações Delphi rodando em Windows, acho que o primeiro passo seria convertê-las p/ CLX Application, p/ depois migrar p/ Linux.

Para não aparecer rodando pelo Delphi: Tool/Debugger Options/Language Exceptions/Add Digite EConvertError e dê Ok.

Coloque um TImageList no form, coloque as imagens nele, sete a propriedade Images do TMainMenu com o nome do TImageList, set a propriedade ImageIndex dos TMenuItem c/ o índice das imagens.

Olá Corposemalma, eu não me aprofundo muito em APis, quando vejo a necessidade de utilizá-las, corro atrás, estudo seus parâmetros e coloco no código. Assim como o Delphi é uma enciclopédia, as Apis são outra, de modo que artigos sobre Apis são sempre uma coisa muito extensa.

Isso mesmo Arlon, por ex: a Api SHFileOperation é uma função da Shell32.dll do Windows.

Sim, são as Apis do Windows. Não é necessário declará-las quando já estão declaradas em algum uses, ou seja, em algum .pas Por exemplo, a Api GetClipboardData é uma função da user32.dll do Windows e já está declarada no Windows.pas; logo quando você coloca Windows na cláusula uses, não precisa declarar a Api. A Api DragQueryFile está na shell32.dll do Windows e está declarada na ShellApi.pas, por isso você coloca uses ShellApi p/ ter acesso a ela, senão você teria que declará-la implicitamente na sua aplicação. Quando você marca um arquivo ou pasta e digita Ctrl+c, o clipboard fica no formato CF_HDROP. É por isso que é testado Clipboard.HasFormat(CF_HDROP). A DragQueryFile retorna o(s) caminho(s) dos arquivos ou pastas copiados para o clipboard. Seus parâmetros são: 1-Handle da estrutura de dados(obtido pela Api GetClipboardData(CF_HDROP). 2-Índice do arquivo ou pasta marcado - 0,1,2... Utilizei 0 presumindo que você tenha dado Ctrl+c somente em um arquivo. 3-Ponteiro do buffer que conterá a informação. Utilizei @s indicando um ponteiro para um buffer de 128 bytes, mas você poderia utilizar um PChar, só que você teria que alocar memória para ele (p := AllocMem(128)) e depois liberá-la (FreeMem(p) 4-Tamanho desse buffer. Com isto, você obtém o caminho do arquivo de imagem dentro do clipboard; depois o próprio Delphi se encarrega de exibí-la pelo LoadFromFile. As Apis são recursos p/ você interagir diretamente com o sistema operacional, mas elas tem um preço, se você migrar p/ Linux com o Kylix, pode esquecê-las.

Obrigado! Não mereço, mas agradeço. O cara que gerar .pas a partir do .dcu ficará rico !

Não, só tive uma idéia que acho ser impossível

Eu também precisaria gerar código .pas a partir do .dcu você saberia como fazer?

Bom, neste caso vamos às utilíssimas Apis. Modifique o evento onKeyPress desse jeito: var s:String[128]; begin if Key <> #22 then Exit; if Clipboard.HasFormat(CF_HDROP) then begin OpenClipboard(Handle); try DragQueryFile(GetClipboardData(CF_HDROP), 0, @s, 128); DBImage1.Picture.LoadFromFile(StrPas(@s)); finally CloseClipboard; end; end else if Clipboard.HasFormat(CF_PICTURE) then DBImage1.Picture.Assign(Clipboard); DBImage1.Stretch := true; DBImage1.Refresh; end;

Bom, API significa Application Programming Interface. É uma maneira de você interagir diretamente com o sistema operacional. A Api p/ copiar arquivos e pastas é muito simples. Veja o código: uses ShellApi; procedure TForm1.Button1Click(Sender: TObject); var FO:TSHFileOpStruct; begin FillChar(FO, SizeOf(FO), 0); FO.wFunc := FO_COPY; FO.pFrom := 'Caminho origem'; FO.pTo := 'Caminho destino'; FO.fFlags := FOF_ALLOWUNDO; SHFileOperation(FO); end;

Essa impressora deve ser matricial. Acho que você tem que mandar um código de controle no primeiro caracter a ser impresso. No Cobol você deve estar fazendo a mesma coisa. Acho que esse ajuste também fica na própria impressora.

Bom, isso quer dizer que se o Clipboard está com uma imagem, você consegue colar no DBImage certo? O que não funciona é o Ctrl+c via explorer. Então me diga como você está querendo captar a imagem para colá-la no DBImage.

Então você tem uma tabela de pacientes e outra de detalhes do paciente. Se for isso, sem problemas. Quando selecionar o paciente, você faz um select na query que acessa a tabela de detalhes com a cláusula "where".

Aí já não sei.

{$WRITEABLECONST ON}

E qual o problema?

Isso aí é uma segurança para você não distribuir p/ outras máquinas. Só roda com o Delphi aberto; se você fechar o Delphi não roda. Se eles fornecessem os .pas, deixaria de ser trial. Veja se o dcu faltante está em outra pasta.

uses Math; Veja a função RandomRange

Ops, o rTemp está definido 2 vezes. Deixe somente a primeira.

type TTemp = record // Defina os cpos que quer imprimir Cpo1:String; Cpo2:Integer; Cpo3:Double; Cpo4:TDateTime; end; var rTemp:array of TTemp; No evento em que você for adicionar no grid de baixo var i:Integer; rTemp:array of TTemp; begin SetLength(rTemp, Length(rTemp)+1); rTemp[High(rTemp)].Cpo1 := valor do cpo1 rTemp[High(rTemp)].Cpo2 := valor do cpo2 rTemp[High(rTemp)].Cpo3 := valor do cpo3 rTemp[High(rTemp)].Cpo4 := valor do cpo4 end; Quando for imprimir for i := 0 to High(rTemp) do // utilize begin rTemp.Cpo1 rTemp.Cpo2 rTemp.Cpo3 rTemp.Cpo4 end; Para liberar rTemp := nil;

O DBImage está com o foco? Crie uma imagem pelo paintbrush, depois Edit/Select All/Copy. Depois clique no DBImage e aperte Ctrl+v. Se não funcionar, rode pelo Delphi e coloque um breakpoint no begin do evento onKeyPress e veja se ele executa as instruções.