code:

---

void DisposeImageContainer(struct NewImage *ni) {
	if (ni) {
		if (ni->data) {
			FreePooled(pool, ni->data, ni->w*ni->h*4);
		}
		FreePooled(pool, ni, sizeof(struct NewImage));
	}
}


void DrawAlphaImageToRP(struct RastPort *rp, struct NewImage *ni, UWORD x, UWORD y) {
	struct	Icons i;
	if (ni) {
		if (ni->data) {
			i.w = ni->w;
			i.h = ni->h;
			i.map0 = ni->data;
			DrawRGBAImage(rp, &i, x, y, FALSE, 0, 0);
		}
	}
}

void DrawImageToRP(struct RastPort *rp, struct NewImage *ni, UWORD x, UWORD y) {
	if (ni) {
		if (ni->data) WritePixelArray(ni->data, 0, 0, ni->w*4, rp, x, y, ni->w, ni->h, RECTFMT_ARGB);
	}
}

struct NewImage *NewImageContainer(UWORD w, UWORD h) {
	struct	NewImage *ni;
	ni = AllocPooled(pool, sizeof(struct NewImage));
	if (ni) {
		ni->w = w;
		ni->h = h;
		ni->data = AllocPooled(pool, w*h*4);
		if (ni->data == NULL) {
			FreePooled(pool, ni, sizeof(struct NewImage));
			ni = NULL;
		}
	}
	return ni;
}

void pushIcon(struct RastPort *rp) {
	struct	BitMapHeader   *bmhd = NULL;
	struct	FrameInfo 	   fri = {NULL};
	struct	NewImage	   *ni;
	struct	pdtBlitPixelArray pa;
            Object		   *icon;
	UWORD		   w, h;

	icon = NewDTObject("images:pointer",   DTA_SourceType,   DTST_FILE,
		DTA_GroupID,      GID_PICTURE,
		PDTA_Remap,	FALSE,
		PDTA_DestMode,    PMODE_V43,
		TAG_DONE);

	if (icon) {
		get(icon, PDTA_BitMapHeader, &bmhd);
		if(bmhd) {
			w = bmhd->bmh_Width;
			h = bmhd->bmh_Height;
			ni = NewImageContainer(w, h);
			if (ni) {
				pa.MethodID = PDTM_READPIXELARRAY;
				pa.pbpa_PixelData = (APTR) ni->data;
				pa.pbpa_PixelFormat = PBPAFMT_RGBA;
				pa.pbpa_PixelArrayMod = w*4;
				pa.pbpa_Left = 0;
				pa.pbpa_Top = 0;
				pa.pbpa_Width = w;
				pa.pbpa_Height = h;
				DoMethodA(icon, (Msg) &pa);
				DrawAlphaImageToRP(rp, ni, 0, 0);
			}
		}
		DisposeDTObject(icon);
	}
}

---

Zitat:

---

Wenn es auf 3.1 problemlos funktioniert, warum benutzt du dann 3.9-Erweiterungen ?

---

Zitat:

---

Muß der neue Prozess eine größere Priorität als Main haben?

---

Zitat:

---

Das sich Intuition-Fenster einen MsgPort teilen können, weißt Du? Eventuell kann Dir auch SIGB_SINGLE helfen.

---

code:

---

__saveds void PostFunction() {

    ...
    ...
    ...
   DEBUG_OUT_STRING("        PF: Start"); LF();
   TimePort = CreateMsgPort();
    ...
    ...
    ...
    ...
}


void RemoveMsgPoster() {
   if(PostTask && PosterCreated) SendSetupMsg(SETUP_EXIT, 0);

   while(FindTask(PostName)) Delay(10);

   if (SetupReplyPort) DeleteMsgPort(SetupReplyPort);
   if (PostPort) DeleteMsgPort(PostPort);
   PostTask = NULL;
   SetupReplyPort = NULL;
   PostPort = NULL;
   PosterCreated = FALSE;
}

