Trocando cor de uma linha no DBGrid por uma condição

Para trocar a fonte e a cor de um DBGrid, utilize a rotina  abaixo no evento OnDrawDataCell do DBGrid: if Tabela.FieldByName (‘Vendas’).Value >= 20000 then begin DbGrid1.Canvas.Font.Color := clRed; DbGrid1.Canvas.Font.Style := [fsBold]; end; DbGrid1.DefaultDrawDataCell(Rect, Field, State); No caso da rotina acima, somente os registros com vendas maior que R$ 20.000,00 ficarão com cor vermelha e

Continue reading »

Insere Zeros à frente de uma string

Função que insere Zeros à frente de uma string em Delphi function StrZero(Zeros:string;Quant:integer):String; var I,Tamanho:integer; aux: string; begin aux := zeros; Tamanho := length(ZEROS); ZEROS:=”; for I:=1 to quant-tamanho do ZEROS:=ZEROS + ‘0’; aux := zeros + aux; StrZero := aux; end;

Continue reading »

Como habilitar e desabilitar barra de tarefas do windows ?

Como habilitar e desabilitar barra de tarefas do windows ? Para habilitar e desabilitar a barra de tarefas do windows use as seguintes procedures: procedure hideTaskbar; // DESABILITA var wndHandle : THandle; wndClass : array[0..50] of Char; begin StrPCopy(@wndClass[0], ‘Shell_TrayWnd’); wndHandle:= FindWindow(@wndClass[0], nil); ShowWindow(wndHandle, SW_HIDE); // This hides the taskbar end; procedure showTaskbar; // HABILITA var

Continue reading »

Reparar e compactar um banco de dados Access com Delphi

Reparar e compactar um banco de dados Access com Delphi Quem já trabalhou com o Ms Access, alguma vez já teve que compactar ou reparar um banco de dados (Extensão MDB). O recurso de compactar é essencial , uma vez que o banco de dados começa a ficar grande demais. O código abaixo realiza estas

Continue reading »
Pages:1234567...23»