entao como o amigo pablo sugeriu estou postando exatamente o trecho do codigo em uso e pablo nos softs que eu trabalhava quando comecei a aprender nunca usei seek() , e nem replace
caso mais detalhes posso te explicar so da um toc que eu te mostro em que trabalhava ai vc vai entender por conta as perguntas aparentemente bobas, sem mais delongas vamos la se vc entender e poder me ajudar te agradeço nao pensse que é eu querendo me aproveitar disso ou daquilo é que realmente eu estou perdido mais que cego em tiroteio , e so estou conseguindo das pequenos passos com a ajuda do amigo toledo e deste forum, que eu agradeço de coraçao
# include 'minigui.ch'
static v_cor
Func Main()
local cButton,k
public sit
Private aApto:={}
public _verde_1 := {094,255,094}
public _branco := {255,255,255}
public _preto := {000,000,000}
public _vermelho := {190,000,000}
public _amarelo := {255,255,128}
use aptos
If !File("aptos1.ntx")
Index on strzero(val(apt),3) to aptos1
Endif
Set index to aptos1
set delete on
* aptos->(dbgotop())
* nTotReg:=LastRec()
define window Form_1 ;
at 0,0;
width 1024;
height 768;
main;
on init janela();
backcolor {0,0,0}
end window
Form_1.Activate
*******************************************************************************
func janela()
*use aptos
*-set delete on
goto top
totap:= LastRec() - 1
lin := 10
for i= 1 to 10
col := 0
do while (!EOF())
if (col >488)
exit
endif
* NESTE PEQUENO EXEMPLO PODEREMOS JA ANEXAR AS CORES DE ACORDO COM A SITUAÇAO DA DBF ORIGINAL
do case
case sit =="LI"
v_cor:=_verde_1
case sit== "OC"
v_cor:=_vermelho
case sit == "CL" .or. sit =="AR"
v_cor:=_branco
case sit== "IT"
v_cor:=_preto
case sit== "EC"
v_cor:=_amarelo
otherwise
v_cor:=_amarelo
end case
cButton := ltrim(apt)
@ lin, col label &cButton ;
parent Form_1;
width 40;
height 20;
value ltrim(apt) ;
tooltip 'A Suite Esta '+cButton + sit;
border;
font 'verdana' size 8 bold;
action {|| clicou(this.caption)};
backcolor v_cor; // NAO ENTENDI POR QUE NAO ESTA MUDANDO A COR DA LABEL
centeralign
* msginfo(v_cor) // COLOQUEI PARA VER SE ESTA PASSANDO A COR PRA O BACKCOLOR
AADD(aApto,{ltrim(apt),sit})
skip
col += 50
end do
if (EOF())
exit
endif
lin += 40
next i
Return
return Nil
**********************************
Func Clicou(cCap)
nAp:=ASCAN(aApto,{|e| e[1]==cCap})
If aApto[nAp,2] =="LI"
If msgyesno('deseja mudar a situaçao?','Apto: '+cCap+' Sit: '+aApto[nAp,2])
Go Top
Seek StrZero(Val(cCap),3)
Replace sit with "OC"
aApto[nAp,2] := "OC"
Endif
Endif
ai vem as duvidas eu acho que as realmente finais o que eu pude adiantar usando os codigos clipper / harbour fiz sem dificuldades mais quando mistura com a minigui ai vem a minha dificuldade
1º assim que mudar a sit o backcolor mudar tambem mudando a cor dele
isso é tudo que preciso pra dar continuidade ao resto do codigo
a funçao clicou ela esta perfeita com ela consigo ir pra outras funçoes mais nao consigo mudar a cor do backcolor para que o operador indentifique a nova situaçao
A arte de programar é simplesmente fazer seus pensamentos serem interpretados por uma maquina :) clipper 5.3 /harbour/minigui