Jhonas

Voce já resolveu, no post anterior ? se sim coloque como ( Resolvido ) braço

Voce muda o tamanho da fonte via código exemplo: http://scriptbrasil.com.br/forum/index.php...st&p=612947 abraço

veja nesse link http://www.cbpf.br/cat/pdsi/lpr/lpr.html abraço

exemplo: http://slidefinder.net/m/modelo_dados_semi...C3%A3o/10687396 abraço

O erro: O item foi movido ou deletado vale lembrar que esse código esta incompleto, pois voce não pode ler o proximo endereço se o anterior ainda não foi enviado abraço

Voce pesquisou no forum ? http://scriptbrasil.com.br/forum/index.php...0&hl=sheets outros posts relacionados http://scriptbrasil.com.br/forum/index.php...highlite=sheets abraço

seja mais explicito .... a sua explicação não está clara sobre o que voce realmente quer abraço

voce deve redimensionar todo o form via código e não os componentes do form uses TypInfo; const sw : longint = 800; // tamanho da tela do seu programa em execução sh : longint = 600; procedure TForm1.FormCreate(Sender: TObject); var i , w : integer; begin w := width; Scaled := true; if (Screen.width <> sw) then Scaleby(screen.width,sw); for i := ComponentCount-1 downto 0 do with Components[i] do begin if GetPropInfo(ClassInfo, 'Font') <> nil then Font.Size := (width div w) * font.Size; end; end; abraço

Faça a modificação para o seu uso procedure TFPesPes001.DbgPesDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin If odd(DtsPes.DataSet.RecNo) then begin DbgPes.Canvas.Font.Color:= clBlack; DbgPes.Canvas.Brush.Color:= cl3DLight; end else begin DbgPes.Canvas.Font.Color:= clBlack; DbgPes.Canvas.Brush.Color:= clWhite; end; if (gdSelected in state) then DbgPes.Canvas.Font.Color:= clred else DbgPes.Canvas.Font.Color:= clBlack; DbgPes.Canvas.FillRect(Rect); DbgPes.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; abraço

use apenas Detail e ative o DataBand ... só que de um acomando first na ADOQuery antes de chamar o relatorio abraço

exemplo: procedure TForm1.Button1Click(Sender: TObject); var i, j : integer; begin for i := 0 to memo1.Lines.Count-1 do for j := 0 to memo2.Lines.Count-1 do if memo1.Lines.Strings[i] = memo2.Lines.Strings[j] then showmessage('Achei a palavra : '+ memo1.Lines.Strings[i]); end; abraço

Error Code: -2147217873 Não pode inserir valor nulo na coluna da tabela; a coluna não aceita valor nulo ou Error Code: -2147217873 violação de chave primaria. Não é possivel inserir chave duplicada no Update do objeto abraço

voce pode usar o Earth 1.0 Type Library ou ainda o gis_package smartinfo 2.2.5 http://www.delphipages.com/comp/gis_packag...nfo_-11801.html http://www.delphipages.com/download.php?id=4407 http://www.delphipages.com/download.php?id=4408 http://www.delphipages.com/download.php?id=4409 veja esse post https://www.scriptbrasil.com.br/forum/lofiv...hp/t137510.html http://scriptbrasil.com.br/forum/index.php...st&p=547606 abraço

tente atualizar a sua BIOS ... pesquise pela frase no google bios update notebook positivo firstline download OBS: Se voce souber como abrir o notebook, voce pode retirar a BIOS, limpar os terminais e recoloca-la novamente no lugar ... muitas vezes é mau contato somente. abraço

Tente formatar com o proprio CD de instalação do windows ... altere o Setup da BIOS para dar o boot pelo CD primeiro outra forma é tentar dar o boot pelo Pen Drive desde que ele tenha os arquivos de boot OBS: ao ligar ele emite algum Bip ? se sim que tipo ? ... se não emite bip nehum, verifique as placas de memoria, podem estar com mau contato abraço

Amigo, voce não esta obedecendo as regras do forum Favor não digitar novamente em caixa alta ou seja com os caracteres todos em maiusculos. OBS: 2º Aviso

se voce não declarar a uses vai dar erro nessa linha uses ComObj; Se o Tipo de Dados da aplicação estiver definido como PDF, o cliente de OnDemand requer o Adobe® Acrobat seja instalado para ver o documento de PDF. O cliente OnDemand requer um Adobe Acrobat viewer que contém uma interface de OLE ( AcroExch.App ) para ver o PDF que só é provido em Adobe Acrobat (Adobe Reader não provê esta interface OLE). O conteúdo de um pacote de APP geralmente inclui a aplicação de recursos, frameworks e plug-ins necessários para executar uma aplicação. abraço

exemplo: Memo1.Lines.Append(Query1NOME.Value); abraço

não acho necessario criar um TProgressbar em cada subitem que for populado, basta usar apenas um como indicativo a maneira de deletar um subitem te passei no post acima ... voce é que tem modificar o código para o seu uso abraço

código correto uses ComObj; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var App, AVDoc:Variant; begin App:=CreateOleObject('AcroExch.App'); // App.Show; AVDoc:=App.GetActiveDoc; AVDoc.Open(OpenDialog1.filename,''); //seleciona tudo e copia para o clipboard App.MenuItemExecute('Edit'); App.MenuItemExecute('SelectAll'); App.MenuItemExecute('Edit'); App.MenuItemExecute('Copy'); Memo1.PasteFromClipboard; App.Exit; end; OBS: esse código funciona no delphi 5 e 7 outro exemplo http://www.swissdelphicenter.ch/torry/showcode.php?id=2169 abraço

