Aleksander

Procedure TForm1.FormCreate(Sender: TObject); begin Session.AddPassword('digite a senha da tabela aqui'); Table1.Open; end;

Olá amigos, uso HTML apenas para fazer arquivos de help, sendo assim nunca publiquei página, desejo publicar uma página e a única parte que tenho dificuldade é "Quais a linhas necessárias no início do código para que a página seja exibida em sites de busca? Já fiz algumas pesquisas mas ainda tenho dúvidas. Por exemplo como devo usar a linha Charset=iso e como usar corretamenta a tag meta. Se alguém puder de uma forma simples dar uma explicação agradeço.

Correto Jhonas, a questão foi dada como resolvida por mim ao ter recebido o código mas não havia testado, agora que testei e no meu caso funcionou, segue abaixo uma maneira de carregar uma imagem de extensão .BMP de um determinado arquivo usando a API. Crie as seguintes variáveis globais: hDCImg : HDC; hBitImg : HBITMAP; ps : TPAINTSTRUCT; rc : TRECT; Crie uma procedure para carregar a imagem de um arquivo com o seguinte código: hDCSis := GetDC(0); hDCImg := CreateCompatibleDC(hDCSis); ReleaseDC(0, hDCSis); hBitImg := LoadImage(0,'nomedaimagem.bmp', IMAGE_BITMAP, 0, 0, LR_DEFAULTSIZE or LR_LOADFROMFILE); SelectObject(hDCImg, hBitImg); Na função WindowProcedure na msg WM_PAINT use o código: BeginPaint(hWin, ps); //Chame a procedure criada aqui GetClientRect(hWin, rc); StretchBlt(ps.hdc, ps.rcPaint.left, ps.rcPaint.top, ps.rcPaint.right-ps.rcPaint.left, ps.rcPaint.bottom-ps.rcPaint.top, hDCImg, 0, 0, rc.right, rc.bottom, SRCCOPY); EndPaint(hWin, ps); Antes de fechar a aplicação delete os itens: DeleteDC(hDCImg); DeleteObject(hBitImg); Se desejar carregar a imagem de um arquivo .RES troque a linha: hBitImg := LoadImage(0,'nomedaimagem.bmp', IMAGE_BITMAP, 0, 0, LR_DEFAULTSIZE or LR_LOADFROMFILE); Por esta: hBitImg := LoadBitmap(hInstance,'nomedorecurso’); Grande abraço!

Questão resolvida, recebi uma ajuda dos colegas do bcb. grato pelo espaço.

Ola amigos, como devo me referir a um bitmap para carrega-lo usando API? A janela e os botões eu consegui criar, meu exe ficou com 41k e funciona perfeitamente, usei windows, messages, sysutils, a imagem seria apenas para efeito estético. Se alguém tiver uma dica ou link. Desde já agradeço pela atenção.

Olá amigos, estou fazendo algo parecido com uma barra de ferramentas, gostaria de saber como faço para pegar o nome da janela ativa de qualquer aplicativo, se eu usar application.title eu só pego o nome do meu aplicativo, gostaria que no momento que eu clicasse eu outro aplicativo seja Delphi, Word ou outros o nome aparecesse no caption de um label. Grato a todos pela atenção.

Olá amigos, no exemplo abaixo o Label1 fica da seguinte forma 25410320, gostaria que ele ficasse assim 25,4. Como posso fazer isso? Grato pela atenção. procedure TForm1.Button1Click(Sender: TObject); var S: string; Free: Int64; begin Free := DiskFree(0); S := 'Espaço livre em (C): ' + intToStr(Free div 1024); Label1.Caption := S; end;

Jhonas, esse código que você usou pode ser resumido com: procedure TForm1.FormCreate(Sender: TObject); begin AlphaBlendValue:=120; AlphaBlend := True; end; end. Ainda não está resolvido mas agradeço a ajuda colega. Grande abraço.

Olá amigos, todos os aplicativos que desenvolvo costumo criar uma pasta de ajuda com o passo a passo do uso dos mesmos com várias imagens. Para isso uso varios recursos que simulam o PrintScreen, para facilitar meu trabalho uso um form que redimensiono sobre a área desejada para salvá-la, no entanto quando deixo esse form transparente usando o Form1.Brush.Style:=bsClear ao redimensioná-lo ele usa a área de trabalho como se fosse fundo , é horrível. Alguém saberia me informar o que posso fazer para resolver isso? Ele salva a imagem perfeitamente, só me incomoda essa distorção visual na hora arrastar e redimensionar. Grato a todos pela atenção.

Caro Churc, segui seu conselho e tirei do AutoCreate, ficou perfeito, muito obrigado. Grande abraço!

