Czesc
jak w Blitz-ie dobrac sie do "FirstScreen" (Intuition Base), czyli tego:


Ja nie mam pojecia - szukam po wszelakich dostepnych listingach, przegladam dokumentacje ale dalej stoje w miejscu.

Potrzebuje liste wszystkich otwartych ekranow i zakladam ze tedy droga (potem uzyc musze tylko Screen.NextScreen)

By miec ekrany publiczne to moge zrobic tak:

Dim scr$(500)              
*scrs.List=LockPubScreenList_ ()
  *mynode.Node=*scrs\lh_Head 

  count.w=0
  While *mynode\ln_Succ
    count+1
    scr$(count)=Peek$(*mynode\ln_Name)
    *mynode=*mynode\ln_Succ
  Wend

UnlockPubScreenList_

... ale to tylko erany publiczne, niestety.
A ja potrzebuje wszystkie

Ostatnia aktualizacja: 13.01.2018 21:14:42 przez peceha

• Odpowiedz

@peceha, post #1

*ibase.IntuitionBase = IntuitionBase
*fs.Screen = *ibase\FirstScreen

• Odpowiedz

@Ocelot, post #2

• Odpowiedz

@Ocelot, post #2

@Ocelot
Dzieki - wiedzialem, ze gdzies dzwonia ... hehe
Mialem cos takiego:

DEFTYPE.library  *intuiBase
....
*intuiBase=OpenLibrary_("intuition.library",36)
...
*fs._Screen=*intuiBase\FirstScreen
...

(uzywam "amigalibsII.res" i chyba dlatego mam musze deklarowac jako "_Screen" a nie "Screen")
i myslalem ze tak oto dostane IntuitionBase.. niestety ciagle wywalalo mi blad: "Offset not found"
A tu, no prosze, okazalo sie ze jest analogicznie jak z Exec:

*exec.ExecBase=Peek.l(4)"

Dzieki wielkie !!

Teraz jeszce jakbys mogl napisac co dalej tzn przegladam te pliki typu "screens.h" i tam widze ze tytul okna jest jako UBYTE *Title czyli jak mam go odczytac? I czy ta gwiazdka przed "Title" oznacza ze to jest wskaznik i bede musial uzyc "Poke"?

"Odrobinke" sie to rozni od Hollywood no i niestety zaginalem w akcji, hehe.


@Hexmage
Pamietam o tym doskonale wczoraj przejrzalem tyle stron i przeczytalem milion listingow (niestety C) ze juz mi to zostalo w glowie by uzyc LockIBase(). Ale Dzieki za przypomnienie.


Ostatnia aktualizacja: 14.01.2018 09:42:09 przez peceha

• Odpowiedz

@peceha, post #4

tytul.s=Peek$(*fs\Title)

• Odpowiedz

@Ocelot, post #5

• Odpowiedz

@peceha, post #1

• Odpowiedz

@peceha, post #1

NEWTYPE.lista
 a.w
 b.s
END NEWTYPE

Dim List test.lista(5)

If AddItem(test()) Then test()a=56
....

• Odpowiedz

@peceha, post #8

If AddItem(test()) Then test()\a=56

• Odpowiedz

@peceha, post #9

c=0
ResetList lista()
While NextItem(lista())
  c+1
Wend

random=Rnd(c)

c=0
ResetList lista()
While NextItem(lista())
  If c=random then Pop While
  c+1
Wend

mojaUpragnionaDana = lista()   ;skoro wskaznik listy pokazuje na zmienna na pozycji "random" to mam nadzieje ze ten zapis jest poprawny ?

• Odpowiedz

@peceha, post #10

NEWTYPE.mojTyp
 a.b
 b
 c
End NEWTYPE
Dim List lista.mojTyp(100)
If AddItem(lista()) Then lista()\a=1

• Odpowiedz

@peceha, post #11

• Odpowiedz

@peceha, post #12

• Odpowiedz

@peceha, post #13

BitMaptoWindow

WBlit

• Odpowiedz

@peceha, post #14

Byc moze to pytanie nie koniecznie do tych znajacych Blitz-a.
Jakie by nie bylo jest to dla mnie czarna magia (na razie) hehe.

jak zdobyc informacje pokazana na obrazku? (chodzi o "znacznik" ekranu)


DODALEM
mam juz "pointer" do struktury interesujacego mnie ekranu tylko nie wiem co dalej.


Ostatnia aktualizacja: 30.01.2018 15:55:29 przez peceha

• Odpowiedz

@peceha, post #15

typ = screen->Flags & SCREENTYPE

if (typ == PUBLICSCREEN) 
    /* Ekran publiczny */; 
else if (typ == CUSTOMSCREEN) 
    /* Ekran prywatny */;

• Odpowiedz

@Hexmage960, post #16

• Odpowiedz

@Hexmage960, post #16

Czy ja dobrze kombinuje?

skoro:

typ = screen->Flags & SCREENTYPE

SCREENTYPE (patrzac na moj obrazek z postu wyzej) to %1111 (bo ma wartosc $F)
ekran publiczny to %0010 (wartosc $2)
czyli zmienna "typ" powinna miec wartosc %0010, tak?

hmmm, u mnie WB ma %00...
WB - %00
edytor blitza ("file - ") %10 - nie jest publiczny
MultiView - %11 - gwarantuje ze nie jest publiczny
paleta WB - %00 - nie wiem


Byc moze cos popieprzylem bo kombinuje jak kon pod gore

Ostatnia aktualizacja: 30.01.2018 16:50:40 przez peceha

• Odpowiedz

@peceha, post #18

WBToScreen 0
DEFTYPE .Screen *scr
*scr=Peek.l(Addr Screen(0))
NPrint Bin$(*scr\Flags)

• Odpowiedz

@peceha, post #18

• Odpowiedz

@cholok, post #19

wybaczcie ze obrazek ale program mam na Amidze wiec:

Tak wlasnie mam to wtej chwili zrobione. Te cyfry po lewej to ostatnie 4 bity zamienione na dziesietny.

Hexmage podpowiedzial duzo swoim postem (operacja &) i dlatego wogole ruszylem z miejsca.

Ostatnia aktualizacja: 30.01.2018 17:21:50 przez peceha

• Odpowiedz

@peceha, post #21

Nie znam się na Blitzu, ale myślę, że chodzi o znak liczby.
P.S. Chyba nie mam racji, sorki.

Ostatnia aktualizacja: 30.01.2018 17:31:52 przez Hexmage960

• Odpowiedz

@peceha, post #21

• Odpowiedz

@cholok, post #23

Hehe, no tak - dzieki !!! - teraz dziala po wywaleniu "Peek"

• Odpowiedz

@peceha, post #24

• Odpowiedz

@peceha, post #24

TextExtent_

costam.l=TextExtent_(*win\RPort,"text",4,result.TextExtent)

• Odpowiedz

@peceha, post #26

struct TextExtent te;
TextExtent(win->rport,"text",4,&te);
printf("wynik w pixelach=%d\n",te.te_Width);

• Odpowiedz

@forge, post #27

• Odpowiedz

@peceha, post #28

• Odpowiedz

@Hexmage960, post #29

• Odpowiedz