Jhonas

Oi Eder.. voce deve pensar um pouco ... a mascara é para mostrar da maneira que voce precisa entretanto voce tem que fazer algumas conversões para que isto ocorra, não é simplesmente fazendo < strtotime > voce esta trabalhando com horas, minutos e segundos.. então o mais logico para atingir o resultado esperado para a mascara é converter as horas em segundos depois soma-las e novamente converter segundos para horas e transportar para o maskedit exemplo: // Horas em segundos function Hora_Seg( Horas:string ):LongInt; Var Hor,Min,Seg:LongInt; begin Horas[Pos(':',Horas)]:= '['; Horas[Pos(':',Horas)]:= ']'; Hor := StrToInt(Copy(Horas,1,Pos('[',Horas)-1)); Min := StrToInt(Copy(Horas,Pos('[',Horas)+1,(Pos(']',Horas)-Pos('[',Horas)-1))); if Pos(':',Horas) > 0 then Seg := StrToInt(Copy(Horas,Pos(']',Horas)+1,(Pos(':',Horas)-Pos(']',Horas)-1))) else Seg := StrToInt(Copy(Horas,Pos(']',Horas)+1,2)); Result := Seg + (Hor*3600) + (Min*60); end; // Segundos em horas function Seg_Hora( Seg:LongInt ):string; Var Hora,Min:LongInt; Tmp : Double; begin Tmp := Seg / 3600; Hora := Round(Int(Tmp)); Seg := Round(Seg - (Hora*3600)); Tmp := Seg / 60; Min := Round(Int(Tmp)); Seg := Round(Seg - (Min*60)); Result := FormatFloat( '00', Hora )+ ':' + FormatFloat( '00', Min ) + ':' + FormatFloat( '00', Seg ); end; procedure TForm1.Button1Click(Sender: TObject); var time1, time2, time3 : TTimeStamp; begin MaskEdit1.text := Seg_Hora(strtoint(Edit1.text)); end; neste exemplo: se voce digitar no edit1 o valor de 570000 ( segundos ), ou seja, a soma de todas as horas convertidas em segundos, voce vai ter como resposta no maskedit o valor de 150:20:00 abraço

porque voce não usa um select ? Select * from QryCaixa where tipo = 1 OBS: o evento QryCaixaAfterOpen só é executado depois que os dados já foram carregados abraço

sem voce colocar o codigo que esta dentro do evento, fica dificil para qualquer um abraço

basta usar desta maneira: !000:00:00;1;_ abraço

tente desta maneira: edit1.text := timetostr(strtotime('07:00:00')); abraço

Posso instalar mais de um sistema operacional em meu computador ? Sim. No caso mais comum, em que o usuário possui apenas um HD, basta que você use um gerenciador de boot, ou seja, um programa que lhe permitirá escolher qual será o sistema usado para inicializar o seu computador. Sempre que você quiser mudar de sistema operacional, bastará reinicializar e escolher o outro sistema. Por exemplo, você pode ter o Windows e o Linux instalados em seu computador, ou ainda, ter mais de uma versão do Windows com mais de uma distribuição Linux, todos funcionando sem problemas. Mais informações: http://windowshelp.microsoft.com/Windows/p...2749fe2070.mspx http://wnews.uol.com.br/site/noticias/mate...id_conteudo=225 http://www.debian.org/releases/stable/sparc/ch03s05.html.pt http://forum.clubedohardware.com.br/como-i...mais/75151?amp; http://forums.tibiabr.com/archive/index.php/t-121498.html abraço

abraço

De maneira bem simples seria isto: if not Assigned(mFont) then Exit; vLeft := Format('<FONT FACE="%s" SIZE='+inttostr(Form1.DBGrid1.Font.Size div 4)+' COLOR="%s">', [mFont.Name, ColorToHtml(mFont.Color)]); vRight := '</FONT>'; abraço

Voce pode usar o < Left Outer Join > exemplo http://db.apache.org/derby/docs/dev/pt_BR/...fsqlj18922.html mas sugiro utilizar um campo de controle para isto, que ficaria muito simples abraço

Veja este post http://scriptbrasil.com.br/forum/index.php...amp;hl=tabulado abraço

