Jump to content
Fórum Script Brasil

HDELPHI

Membros
  • Posts

    14
  • Joined

  • Last visited

About HDELPHI

Perfil

  • Gender
    Male

HDELPHI's Achievements

0

Reputation

  1. HDELPHI

    Imprimir Com Ie

    Estou usando o delphi 5 e o componente esta na paleta internet para mostrar a pagina procedure TFIndicadorEco.FindAddress; var Flags: OLEVariant; begin Flags := 0; UpdateCombo := True; WebBrowser1.Navigate(WideString(Urls.Text), Flags, Flags, Flags, Flags); end; onde Urls.Text URLs.Text := 'http://oglobo.globo.com/economia/indicadores/'; Procure verificar se o delphi 4 tem exemplos, procure por demos C:\Arquivos de programas\Borland\Delphi4\Demos\Coolstuf
  2. HDELPHI

    Imprimir Com Ie

    Voce pode usar o componente do delphi WebBrowser; procedure imprimir; const OLECMDID_PRINT = $00000006; OLECMDEXECOPT_PROMPTUSER = $00000001; begin WebBrowser.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER); end;
  3. Creio que este codigo vai ajudar a muitos colegas que estão querendo um dbgrid transparente unit fTransparentGrid; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, Grids, DBGrids, ADODB, ExtCtrls; type TForm1 = class(TForm) ADOTable1: TADOTable; // ignorar se você não estiver usando componente ADO para acessar a tabela DataSource1: TDataSource; Image1: TImage; Panel1: TPanel; DBGrid1: TDBGrid; procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); var Text: string; Rct: TRect; begin Text := Field.AsString; Rct:= Rect; DBGrid1.Canvas.Brush.Color := clWhite; DBGrid1.Canvas.FillRect (Rct); BitBlt(DBGrid1.Canvas.handle, Rct.left, Rct.top, Rct.right - Rct.left, Rct.bottom - Rct.top, Image1.Canvas.Handle, Rct.left + DBGrid1.Left + Panel1.Left, Rct.Top + DBGrid1.Top + Panel1.Top, SRCCOPY); SetBkModE(DBGrid1.Canvas.Handle, TRANSPARENT); inc(Rct.Top ,2); inc(Rct.Left ,2); DBGrid1.Canvas.Font.Color := clBlack; DrawtextEx(DBGrid1.Canvas.Handle, PChar(Text), Length(Text), Rct, DT_WORDBREAK, nil); end; procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Panel1.Perform(WM_SYSCOMMAND, $F012, SC_MOVE); Application.ProcessMessages; BitBlt(GetDc(Panel1.Handle), 0, 0, Panel1.Width, Panel1.Height, Image1.Canvas.Handle , Panel1.Left, Panel1.Top, SRCAND); DBGrid1.refresh; end; end. Epero ter ajudado.
  4. HDelphi, esta situação não tenho conhecimento, poderia informar que versão você utiliza e se há algum procedimento para viabilizar este recurso? Ou você tem instalado o plug-in eDocEngine da GNostice (que não acompanha a instalação do Delphi)? Bem lembrado Micheus ... delculpe ..esqueci de dizer que tenho instalado no meu micro o TExtraFilters for QuickReport para o delphi 5, 6 e 7, mas percebi que ele anexa ao quick report outros filtros alem dos que ele tem, dependendo do que estiver instalado no micro. ok ? Obs : ele é shareware. http://www.softpedia.com/progDownload/TExt...load-59076.html http://www.torry.net/pages.php?s=86 http://www.waler.com/download.htm
  5. Exportando do Quick Report para word, HTML, excel e TXT Na clausula uses, acrescente a unit QRExport Exportando para HTML: QuickReport.ExportToFilter(TQRHTMLDocumentFilter.Create('c:\teste.html')); Exportando para DOC ou TXT: QuickReport.ExportToFilter(TQRAsciiExportFilter.Create('c:\teste.doc')); QuickReport.ExportToFilter(TQRAsciiExportFilter.Create('c:\teste.txt')); Exportando para XLS: QuickReport.ExportToFilter(TQRXLSFilter.Create('c:\teste.xls')); Voce tambem pode usar o SaveDialog para salvar o quick report em pdf if SaveDialog1.Execute then QRCarteiraG.ExportToFilter(TPDFFilter.Create(SaveDialog1.FileName + COPY(SaveDialog1.Filter,6,4))); Obs: O quick report na opção de salvar , pode adicionar automaticamente qualquer editor que estiver instalado no seu micro exemplo: QuickReport file (QRP) Lotus 123 file (WK1) Quattro File (WQ1) Excell File (XLS) Bitmap File (BMP) JPEG File (JPG) RTF File (RTF) HTML File (HTM) CSS2 File (HTM) Adobe PDF File (PDF) Todos esses editores estão instalados no meu micro e eles aparecem no quick report, me dando a opção de salvar o quick report em qualquer uma dessas extenções ... ok ?
  6. Colega ... acho que voce deve estar usando o turbo pascal, mas pelo que me lembro voce pode gerar a saida em arquivo, de qualquer forma vai um exemplo : procedure TPrintx_Form1.Say(Nlin,Ncol: Integer;Var LinhaAtual: Integer; Var Arquivo: Text;Texto: Variant); var X: Integer; begin Write(Arquivo,#13); If Nlin<>LinhaAtual then begin for X :=LinhaAtual to (Nlin-1) do begin WriteLn(Arquivo,''); LinhaAtual:=LinhaAtual+1; end; end; If Ncol>0 then begin For X:=0 to Ncol do begin Write(Arquivo,' '); end; end; If LinhaAtual >=63 then { 63 É O NÚMERO DA ÚLTIMA LINHA ANTES DO RODAPÉ} begin For X:=63 to 67 do { 67 É A QUANTIDADE DE LINHAS POR PÁGINA } begin Writeln(Arquivo,''); LinhaAtual:=1; end; end; Write(Arquivo,Texto); end; procedure TSistemaWebMundi.Button1Click(Sender: TObject); var ArqPrn: TextFile; LinhaAtual: Integer; begin LinhaAtual:=0; AssignFile(ArqPrn,'LPT1'); ReWrite(ArqPrn); Say(00,00,LinhaAtual,ArqPrn,'Teste de Impressao'); Say(01,01,LinhaAtual,ArqPrn,'Teste de Impressao'); Say(02,00,LinhaAtual,ArqPrn,'Teste de Impressao'); Say(03,03,LinhaAtual,ArqPrn,'Teste de Impressao'); Say(04,00,LinhaAtual,ArqPrn,'Teste de Impressao'); Say(05,03,LinhaAtual,ArqPrn,'Teste de Impressao'); Say(06,00,LinhaAtual,ArqPrn,'Teste de Impressao'); Say(07,04,LinhaAtual,ArqPrn,123456789); Say(08,00,LinhaAtual,ArqPrn,123456789); Say(09,00,LinhaAtual,ArqPrn,123456789); CloseFile(ArqPrn); end;
  7. Para modificar os icones do dbnavigator type NewTypeNav = class( TDbNavigator ); No evento OnCreate do form, escreva o seguinte código: var c:Tbitmap; begin c:=Tbitmap.Create; c.LoadFromFile('C:\Insert.bmp'); newtypenav(dbnavigator1).buttons[nbinsert].Glyph:=c; Para mudar os Captions no DBNavigator DBNavigator não possui uma propriedade para especificar os captions dos botões, então use o codigo abaixo: type TMeuDBNavigator = class(TDBNavigator); procedure TForm1.FormCreate(Sender: TObject); const Legendas: array[TNavigateBtn] of string = ( 'Primeiro', 'Anterior', 'Próximo', 'Último', 'Incluir', 'Excluir', 'Editar', 'Salvar', 'Cancelar', 'Atualizar'); var Botao: TNavigateBtn; begin for Botao := nbFirst to nbRefresh do begin with TMeuDBNavigator(DBNavigator1).Buttons[botao] do begin Caption := Legendas[botao]; Layout := blGlyphTop; end; end; end; Espero que solucione o seu problema.
  8. Rafael ... voce está complicando o codigo sem necessidade ... Dica: crie uma variavel global ex: fig : integer e depois em cada image coloque no evento on clique fig := 1 , fig := 2, e assim por diante ... depois acrescente este codigo em cada image para testar se as figuras são iguais; for j := 0 to ComponentCount -1 do begin if Components[i] is TImage then if TImage(Components[i]).Picture = TImage(Components[5]).Picture then // coloque o numero estatico da figura //(neste //caso a figura 5) showmessage('ACERTOU') else showmessage('ERROU') end; Espero que isso te ajude ....
  9. Colega ... este codigo funciona perfeitamente no delphi 3,5,e 7 eu testei no delphi 7 sem problemas ..ok? quando você roda o que acontece ?
  10. Colega faça desta maneira: procedure TForm1.BitBtn1Click(Sender: TObject); var i : Integer; begin for i := 0 to ComponentCount -1 do begin if Components is TImage then TImage(Components).Picture.LoadFromFile('c:\adm\bmps\agenda.bmp');// caminho da figura end end; Valeu ?
  11. Reveja a sua instrução SQL .... o numero de colunas não é igual ao numero de valores atribuidos.
  12. HDELPHI

    Rxlib

    Procure neste esdereçõ http://us.geocities.com/asa100.geo/delphi/pcomp00.htm e baixe os componentes Yupack ...o componente minimizer é o que voce esta precisando.... Neste endereço irá encontrar muitos outros componentes .. ok?
  13. Correto: eu uso apenas uma tabela não tem outro...é uma consulta simples:codigo abaixo que estou usando: Muito Grato Se voce estiver usando um group header é exatamente isto que voce vai conseguir, ou seja, duplicar na banda de detalhe o numero de registros para cada um que aparecer no group header, a menos que voce tenha um unico identificador para o vendedor; outro erro é na sua propria select ... voce seleciona pelo nome do vendedor mas ordena pelo remetente... verifique
  14. Memoria insuficiente para esta operação ...´é o significado da mensagem .... esse erro ocorre por dois motivos: se acontece antes de entrar no programa, voce tem que que tirar alguns forms do autocreate e cria-los em tempo de execução... se acontece depois que entrou no programa, existe alguma rotina em loop que esta exaurindo a memoria. outra maneira é quando ocorrer este erro, digite Ctrl + Alt + Del e procure verificar quais são os processos que o windows esta executando.
×
×
  • Create New...