robinhocne

eu estou usando o Planner da TMS, creio que por isso que não estou conseguindo achar o que você informa: Planner1: TPlanner; pois nesse não localizei....

estive olhando o help dele e uma documentação que peguei na internet, com várias explicações....mas não consegui achar....ou não entender direito que está informando....

mas o PlannerType plTimeLine é um tipo diferente que estou usando, estou usando o plDay, pois só queria saber a hora quando selecionado aquela célula...

Pessoal, estou apanhando aqui para descobrir aparentemente uma coisa facil... seguinte, montei uma agenda usando o componente TPlanner da "TMS" Imagem já verifiquei todos os eventos dele, e algumas funções e não conseguir saber o horário clicado da célula....veja que na imagem eu selecionei o horário das 20 horas, então queria pegar esse horário quando clicado em uma variavel, mas não consegui achar como...alguém poderia me dar uma ajuda ? obrigado....

o que tenho até agora para conectar e enviar para o facebook consegui com esses exemplos......mas só que eles não tem essa opção.....

Pessoal, preciso de uma ajuda de vocês...... Fiz um aplicativo com o Flex para conectar no facebook e mandar informações automaticamente para o facebook, mas seguinte...nesse aplicativo o usuário vai autorizar o usuario dele do facebook para enviar informações para o facebook, sendo assim tenho em um BD mysql o usuário e senha criptografado..... fazer a parte de conectar com o facebook e mandar eu já consegui, porém cada usuário tem ficar logando para poder mandar, quer dizer sempre que precisar enviar abre esse PopUp de Login Imagem então no e-mail e senha eu queria trazer preenchido automático pelo que já tenho do usuário e depois confirmar....tem como ?

consegui resolver com ajuda de um grande parceiro de programação pela internet......ele passou o site abaixo.....100% http://www.adobe.com/devnet/facebook/samples.html#4

me desculpa só não queria que acabesse em esquecimento, pois já revirei tudo e realmente não achei nada, só em ingles, mas tá floid....

uma ajuda

Pessoal não sei se estou postando no lugar certo, e se não estiver me perdoe, mas preciso de uma grande ajuda. Fiz um aplicativo em php que acesso o banco mysql e gravo usuario e senha, esse usuario e senha são os mesmo do facebook. O que já batalhei e olhei a API do facebook e como não entendo muito, não sai do lugar..... O que eu queria é: pegar os usuarios do banco mysql. OK enviar um feed de noticias para o facebook com imagem. !Ajuda! :natalsad: então o que eu preciso saber é como vou pegar o usuario e senha retornada, fazer o login no facebook internamente e mandar ai um feed com imagem, isso sem precisar entrar no facebook, só atraves do meu aplicativo. uma ajuda por favor ?

valeu Jhonas

Pessoal estou tentando instalar o JEDI no delphi 7 e não estou conseguindo... o jcl eu consegui instalar normalmente pelo install.bat, mas quando estou instalando o jvcl pelo install.bat, dá um erro que a dcc32.exe parou de funcionar ("Erro do windows") ai pede para fechar ou depurar....depois que fecho dá uma mensagem e depois no instalado do JEDI só aparece esse log abaixo: Será que o erro que está dando é porque o Windows é de 64 bits ?

Muito Obrigado Jhonas.....

Resolvido com o evento OnMouseLeave do TJvPanel.

Pessoal, estou pesquisando sobre B.I. e vi alguns exemplos do Decision Cube, agora achei o componente do Hier Cube, mas não consegui achar nenhum artigo sobre ele, alguém conhece ? tem algum material ? Tem outros de BI ?

voce tem que colocar uma rotina em um botão, para fazer esse arredondamento ... esse botão poderá ficar invisivel, e voce poderá acioná-lo quando for necessario abraço então até criei uma procedure para fazer essa função....mas eu tinha que acionar essa verificação depois que redimensionar....tipo o evento AfterMove do componente.......

Seguinte, o TJvPanel da biblioteca do JEDI tem a propriedade Sizeable onde habilitando para true consigo redimensionar o TJvPanel em tempo de execução, até ai facil... Agora o que estou tentando e sem exito é saber que depois de redimensionar eu verificar o Height do TJvPanel para definir o correto. tipo assim....o TJvPanel não pode ter um Heigth 32, ou 45 resumindo só pode ter um intervalo de Heigth 30 em 30...tipo 0..30..60..90..etc então se eu redimensiono ele e ele fica com o Heigth 65 eu queria que apos redimensionar eu arredondasse para 60... entenderam ? :blink: pois ai só assim vai ajustar conforme a regra.... Eu pego as informações na hora que redimensiono assim.... if not PosInicial then begin pnAgeTag := (Sender as TJvPanel).Tag; pnAgeHeigth := (Sender as TJvPanel).Height; PosInicial := true; end; pnAgeTimeIniSoma := 0; TotCalBloco := 0; TotBloco := 0; TotCalBloco := ((Sender as TJvPanel).Height / 32); // retorna a quantidade de bloco de horário atraves do tamanho TotBloco := Ceil(TotCalBloco) * 15; // retorna o total de minutos arrendodado para maior pnAgeTimeIniSoma := IncMinute(pnAgeTimeIni,TotBloco); // retorna a quantidade de minutos da soma