Select c.id_pedido,p.pedido_id from contas_receber c, pedidos p where (c.id_pedido=p.pedido_id) A select neste caso trara somente os registros que forem iguais e neste caso destacaria todas as linhas, ou voce pode destacar apenas os registros em que um campo numerico seja maior que zero exemplo: Usando o evento OnDrawColumnCell do DBgrid procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if (Column.Field.FieldName = 'CAIXA') then begin if CDS_CaixaP.FieldByName ('CAIXA').Value > 0 then begin //DBGrid1.Canvas.Brush.Color:= clRed; //DbGrid1.Canvas.Font.Style := [fsBold]; DBGrid1.Canvas.Font.Color:= clRed; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end else begin DBGrid1.Canvas.Font.Color:= clBlack; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; end; end; abraço

Oi Eder ... se eu não me engano voce pode salvar com extensão .ppt ou .pps abraço

Veja nestes endereços http://www.serverinformatica.com.br/ComoFazer1.htm http://www-1.ibm.com/support/docview.wss?r...uid=swg24004129 http://www.coseti.org/screncam.htm abraço

voce pode sar 127.0.0.0 ou 10.0.0.0 abraço

para particionar o hd em duas partições ou mais use o Partition Magic http://www.download3000.com/download-Parti...-reg-14230.html abraço

No campo Host Address coloque o endereço do FTP que você quer acessar. Geralmente é do tipo "ftp.servidor.com". No campo User ID coloque o login e no campo Password coloque sua senha. Basta clicar no OK e você irá se conectar ao servidor FTP que você colocou no Host Address. Veja a situação da sua conexão na parte superior. A tela ficará dividida ao meio verticalmente. O lado esquerdo mostra o seu disco rígido, com todos os diretórios e arquivos e o lado direito mostra os diretórios do outro computador em que você está conectado. Na parte superior, logo abaixo dos botões do menu principal, está a tela de status, que informa se você está conectado e os procedimentos que o Cute FTP está realizando para se conectar ao servidor remoto. Depois que voce estiver conectado, voce pode atribuir permissões as pastas. abraço

http://www.geocities.com/SiliconValley/Bay...DBGridcombo.zip abraço

Complementando a resposta do nosso amigo JackSSA é um erro causado por drive corrompido. Voce deve desinstalar todos modens e fazer uma limpeza nos registros use o Easy-Cleaner http://baixaki.ig.com.br/download/Easy-Cleaner.htm depois voce instala novamente o modem, deve resolver. OBS: caso não funcione tente fazer uma recuperação do windows pelo CD de instalação abraço

Soluções: 1 - desinstale os últimos programas que tenha instalado, use um programa que limpe o Registro do Windows e reinicie o micro. AdWares e SpyWares costumam fazer esse tipo de alteração indesejada no sistema. 2 - Tentar uma restauração pelo CD de instalação do windows 3 - Usar o regedit do windows e alterar o registro Iniciar / Executar / Regedit Hkey Local Machine / Software / Microsoft / Windows / Current Version / Policies / Explorer No Folder Options (2 cliques) Troca o nº que estiver para 1 Reinicie. Windows Registry Editor [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer] "NoFolderOptions"=dword:0000000 [HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Restrictions] "NoBrowserOptions"=dword:00000000 4 - baixar estes programas para tentar a recuperação http://www.kellys-korner-xp.com/regs_edits/folderoptions.reg http://www.kellys-korner-xp.com/regs_edits/ToolbarRepair.Exe 5 - Procure pela palavra StuckRects2 usando o regedit: HKEY_CURRENT_ USER\Software\Microsoft\Windows\CurrentVersion\Explorer .... Quando aparecer, clique nessa Chave com o botão direito e mande Excluir. Você vai apagar a Chave corrompida para que o Windows construa uma nova. Reinicie o micro e a Barra de Tarefas deverá aparecer normalmente. abraço

Muito provavelmente nesta mudança, algo dentro do micro desconectou ou deu mau contato.. sugiro abrir o micro e reapertar todas placas, plugues e travas ( memoria ) abraço

Use o Fdisk antes de fazer a instalção do windows XP SP2 http://support.microsoft.com/kb/255867/pt-br abraço

Veja neste endereço: http://www.forum-invasao.com.br/novo/viewt...5&t=8531580 abraço

Use o CuteFTP , selecione a pasta e de CHEMOD 777, clique em Ok e pronto! http://superdownloads.uol.com.br/download/105/cuteftp-pro/ http://www.cuteftp.com/downloads/cuteftppro.aspx abraço

Isso depende muito do gravador e da midia.. neste endereço vai encontrar todas as respostas sobre este assunto http://www.americasom.com.br/gravadores.htm abraço

Experimente de outra forma try if Form2 = Nil then Form2 := TForm2.Create(self); except ShowMessage('Erro na criação do formulário !!'); exit; end; Form2 .showmodal; Form2.Release; abraço