Olá amigos, dessa vez prometo que não vou fazer pergunta sobre imagem. Uso o codigo abaixo que o colega Churc me ensinou para iniciar com windows, funciona perfeitamente. Desejo colocar um Checkbox onde possa controlar o auto-iniciar, ou seja, com o Checkbox1.Checked :=true ativa o auto-iniciar, Checkbox1.Checked :=false desativa o auto-iniciar. Sei lêr e gravar o valor do registro mas não consegui fazer a ligação. Grato pela atenção. Auto-iniciar procedure TForm1.FormCreate(Sender: TObject); begin with TRegistry.Create do begin RootKey := HKEY_CURRENT_USER; try Openkey('Software\Microsoft\Windows\CurrentVersion\Run', False); WriteString('Cadastro', ParamStr(0)); finally Closekey; Free; end; end; end; lêr e gravar valor procedure TForm1.Button1Click(Sender: TObject); begin with TRegistry.Create do begin try RootKey := HKEY_CURRENT_USER; OpenKey('Cad',True); WriteBool('Dados',checkbox1.Checked); finally CloseKey; Free; end; end; end; procedure TForm1.Button2Click(Sender: TObject); begin with TRegistry.Create do begin try RootKey := HKEY_CURRENT_USER; OpenKey('Cad',False); checkbox1.Checked:=(ReadBool('Dados')); finally CloseKey; Free; end; end; end;

Não seria mais facil e mais pratico voce utilizar um quickreport para isto ? Jhonas, já faço uso do Rave para determinados fins, esta questão da imagem no Memo é um caso à parte, de acordo com suas dicas consegui posicionar a imagem em qualquer lugar do Memo inclusive usar todas as propriedades de um Timage, isso foi possível graças ao uso da propriedade Parent. Veja como ficou fácil procedure TForm1.Button1Click(Sender: TObject); begin with TImage.Create(form1) do begin Parent := memo1; width:= 50; height:= 50; left:= 30; top:= 30; proportional:= true; Picture.LoadFromFile('c:\img.bmp'); end; o motivo é que quando definido um bitmap para a propriedade Brush, ele o usa para o preenchimento do fundo ao invés de usar a cor sólida. O estranho é que este recurso deveria utilizar apenas um bitmap de 8x8 pixel. E pelo que pesquisei, a documentação diz que seria copiado apenas um retângulo deste tamanho a partir do canto superior esquerdo. :huh: acho que a melhor opção seria utilizar o componente TRichEdit. vous parlez français? :D Dê uma olhada neste tópico "INSÉRER UNE IMAGE (BITMAP) DANS UN RICHEDIT (RXRICHEDIT)" (não estou gritando, o título está assim mesmo ;)) Não se preocupe, o código está em Inglês. ;) Abraços Le Micheus, muito boa esta dica do RichEdit, agora tenho duas questões resolvidas, tanto inserir a imagem no Memo como no RichEdit, passarei a usar o RichEdit devido ao maior número de opções que ele oferece, falta pouco para fechar este tópico. Antes de trocar o Memo pelo RichEdit, resta uma dúvida. Quando testei a dica do Jhonas usei o código abaixo para imprimir o Memo, mas agora que inseri a imagem ela não é impressa, tentei alterar o código mas não consegui imprimir a imagem, somente o texto é impresso. Por uma questão didática, o que faltou inserir neste código para que ele além de se referir as linhas também se refira à imagem? O código usado para imprimir o Memo. procedure TForm1.Button2Click(Sender: TObject); var i, Linha : Integer; AltLinha : Integer; begin Linha := 0; Printer.BeginDoc; AltLinha := Trunc(Printer.Canvas.TextHeight('My')*1.1); for i := 0 to Memo1.Lines.Count - 1 do begin Printer.Canvas.TextOut(0, Linha, Memo1.Lines[i]); Linha := Linha + AltLinha; if Linha >= Printer.PageHeight then begin Printer.NewPage; Linha := 0; end; end; Printer.EndDoc; end; Grande abraço a todos e obrigado pela atenção.

Boa tarde amigos, gostaria de saber porque ao inserir a imagem no Memo usando o código abaixo ela se repete várias vezes e o texto fica acima dela , desejo colocar uma imagem no topo do Memo e abaixo dela inserir o texto, a intenção é inserir uma pequena logomarca no Memo o qual uso como formulário para impressão. Pergunto, como posiciono a imagem no topo do Memo? Como inserir o texto depois da imagem? O código tirado de (DicasDelphi) procedure TForm1.FormActivate(Sender: TObject); var Bmp : TBitmap; begin Bmp :=TBitmap.Create; Bmp.LoadFromFile('c:\img.bmp'); Memo1.brush.Bitmap:=TBitmap.Create; Memo1.brush.Bitmap.LoadFromFile('c:\img.bmp'); end; end; Grato a todos pela atenção

Meu caro Churc, muito obrigado pela dica valiosa, este programa é completíssimo! Grande abraço

Olá amigos, ao fazer uma pesquisa sobre zoom relacionada ao meu último post, encontrei um programa chamado Zoomtool, achei interessante o fato de que ao passar o cursor do mouse sobre qualquer cor em qualquer parte da tela o programa captura o código RGB da cor, por exemplo quando o cursor está sobre a cor clBtnFace, a cor é exibida num panel e seu código aparece assim : R: 236 G:233 B:216 Gostaria de fazer um programa somente com esta função sem ter que usar programas de terceiros. Grato pela atenção