Icone

[evertonlb]

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.

[evertonlb]

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.

[Yury]

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

[vagner]

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

[soares289]

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.

[evertonlb]

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

[Luiz Arruda (ICO)]

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

[evertonlb]

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

[evertonlb]

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

[pauloaraujo]

Everton, tudo bem??

@ 238, 300 BITMAP oBmp NO BORDER ;

FILENAME "c:\ATLVRMM\acha2.bmp" size 20, 20 OF oFormid=red>

[vagner]

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

[evertonlb]

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