KeitaroSan

E aew povo, É o seguinte, to com problemas na implementação de classes em C++, não sei o que estou fazendo errado, eu crio um arquivo "header" de extensão h, onde defino toda a classe, e a implementação da classe, eu coloco em um arquivo de mesmo nome, porém com extensão cpp... o problema é quando uso o header que eu criei, ele fala que não acha a implementação dos metodos da classe... Será que estou fazendo algo errado?? exemplo: class1.h #ifndef CLASS1_H #define CLASS1_H class class1 { private: int Membro1; public: class1(int Value); void SetMembro1(int Value); }; #endif class1.cpp #include "class1.h" class1::class1(int Value) { SetMembro(Value); } void class1::SetMembro(int Value) { Membro1 = Value; } e tento compilar(estou usando o DEV-CPP): main.cpp #include "class1.h" int main(int argc, char *argv[]) { class1 *c = new class1(10); return 0; } Feito isso, consigo a mensagem: [Linker error] main.cpp: undefined reference to 'class1::class1(int)'

Bom, testei seu código e aparentemente não possui erros, pois que mandei incluir um Painel e mostrou o painel com a imagem carregada e tudo mais dentro do ScrollBox...

Bom, como eu não cnheço a sintax do MessageBox, vou mostrar como seria com MessageDlg... if MessageDlg('Caro Sr.: ' + UpperCase(FrmBancos. QrLocFunNOMEFUNC.AsString) + '. Tem certeza que deseja sair?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then Application.Terminate; Assim ficaria usando um MessageDlg...

Pinta o fundo tambem... com Canvas você tem como pintar tudo, da maneira que quiser, dá até pra você inserir uma imagem no fundo se quiser... o.o''

Eu nunca usei ele nas minhas aplicações, só vi ele funcionando um vez numa aplicação, achei maneiro... =P Capaz do Jedi-VCL ter algum componente que rode Gif animada também, o set de componentes deles é beeeeeem grande...

Tipo, como eu tow sem Access no momento, não posso te fazer um exemplo, mas quando eu testei, testei no Database Desktop e notei que ele era "Case Sensitive", ou seja, diferenciava letras maiusculas de minusculas... será que não está retornando nada por algum caso assim?? Tipo, se não funcionar bem com o '*', tenta usar o '%'... quem sabe não funciona?

Bom, eu perguntei, pois quando eu trabalho com banco de dados, a sintaxe do SQL costuma mudar pra quem esta acostumado com a do BDE, geralmente eu utilizo Access tambem, mas eu uso componente de acesso pelo Jet, espero que isso não afete o a sintaxe do SQL... Eu faria a query de seleção da seguinte maneira: Query1.SQL.Text := 'SELECT * FROM tabela_desejada WHERE nome_do_campo LIKE '+#39+ var_substring + '*' +#39+' note que esse que eu pus logo apos o "var_substring" é um caracter curinga, entende? ou seja, ele vai mostrar todos os registros que começam com o texto que esta na var_substring e terminem com qualquer coisa... no Paradox o caracter curinga é o "%", por isso eu queria saber qual sintaxe de SQL usar... Bom, se der erro, posta o erro aqui, mas acho dificil, sempre uso assim e nunca obtenho erro... falows

Qual o tipo de banco de dados você esta utilizando Lazarodm?

Bom, você pode ignorar a linha que atrinui o valor NIL pro picture do Image, afinal, o LoadFromFile vai se encarregar de trocar a imagem cara... logo, não é mais necessário limpar o Image, ou até uma forma melhor de fazer isso, seria: procedure TForm1.BitBtn2Click(Sender: TObject); var n: Integer; begin n := Application.MessageBox('Deseja Apagar o Registro?', 'Salvar Foto', 36); if n = 6 then begin Table1.delete; if FileExists(table1.fieldbyname('caminho').AsString) then image1.picture.loadFromFile(table1.fieldbyname('caminho').AsString) else Image1.Picture := nil; end else begin Table1.Cancel; ShowMessage('A Ação Foi Cancelada Pelo Usuário!'); Table1.First; end; end;

Não conheço o modo de funcionamento do DBExpress, mas já trabalhei com o MySQL no Delphi utilizando um set de componentes chamado MySqlDAC (Shareware), com ele você tem acesso direto ao MySQL, sem precisar passar pelo ODBC ou BDE... mas também já consegui acessar MySQL com o ODBC, você pega os drivers ODBC pro MySQL lá no site oficial do MySQL e consegue conectar também...

Apagar uma Imagem de um componente TImage?? Se for isso, é moleza, faz o seguinte... procedure TForm1.BitBtn2Click(Sender: TObject); var n: Integer; begin n := Application.MessageBox('Deseja Apagar o Registro?', 'Salvar Foto', 36); if n = 6 then begin Table1.delete; Image1.Picture := nil; // <- Estou considerando que seu Image se chame Image1 end else begin Table1.Cancel; ShowMessage('A Ação Foi Cancelada Pelo Usuário!'); Table1.First; end; end; Era isso?? ou eu entendi errado?? Espero que isso o ajude...

Existe um componente que exibe GIFs animadas, é o TGifImage, pega ele: www.sulako.com

onMeasureItem - Occurs on owner-draw menu items to determine menu item size before the menu is drawn. onDrawItem - Occurs when an owner-draw menu needs to be drawn. ps.: Eu não traduzi por que assim cada um traduz da melhor maneira pra si... Se liga, vou postar abaixo um exemplo de personalização dos menus que fiz aqui... primeiro você poe um componente TMainMenu ou um TPopupMenu no form, feito isso, insira 2 menus e ponha no evento onDrawItem e no onMeasureItem deles, codigos parecidos com este aqui: procedure TForm1.Azul1MeasureItem(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer); begin with ACanvas.Font do begin Name := 'Times New Roman'; Color := clBlue; Size := 20; Style := [fsItalic, fsBold]; end; Width := ACanvas.TextWidth((Sender as TMenuItem).Caption) + 30; Height := ACanvas.TextHeight((Sender as TMenuItem).Caption) + 5; end; procedure TForm1.Azul1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean); begin with ACanvas.Font do begin Name := 'Times New Roman'; Color := clBlue; Size := 20; Style := [fsItalic, fsBold]; end; ACanvas.TextOut(ARect.Left + 10, ARect.Top + 2, TMenuItem(Sender).Caption); end; procedure TForm1.Vermelho1MeasureItem(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer); begin with ACanvas.Font do begin Name := 'Verdana'; Color := clRed; Size := 10; Style := [fsItalic, fsBold]; end; Width := ACanvas.TextWidth((Sender as TMenuItem).Caption) + 30; Height := ACanvas.TextHeight((Sender as TMenuItem).Caption) + 5; end; procedure TForm1.Vermelho1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean); begin with ACanvas.Font do begin Name := 'Verdana'; Color := clRed; Size := 10; Style := [fsItalic, fsBold]; end; ACanvas.TextOut(ARect.Left + 10, ARect.Top + 2, TMenuItem(Sender).Caption); end; Pronto... não vai ficar muito bonito porque eu fiz isso só de exemplo pra te mostrar como funciona o processo de desenho, mas você pode personalizar isso ao máximo, pode até colocar Imagem no Menu se quiser... falow

O Layout é um dos melhores que já vi, organizado, bonito, sem poluição visual, totalmente coerente, muito bom mesmo....

Ela deve estar querendo dizer que vai ter de pegar todos os dados em um arquivo TXT e importa-los pra uma Tabela de algum banco de dados que ela possui, certo Carol?? Qual a estrutura desse aquivo de texto que você quer importar? ele segue um padrão especifico? pois se seguir, vai ser bem facil de criar uma rotina para a leitura dele e depois passamos os dados lidos para o banco de dados...