BOOL CreateMsgPoster() {

   BOOL  ok;

   PostSignal = -1;
   PostStart =- -1;
   PostPort = NULL;
   SetupReplyPort = NULL;
   PosterCreated  =	 FALSE;
   ok = FALSE;
   SetupReplyPort = CreateMsgPort();
   if (SetupReplyPort) {
      DEBUG_OUT_STRING("CMP: SetupReplyPort created"); LF();
      PostStart = SetupReplyPort->mp_SigBit;
   	  PostPort = CreateMsgPort();
          if (PostPort) {
            DEBUG_OUT_STRING("CMP: PostPort"); LF();
      	    PostSignal = PostPort->mp_SigBit;
   	    MainTask = FindTask(NULL);
            DEBUG_OUT_STRING("CMP: MainTask"); LF();
            PostTask = (struct Task *) CreateNewProcTags(NP_Entry, (ULONG) PostFunction, NP_StackSize, 65536, NP_Name, (ULONG) PostName, NP_Priority, 1, TAG_DONE);
         if (PostTask) {
            DEBUG_OUT_STRING("CMP: PostTask"); LF();
            //DEBUG_OUT_STRING("CMP: wait until MP is launched"); LF();
            Wait(1 << PostStart);
            DEBUG_OUT_STRING("CMP: wait"); LF();
         	ok = PosterCreated;
         } else {
            DEBUG_OUT_STRING("CMP: PostTask failed"); LF();
         }
      }
   }
   return	ok;
}

---

code:

---

- displays unselected and selected images,
        - drag & drop
        - displays filesystems
        - small arexx port
        - keyboard support (since 0.52)
        - texture support (since 0.56)
        - transparent backgrounds (since 0.58)
        - direct commodities support (since 0.57)
        - iconobject.library support (since 0.59)
        - popupmenu support (since 0.59)
        - added filesystem action commands (copy/move/delete).
        - added external module support (since 0.59)
        - added a LaunchBar (TaskBar) (in 0.60)
        - display actions on the Taskbar (since 0.60)
        - antialiased TrueType font support
        - hotkey support (since 0.62)
        - support for irregular docks (Shapes)

---

Zitat:

---

Ich habe doch schon geschrieben, daß du nur so viele Pens bekommst, wie du im Requester einstellst. Und wenn du nur vier Farben einstellen kannst, kannst du auch nur vier Pens benutzen.

---

Zitat:

---

Da aber TurboText nur die ersten vier benutzt, kannst du doch nach belieben die restliche Palette verändern, ohne Pens zu allokieren.

---

Zitat:

---

Oder du benutzt ModePro, um die Bildschirmtiefe zu erzwingen.

Oder du schmeißt ReqTools raus, das ist ja offensichtlich nicht an RTG angepaßt.

---

Zitat:

---

Ich verstehe nicht, warum du es dir so kompliziert machst.

---

Zitat:

---

Kannst du mal den Programmabschnitt hier abdrucken ? Ich kann mir das nicht vorstellen. Ich habe PicShow fast nur unter WinUAE entwickelt und da gab es nicht Müll.

---

Zitat:

---

Außerdem, solange du es richtig machst, darfst du alles benutzen. Wenn WinUAE damit ein Problem hat, dann solltest du das an den Autor von WinUAE melden, damit es korrigiert wird.

---

Zitat:

---

Du solltest nie von etwas ausgehen, das irgenwie erscheint, sondern immer nur von dem, was in den RKRM und den Autodocs steht. Vermutlich

---

Zitat:

---

allokiert TurboText alle 256 Pens. Oder es setzt seine eigene ColorMap. Vielleicht gibt es auch noch andere Möglichkeiten, anderen den Zugriff auf die Palette zu verwehren.

---

Zitat:

---

Benutzt du vielleicht FullPalette ? Dann darfst du dich nicht wundern, daß du nie einen Pen allokieren kannst, denn FullPalette blockiert ja alle.

---

Zitat:

---

Nein, das kann nicht sein. Bei einem SMARTREFRESH-Window wird der gesamte Bildschirminhalt automatisch aktualisiert, mit der gesamten Bildschirmtiefe.

---

Zitat:

---

Ich fange langsam an, mich zu fragen, was du da eigentlich machst. Wenn du in fremde Fenster reinmalst, ist es klar, daß das Probleme gibt. Du solltest immer nur dein eigenes Fenster benutzen.

---

code:

---

list >skript ALL pat="#?.png" LFORMAT "rename *"%p%n*" to *"%p%m.info*""

---