Jhonas

o que o segundo link esta mostrando é que o redimensionamento também poderia ser feito pela colocação de um painel sobre a moldura, com todos os componentes dentro. voce tem que tentar entender o que o código faz ... todos os links que passei não tem a solução pronta, mas tem o caminho para chegar ao que voce quer abraço

Tipos incompatíveis: 'TNotifyEvent' e 'procedimento', ponteiro não tipado ou parâmetro não tipado OnClick := ChamaAgendamento(Self); //Chama o Agendamento de horário procedure TFAgenda.ChamaAgendamento(Sender: TObject); begin with TFMarcaHorario.Create(Self) do begin try ShowModal; finally; FreeAndNil(FMarcaHorario); ///<<<<< erro end; end; end; O erro está bem explicito abraço

isso é só um exemplo de como mudar para um tamanho maior ou menor veja outros exemplos http://stackoverflow.com/questions/753134/...forms-in-delphi http://stackoverflow.com/questions/1840937...vent-for-tframe abraço

voce já olhou na documentação do ibexpert ? http://ibexpert.net/ibe/index.php?n=Doc.IB...PersonalEdition abraço

como voce esta visualizando os dados ? atraves de um DBGrid ?

tome por base esse exemplo tambem http://www.swissdelphicenter.ch/torry/showcode.php?id=586 abraço

exemplo: uses ComObj; procedure TForm1.Button1Click(Sender: TObject); var MSWord : variant; begin if OpenDialog1.Execute then begin Msword:=createoleObject('Word.Basic'); Msword.AppShow; Msword.fileopen(OpenDialog1.FileName); end; end; abraço

uma possivel solução http://www.marcosdellantonio.net/2007/02/2...scroll-e-agora/ abraço

está confuso ... tente explicar melhor abraço

se voce usa banco de dados, o seu demo compilado deverá ser baixado pelo usuário e instalado localmente em sua máquina assim como uma versão do BDE atraves do seu proprio programa unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm_Instalar = class(TForm) BtInstalar: TBitBtn; procedure BtInstalarClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private public end; var Form_Instalar: TForm_Instalar; function DllRegisterServer:integer; stdcall; external 'BdeInst.dll'; implementation {$R *.dfm} procedure TForm_Instalar.BtInstalarClick(Sender: TObject); begin //Chamada para a DLL que fará a instalação do BDE . . . //(BdeInst.dll) . . . a qual deverá estar no diretório //do seu projeto cfe Passo 3. DllRegisterServer; end; end. abraço

exemplo: unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TFrame2 = class(TFrame) Panel1: TPanel; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; implementation {$R *.dfm} procedure TFrame2.Button1Click(Sender: TObject); var NewR: TRect; begin NewR := Panel1.BoundsRect; Dec(NewR.Right, 32); Dec(NewR.Bottom, 32); Button1.Parent := Self; Button2.Parent := Self; Panel1.Free; Panel1 := TPanel.Create(Self); Panel1.BoundsRect := NewR; Panel1.Parent := Self; Button1.Parent := Panel1; Button2.Parent := Panel1; end; procedure TFrame2.Button2Click(Sender: TObject); begin Panel1.Height := Panel1.Height - 32; Panel1.Width := Panel1.Width - 32; end; end. abraço

exemplos de como criar um objeto timer no matlab http://www.mathworks.com/help/techdoc/ref/timer.html http://www.mathworks.com/help/techdoc/matl...g/f9-38055.html abraço

se voce entender um pouco de delphi, veja: http://www.steema.com/support/faq/NewVCL/FAQ_VCL_LINE.htm abraço

já fui professor de informática do ensino médio, e se voce tem disposição para essa área, estude bastante e pratique muito e vai se dar bem. obs: não se restrinja somente a programação, um bom conhecimento de hardware tambem é necessario abraço

OK... vou te dar outra sugestão bem simples então: coloque um botão vazio no form e no evento OnFormClose coloque: e veja o que acontece procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Button1Click(sender); end; ao sair do programa, voltará automaticamente a definição de brilho do monitor que estava antes da execução do programa. abraço

GetDeviceGammaRamp // obter as informações sobre o brilho atual na tela veja a figura http://www.imagegratis.com/free/uploads/1b26a6c215.jpg veja que essa função te dá os valores iniciais do brilho na tela ... pense um pouco e descobrirá como jogar esses valores de volta ao sair do programa abraço

a melhor solução não é, pois o ListBox trabalha com indices, então nesse caso voce teria que definir um professor ( indice a ) para n alunos ( indice b ) exemplo: professor(1) ------------> aluno(1) ---------> aluno(2) -------> aluno(3) professor(2) ------------> aluno(4) ---------> aluno(5) -------> aluno(6) seria o mesmo que trabalhar com matrizes a melhor solução depende de como vou pretende fazer ( usando banco de dados, ou somente records, ou uma lista simples ... etc ) abraço

amigo, percebeu que depois que voce consegue fazer o que quer no programa, as firulas ( incrementos ) começam a povoar as suas ideias ? entretanto sem o minimo de experiencia ou conhecimento, voce não consegue usar os inumeros recursos que a linguagem te oferece. veja que: // Aplicar a nova calibragem para o monitor DC := GetDC(0); SetDeviceGammaRamp(DC, gama); ReleaseDC(0, DC); como se faria para chamar a gama da tela num primeiro momento ? o comando a ser usado seria o : GetDeviceGammaRamp // obter as informações sobre o brilho atual na tela então essa vou deixar para voce pesquisar e pensar um pouco. ========================================================= quanto a sua idéia no post acima, ela tambem é válida ... outra sugestão que é mais simples seria, manter um valor padrão ao sair do programa //Mudar brilho ao fechar programa procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin ScrollBar1.Position := 160; /// brilho padrão ao sair ScrollBar1Change(Sender); // acrescente este comando se não acontecer nada end; abraço

