Zitat:

---

Original von Blackbird:
@inq:

Das ist bei BB2 der Fall, bei Ab2/3 werden die nicht benötigten/unbenutzten Befehle per Functionsoptimizer "wegoptimiert"
--
regards
Blackbird

---

Zitat:

---

Original von AGSzabo:
@Der_Wanderer:

Danke. Ja, das hilft. Lockst Du den Screen wenn die Engine erzeugt wird, oder wenn Du das erste Fenster darauf öffnest? Ich brauche screenspezifische Daten noch bevor ich das Fenster öffne, zB Font/Größe und Fenster-Rahmenmaße/Sizegadgetmaße.

Und wann soll ich die Pens für den Screen obtainen und die Images für den Screen laden? Beim ersten Fenster öffnen oder wenn mein Screen geöffnet wird? Letzteres ist schwieriger, wenn es der WB Screen sein soll. Woher kann mein System wissen ob jemand die Workbench oder einen Publicscreen schließen oder neu öffnen will wegen Prefschanges zB?

---

code:

---

Function.l image_LoadViaDT{image.l,filename.s,imgnum.l}
DEFTYPE.BitMapHeader *bmhdp
DEFTYPE.BitMap *bmap
DEFTYPE.pdtBlitPixelArray DTM
succ.l = False
If imgnum<0 Then imgnum=0
tag5.tag5ti_Tag = #PDTA_DestMode, #PMODE_V43, #DTA_SourceType, #DTST_FILE, #DTA_GroupID, #GID_PICTURE, #PDTA_Remap, False,#PDTA_WhichPicture,imgnum,#TAG_DONE,0
*DTPic._Object = NewDTObjectA_ (&filename.s,tag5)
If *DTPic
  tag5.tag5ti_Tag = #PDTA_BitMapHeader,&*bmhdp,#TAG_DONE,0
  GetDTAttrsA_ *DTPic,tag5
  If image_Create{image,*bmhdpbmh_Width,*bmhdpbmh_Height}
    If image_Lock{image}

      ; try to get as ARGB immediately, good datatpyes support this, but not all!
      ;If *bmhdpbmh_Depth>8 ; dont even try if depth <=8
        DTMMethodID            = #PDTM_READPIXELARRAY
        DTMpbpa_PixelData      = raw_ptr          ; /* The pixel data to transfer to/from */
        DTMpbpa_PixelFormat    = #PBPAFMT_ARGB     ; /* Format of the pixel data (see "Pixel Formats" below) */
        DTMpbpa_PixelArrayMod  = bpr              ; /* Number of bytes per row */
        DTMpbpa_Left           = 0                 ; /* Left edge of the rectangle to transfer pixels to/from */
        DTMpbpa_Top            = 0                 ; /* Top edge of the rectangle to transfer pixels to/from */
        DTMpbpa_Width          = *bmhdpbmh_Width  ; /* Width of the rectangle to transfer pixels to/from */
        DTMpbpa_Height         = *bmhdpbmh_Height
        If DoMethodA (*DTPic,&DTM) Then succ = True <=== CRASH!!!
      ;End If
  ...

---