O operador IN só usa operandos do tipo ordinal ou set ... então para o seu código funcionar deveria se assim: if 283 in [279, 280, 281, 282, 283, 284, 285, 286, 287, 288, 289] then begin ShowMessage('SIM!!'); exit; end; uma maneira mais pratica seria dessa forma: var Form1: TForm1; Vector: array of Integer; implementation {$R *.dfm} function IntegerInArray(Value: integer; Vector: array of integer): Boolean; var I: Integer; begin Result := False; for I := 1 to Value do Result := Result or (Value = Vector[I]); end; procedure TForm1.Button1Click(Sender: TObject); var k : integer; begin // definir uma matriz de 10 elementos SetLength(Vector, 9); // atribuir valores a matriz de 0 a 9 for k := Low(Vector) to High(Vector) do Vector[k] := k; // testar se o numero esta dentro da matriz if IntegerInArray(10,Vector) then showmessage('sim') else showmessage('não'); // o 10 esta fora dos valores da matriz ( 0..9 ) end; ou voce pode tentar endender funções mais avançadas em delphi http://www.rosseeld.be/DRO/PIC/BitUtils.mpas abraço Jhonas valeu pela dica....mas consegui resolver utilizando a função InRange if InRange(283, 279, 309) then begin ShowMessage('SIM!!'); exit; end;

Como faço para verificar se um numero está entre outros....tipo creio que isso seja básico, mas não estou conseguindo....estava.....fazendo assim if 283 in [279..309] then begin ShowMessage('SIM!!'); exit; end; mas não entra nessa condição..... uma ajuda ai......

esse está dando certo, mas como são muitos tenho que verificar vários...então achei que daria de outra maneira, mas beleza.....vou continuar dessa maneira.....valeu Jhonas....

Jhonas.....eu esse não resolve....porque eu precisava saber de qual TJvGradientHeaderPanel que o TJvPanel está.....nesse caso já tinha visto e ele só manda para frente ou atras mesmo....

Eu crio alguns TJvPanel e posiciono eles em cima de uns TJvGradientHeaderPanel de acordo com os horários....agora queria saber de qual TJvGradientHeaderPanel do TJvPanel está em cima, pois precisava pegar o Name e top do TJvGradientHeaderPanel, mas pelo TJvPanel que está em cima dele. tem como ?

resolvi for A := 0 to lisHorario.Count -1 do begin pnHorTop := TJvGradientHeaderPanel(lisHorario[a]).Top; pnHorName := TJvGradientHeaderPanel(lisHorario[a]).Name; pnHorCaption := TJvGradientHeaderPanel(lisHorario[a]).Caption; end;

Não estou conseguindo fazer o seguinte....... quando crio os TJvGradientHeaderPanel (pnHorario) eu dou um lisHorario.Add(pnHorario); então depois quero percorrer a lista e pegar algumas propriedades do pnHorario for A := 0 to lisHorario.Count -1 do begin pnHorTop := pnHorario(lisHorario[a]).Top; pnHorName := pnHorario(lisHorario[a]).Name; pnHorCaption := pnHorario(lisHorario[a]).Caption; end; ai tá dando erro assim: missing operator or semicolon

valeu Jhonas.... Fiz dessa maneira e deu certo.... procedure TForm1.Button2Click(Sender: TObject); var a, Altura: integer; begin for A := 0 to ComponentCount -1 do begin if ( Components [a] is TJvGradientHeaderPanel ) then begin Altura:= ( Components [a] as TJvGradientHeaderPanel ).Top; if ( Components [a] as TJvGradientHeaderPanel ).LabelCaption = '08:30' then begin try pnHorMarcado := TJvCaptionPanel.Create(Self); with pnHorMarcado do begin Parent := Self; Top := Altura; Left := 20; Height := 30; Width := 200; CaptionPosition := dpTop; CaptionFont.Color := clBlack; CaptionFont.Height := -12; CaptionFont.Name := 'Arial'; CaptionFont.Style := [fsBold]; CaptionHeight := 18; Caption := 'TESTE'; end; except on E:Exception do begin ShowMessage('Erro ao criar pnHorMarcado'); exit; end; end; end; end; end; end;