só lembrando: a Inpout32.dll deve estar junto com o programa ou na pasta c:\windows\system32 abraço

se voce compilou o programa no delphi 7, vai rodar sem problemas no windows XP, Vista e windows 7 abraço

o ideal, como falei, é que voce conseguisse o valor de ajuste do trimpot em 255 para o LDR ( creio que se voce mudar o tipo do LDR voce alcança esse valor ) no seu código //Timer procedure TForm1.Timer1Timer(Sender: TObject); begin Edit1.Text:=IntToStr( inportb($379) ); a := inportb($379); if (a >= 127) then begin edit2.text := ('Iluminação Baixa'); ScrollBar1.Position := a; trocou:=true; {pino 10} end else if (a >= 60) or ( a <= 70 then begin edit2.text :=('Iluminação Ideal'); {pino 11} ScrollBar1.Position := a; trocou:=true; end else if (a <= 31) then begin edit2.text:=('Iluminação Excessiva'); {pino 12} ScrollBar1.Position := a; trocou:=true; end else if (a = 121) then begin edit2.Text:=('Placa Desconectada'); ScrollBar1.Position := a; end; end; //Liga o timer e define trocou para false// procedure TForm1.Image1Click(Sender: TObject); begin Timer1.enabled:=true; end; //Desliga o timer// procedure TForm1.Image2Click(Sender: TObject); begin Timer1.Enabled:=false; edit1.Text:='Clique em Iniciar'; edit2.text:=(''); ScrollBar1.Position := 100; end; //Pergunta se o usuário quer entrar no site// procedure TForm1.FormCreate(Sender: TObject); begin if Application.MessageBox('Deseja entrar no nosso site?','', mb_iconquestion + mb_yesno) = idYes then ShellExecute(Handle, nil, 'J:\Programa Lumus - FUCKING FINISHED MOTHERFUCKER AW YEAH\site projeto\index.html' , nil, nil, SW_SHOWNORMAL) else; ShowWindow(Handle, SW_SHOWMAXIMIZED); end; //Mudar brilho ao fechar programa procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin ScrollBar1.Position := 100; /// brilho padrão ao sair ScrollBar1Change(Sender); // acrescente este comando se não acontecer nada end; end. OBS: com esse seu código voce esta limitando o brilho da tela em 3 posições somente e não a todas as variações possiveis ) de 0 a 255 abraço

Não altere esse código procedure SetBrilhoMonitor(brilho: Byte); var i, Value: Integer; DC: HDC; gama: tGamma; begin // Calcular a nova gama de acordo com o brilho passado for i := 0 to 255 do begin Value := Min(Round(i * (brilho + 128) / 255), 255); gama.Vermelho[i] := Value shl 8; gama.verde[i] := Value shl 8; gama.Azul[i] := Value shl 8; end; // Aplicar a nova calibragem para o monitor DC := GetDC(0); SetDeviceGammaRamp(DC, gama); ReleaseDC(0, DC); end; e no seu código mude procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin //SetBrilhoMonitor(100); tire esse comando ScrollBar1.Position := 100; end; aqui esta funcionando 100 % ... abraço

para ficar mais correto com o uso do ScrollBar seria: procedure TForm1.ScrollBar1Change(Sender: TObject); begin // testar usando o componente ScrollBar1 SetBrilhoMonitor(255-ScrollBar1.Position); Edit1.Text := inttostr(ScrollBar1.Position); end; {procedure TForm1.Timer1Timer(Sender: TObject); begin // Timer1.Interval = 1000 edit1.Text := IntToStr( inportb($379) ); a := inportb($379); SetBrilhoMonitor(255-a); end; } procedure TForm1.FormActivate(Sender: TObject); begin ScrollBar1.Position := 1; /// brilho maximo end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin ScrollBar1.Position := 180; /// brilho padrão ao sair end; abraço

voce viu o código ? // testar usando o componente ScrollBar1 // min = 0 e max = 255 na propriedade max do ScrollBar1 voce coloca 255 ( limite para o brilho ) outra coisa: o brilho da tela vai permancer no valor que voce colocar, mesmo fechando o programa . (a menos que voce defina um valor padrão antes de fechar o programa ) procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin ScrollBar1.Position := 60; end; como voce pode perceber atravez do valor do Edit, valor menor ( menos brilho ) valor maior ( mais brilho ) então basta inverter a leitura dos valores e iniciar com procedure TForm1.FormActivate(Sender: TObject); begin ScrollBar1.Position := 255; end; procedure TForm1.ScrollBar1Change(Sender: TObject); begin // testar usando o componente ScrollBar1 SetBrilhoMonitor(ScrollBar1.Position); Edit1.Text := inttostr(255-ScrollBar1.Position); end; {procedure TForm1.Timer1Timer(Sender: TObject); begin // Timer1.Interval = 1000 edit1.Text := IntToStr( inportb($379) ); a := inportb($379); SetBrilhoMonitor(255-a); end; } abraço

com esse código, seu projeto já está praticamente pronto , mas se quiser incrementar mais, o link que te passei apresenta possibilidades interessantes. OBS: se puder ajustar o trimpot para obter o valor 255 seria ideal abraço