evertonlb Posted June 2, 2007 Report Share Posted June 2, 2007 Pessoal to comecando a fazer alguma coisas em FW e xHb e gostaria de colocar no cadastro de produtos um icone pra procurar o fornecedor deste item... a funcao pra achar o fornecedor sei como faz. Meu problema esta em colocar este icone! Nao posso dizer que ja tentei de tudo porque senao teria conseguido, mas realmente preciso de uma luz. to usando Obrigado Everton FW 2.4 + xHb 99.50. Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 2, 2007 Author Report Share Posted June 2, 2007 Pessoal to comecando a fazer alguma coisas em FW e xHb e gostaria de colocar no cadastro de produtos um icone pra procurar o fornecedor deste item... a funcao pra achar o fornecedor sei como faz. Meu problema esta em colocar este icone! Nao posso dizer que ja tentei de tudo porque senao teria conseguido, mas realmente preciso de uma luz. to usando Obrigado Everton FW 2.4 + xHb 99.50. Quote Link to comment Share on other sites More sharing options...
Yury Posted June 2, 2007 Report Share Posted June 2, 2007 olá, acho q oq vc chamou de "icone" seria uma bitmap que quando vc clica executa uma função, certo ? se for isso, tente assim: @ , BITMAP oBitmap NO BORDER FILENAME "procura.bmp" SIZE 09,09 ON CLICK id=code>id=code>ou se a bitmap estiver em um resorce/dll: @ , BITMAP oBitmap NO BORDER RESOURCE "procura" SIZE 09,09 ON CLICK id=code>id=code>espero ter ajudado um abraço Yury Marcelino Al vimansca@vimansca.com.br yury030575@yahoo.com.br skype: yury.marcelino.al Leme / SP FW 2.6 / [x]Harbour 99.50 / WS / xDev 0.62 Quote Link to comment Share on other sites More sharing options...
vagner Posted June 2, 2007 Report Share Posted June 2, 2007 Olá, Ou se for em uma pesquisa no Get, pode usar a VGet em dicas+dicas Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 Quote Link to comment Share on other sites More sharing options...
soares289 Posted June 4, 2007 Report Share Posted June 4, 2007 Se o seu caso for o da imagem mesmo e não for bmp pode usar o código que o Yury passou, trocando o bitmap por Image, ficaria mais ou menos assim. @ , IMAGE oBmp OF oWnd SIZE , ON LEFT CLICK PIXEL Espero que ajude. Flw. Carlson A. Soares - SP - SP FiveWin 7.05 - xHarbour .961 - SQLRDD Se precisar de ajuda estamos ai. SoftWare OpenSource, o Futuro começa assim. Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 5, 2007 Author Report Share Posted June 5, 2007 Amigos, muito obrigado pelas dicas. Porem nao consegui fazer funcionar ( incivel neh? E eh so uma linha de comando! tsc, tsc, tsc...) Inclusive verifiquei o Help da xDev e, pessoal... nao aparece nada, nao da erro algum mas tambem nao aparece nada. tentei tirar o No Border, pora ver se pelo menos marcava o local com a borda, mas nada. Tenho um Form e sobre este Form tenho um Group, tentei colocar OF oForm, OF oGrp1, deixei sem e mesmo assim nao apareceu. troquei o "path" do BMP, alterei as coordenadas, mudei o size, mas infelizmente nao aparece o BMP. Que farei pois em tao dramatica situacao? Fw 2.4/xHb 99.50/XP Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted June 5, 2007 Report Share Posted June 5, 2007 Se vc está usando listbox, pode usar ON CHANGE LISTAR() Agora.. Mostre como vc. esta fazendo, fica mas facil de ver onde vc. está errando... Abraços.. LUIZ ARRUDA - Corumba-MS FW 2.4 - CLP 5.3 - WS - Win XP ico.corumba@gmail.com iko67@ibest.com.br Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 5, 2007 Author Report Share Posted June 5, 2007 oK. Amigos, este eh o codigo que escrevi. Obrigado pela ajuda. Function ATL0001() local oBrush, oBar, oRad SET _3DLOOK ON Public nRad2 := 1 Public CodGrade := Space( 03 ) Public cTexto12 := Space( 10 ) Public cTexto13 := Space( 10 ) ... * select Produtos set order to 01 go top * CodigoProduto := NovoRegistro(@CodigoProduto) * DEFINE FONT oFONT1 NAME "Courier New" SIZE 8, 16 ... defino outras fontes ... Define WINDOW oForm TITLE "Cadastro de Produtos" MDIChild; FROM 7, 55 to 552, 931 PIXEL COLOR 0, 14215660 @ 34, 6 GROUP oGrp1 TO 512, 862 LABEL "" PIXEL; OF oForm COLOR 0, 14215660 FONT oFont1 -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-. ... Aqui esta a dita cuja. Olhe ja tentei por esta linha em varias partes, acho que nao muda nada, mas tentei... @ 238, 300 BITMAP oBmp NO BORDER FILENAME "c:\ATLVRMM\acha2.bmp" size 20, 20 OF OGRP1 -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-. DEFINE BRUSH oBrush STYLE TILED // FiveWin new predefined Brushes DEFINE CURSOR oHand HAND DEFINE BUTTONBAR OF oForm _3Dlook SIZE 28, 34 CURSOR oHand DEFINE BUTTON OF oForm:oBar NOBORDER ACTION NovoRegistro( @CodigoProduto ); FILENAME "c:\padroes\novo.bmp" ; MESSAGE "Abre um registro novo" DEFINE BUTTON OF oForm:oBar NOBORDER ACTION Eai(); FILENAME "c:\padroes\grava.bmp" ; MESSAGE "Grava os dados digitados" DEFINE BUTTON OF oForm:oBar NOBORDER ACTION Eai(); FILENAME "c:\padroes\cancela.bmp"; MESSAGE "Cancela dados digitados" @ 231, 7 FOLDER oFld1 Items "Estoque",; "Valores",; "Impostos",; "Produto Usado",; "Análise",; "Produção - 1",; "Produção - 2"; SIZE 842, 242 PIXEL; OF oGrp1 COLOR 0, 14215660 FONT oFont2 @ 5, 3 GROUP oGrp2 TO 216, 834 LABEL "Estoque" PIXEL; OF oFld1:aDialogs[1] COLOR 0, 14215660 FONT oFont2 @ 3, 3 GROUP oGrp3 TO 215, 837 LABEL "Valores" PIXEL; OF oFld1:aDialogs[2] COLOR 0, 14215660 FONT oFont2 @ 5, 3 GROUP oGrp4 TO 214, 835 LABEL "Impostos" PIXEL; OF oFld1:aDialogs[3] COLOR 0, 14215660 FONT oFont2 @ 4, 4 GROUP oGrp5 TO 213, 836 LABEL "Produto Usado" PIXEL; OF oFld1:aDialogs[4] COLOR 0, 14215660 FONT oFont2 @ 3, 6 GROUP oGrp6 TO 212, 835 LABEL "Análise Financeira" PIXEL; OF oFld1:aDialogs[5] COLOR 0, 14215660 FONT oFont2 @ 3, 3 GROUP oGrp7 TO 217, 837 LABEL "Produção - 1" PIXEL; OF oFld1:aDialogs[6] COLOR 0, 14215660 FONT oFont2 @ 3, 3 GROUP oGrp8 TO 210, 834 LABEL "Produção - 2" PIXEL; OF oFld1:aDialogs[7] COLOR 0, 14215660 FONT oFont2 @ 47, 22 SAY oSay1 VAR "Código" SIZE 60, 13 PIXEL; OF oForm COLOR 0, 14215660 FONT oFont3 @ 46, 178 SAY oSay2 VAR "Código da Fábrica" SIZE 108, 13 PIXEL; OF oForm COLOR 0, 14215660 FONT oFont3 @ 47, 343 SAY oSay4 VAR "Código de Barras" SIZE 103, 14 PIXEL; OF oForm COLOR 0, 14215660 FONT oFont3 @ 48, 507 SAY oSay4 VAR "Data de Cadastro" SIZE 134, 13 PIXEL; OF oForm COLOR 0, 14215660 FONT oFont3 @ 84, 23 SAY oSay5 VAR "Seção" SIZE 42, 14 PIXEL; OF oForm COLOR 0, 14215660 FONT oFont3 @ 118, 22 SAY oSay6 VAR "Tipo" SIZE 60, 14 PIXEL; OF oForm COLOR 0, 14215660 FONT oFont3 @ 153, 23 SAY oSay7 VAR "Marca" SIZE 55, 12 PIXEL; OF oForm COLOR 0, 14215660 FONT oFont3 @ 188, 22 SAY oSay8 VAR "Descrição" SIZE 62, 13 PIXEL; OF oForm COLOR 0, 14215660 FONT oFont3 @ 225, 23 SAY oSay9 VAR "Fornecedor" SIZE 69, 11 PIXEL; OF oForm COLOR 0, 14215660 FONT oFont3 @ 62, 23 GET oGet1 VAR CodigoProduto SIZE 115, 20; COLOR 0, 16777215 PIXEL OF oForm FONT oFont1 @ 62, 508 GET oGet2 VAR DataCadastro SIZE 120, 20; COLOR 0, 16777215 PIXEL OF oForm FONT oFont1 @ 62, 182 GET oGet3 VAR CodFabricante SIZE 115, 20; COLOR 0, 16777215 PIXEL OF oForm FONT oFont1 @ 62, 343 GET oGet4 VAR CodBarras SIZE 120, 20; COLOR 0, 16777215 PIXEL OF oForm FONT oFont1 @ 98, 23 GET oGet5 VAR CodSecao SIZE 61, 20; COLOR 0, 16777215 PIXEL OF oForm FONT oFont1 @ 133, 23 GET oGet6 VAR CodTipo SIZE 60, 20; COLOR 0, 16777215 PIXEL OF oForm FONT oFont1 @ 167, 23 GET oGet7 VAR CodMarca SIZE 60, 20; COLOR 0, 16777215 PIXEL OF oForm FONT oFont1 @ 202, 23 GET oGet8 VAR Descricao SIZE 460, 20; COLOR 0, 16777215 PIXEL OF oForm FONT oFont1 @ 238, 23 GET oGet9 VAR CodFornecedor SIZE 60, 20; COLOR 0, 16777215 PIXEL OF oForm FONT oFont1 @ 46, 651 GROUP oGrp12 TO 252, 850 LABEL "Foto do Produto" PIXEL; OF oForm COLOR 0, 14215660 FONT oFont7 @ 47,652 BITMAP oPhoto FILENAME cPhoto size 150, 250 OF oGrp12 ACTIVATE WINDOW oForm ON INIT AjustaRad() Fw 2.4/xHb 99.50/XP Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 5, 2007 Author Report Share Posted June 5, 2007 essa ultima linha da foto ai nao ta valendo nao, ainda eh so um teste pra ver se funciona! Obrigado! Fw 2.4/xHb 99.50/XP Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted June 5, 2007 Report Share Posted June 5, 2007 Everton, tudo bem?? @ 238, 300 BITMAP oBmp NO BORDER ; FILENAME "c:\ATLVRMM\acha2.bmp" size 20, 20 OF oFormid=red> Quote Link to comment Share on other sites More sharing options...
vagner Posted June 5, 2007 Report Share Posted June 5, 2007 Olá, Retire o BitMap de dentro do Group, ele não funciona dentro do Group Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 5, 2007 Author Report Share Posted June 5, 2007 Ok. fiquei tanto tempo preso no BITMAP, pelo menos aprendi sobre ele... troquei pelo BTNBMP, e funcionou beleza. Obrigado a todos que me ajudaram. Fw 2.4/xHb 99.50/XP Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.