dessa maneira: procedure TForm1.Button1Click(Sender: TObject); begin case Edit1.Text[1] of 'A' : showmessage('A'); 'B' : showmessage('B'); 'C' : showmessage('C'); 'D' : showmessage('D'); else ShowMessage('Digite a Letra'); end; end; veja outra maneira de se usar o case var Form1: TForm1; myVar : Variant; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin myVar := 200; ShowBasicVariantType(myVar); myVar := 'Edit1'; ShowBasicVariantType(myVar); myVar := 120.90; ShowBasicVariantType(myVar); myVar := strtodate('10/02/1980'); ShowBasicVariantType(myVar); end; procedure TForm1.ShowBasicVariantType(varVar: Variant); var typeString : string; basicType : Integer; begin // chama o tipo basico da variant basicType := VarType(varVar) and VarTypeMask; // Seta a string para o tipo case basicType of varEmpty : typeString := 'varEmpty'; varNull : typeString := 'varNull'; varSmallInt : typeString := 'varSmallInt'; varInteger : typeString := 'varInteger'; varSingle : typeString := 'varSingle'; varDouble : typeString := 'varDouble'; varCurrency : typeString := 'varCurrency'; varDate : typeString := 'varDate'; varOleStr : typeString := 'varOleStr'; varDispatch : typeString := 'varDispatch'; varError : typeString := 'varError'; varBoolean : typeString := 'varBoolean'; varVariant : typeString := 'varVariant'; varUnknown : typeString := 'varUnknown'; varByte : typeString := 'varByte'; //varWord : typeString := 'varWord'; //varLongWord : typeString := 'varLongWord'; //varInt64 : typeString := 'varInt64'; varStrArg : typeString := 'varStrArg'; varString : typeString := 'varString'; varAny : typeString := 'varAny'; varTypeMask : typeString := 'varTypeMask'; end; // Mostra o tipo da Variant ShowMessage('Variant type = '+typeString); end; OBS: Veja que a variant myVar assumira um tipo basico dependendo do conteudo que lhe for passado abraço

a tabela SIBEL é criada em tempo de execução ?

para montar esse relatório vai depender de como estejam ordenados os registros se não estiverem na sequencia em que vão aprecer no relatorio, voce terá que usar matriz para montar coloque os registros como eles são ordenados e mostrados num dbgrid abraço

Neste caso fica assim: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } num : integer; end; var Form1: TForm1; implementation {$R *.DFM} USES MMSystem; function IsAudioCD(Drive: Char): Boolean; var DrivePath: string; MaximumComponentLength: DWORD; FileSystemFlags: DWORD; VolumeName: string; OldErrorMode: UINT; DriveType: UINT; begin Result := False; DrivePath := Drive + ':'; // alteração nessa linha OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS); try DriveType := GetDriveType(PChar(DrivePath)); finally SetErrorMode(OldErrorMode); end; if DriveType <> DRIVE_CDROM then Exit; SetLength(VolumeName, 64); GetVolumeInformation(PChar(DrivePath), PChar(VolumeName), Length(VolumeName), nil, MaximumComponentLength, FileSystemFlags, nil, 0); if lStrCmp(PChar(VolumeName), 'Audio CD') = 0 then begin Result := True; Form1.num := 0; end; if lStrCmp(PChar(VolumeName), 'Audio CD') > 0 then begin Result := true; Form1.num := 1; end; if lStrCmp(PChar(VolumeName), 'Audio CD') <> 0 then begin Result := false; Form1.num := -1; end; end; procedure TForm1.Button1Click(Sender: TObject); begin // coloque a letra do drive onde está o CD if IsAudioCD('E') and (num = 0) then begin ShowMessage('Audio-CD encontrado no drive E.'); exit; end else if IsAudioCD('E') and (num > 0) then begin ShowMessage('CD encontrado no drive E.'); exit; end else if (num < 0) then ShowMessage('Nenhum CD encontrado no drive E.'); end; end. abraço

faça essa correção: USES MMSystem; function IsAudioCD(Drive: Char): Boolean; var DrivePath: string; MaximumComponentLength: DWORD; FileSystemFlags: DWORD; VolumeName: string; OldErrorMode: UINT; DriveType: UINT; begin Result := False; DrivePath := Drive + ':'; // alteração nessa linha OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS); try DriveType := GetDriveType(PChar(DrivePath)); finally SetErrorMode(OldErrorMode); end; if DriveType <> DRIVE_CDROM then Exit; SetLength(VolumeName, 64); GetVolumeInformation(PChar(DrivePath), PChar(VolumeName), Length(VolumeName), nil, MaximumComponentLength, FileSystemFlags, nil, 0); if lStrCmp(PChar(VolumeName), 'Audio CD') = 0 then Result := True; // alteração nessa linha end; procedure TForm1.Button1Click(Sender: TObject); begin // coloque a letra do drive onde está o CD de audio if IsAudioCD('E') then ShowMessage('Audio-CD encontrado no drive E.') else ShowMessage('Audio-CD não encontrado no drive E.'); end; abraço