Changeset 18 for trunk/lingosource/castlib3/Alex_HierMenuParent.ls

Timestamp:

10/24/08 12:12:09 (4 years ago)

Author:

alex

Message:

updated movie to incorporate new version of library scripts

File:

• trunk/lingosource/castlib3/Alex_HierMenuParent.ls (modified) (10 diffs)

trunk/lingosource/castlib3/Alex_HierMenuParent.ls

@@ -1 @@
--- Hierarchisches Menu by Alex da Franca ©2001 da.Franca@online.de
+-- Hierarchisches Menu by Alex da Franca c2001 da.Franca@online.de
 ------------------------------------------------------------------
 
@@ -212 +212 @@
   
   pMyScrollBarScript = mGetXScript(#SliderScrollbarMenuParent)
-  if not voidP(pMyScrollBarScript) then pMyScrollBarScript = new(pMyScrollBarScript)
+  if not listP(pMyScrollBarScript) then
+    if ilk(pMyScrollBarScript) = #instance then pMyScrollBarScript = pMyScrollBarScript.script
+    pMyScrollBarScript = new(pMyScrollBarScript)
+  else
+    pMyScrollBarScript = 0
+  end if
   
   pShadowScript = mGetXScript(#DropShadowPScript)
-  if not voidP(pShadowScript) then pShadowScript = new(pShadowScript)
+  if not listP(pShadowScript) then
+    if ilk(pShadowScript) = #instance then pShadowScript = pShadowScript.script
+    pShadowScript = new(pShadowScript)
+  else
+    pShadowScript = 0
+  end if
   
   return me
@@ -1606 +1616 @@
   
   -- properties dieses behviors global speichern, damit beim naechsten beginsprite dieses behaviors der alte zustand wieder hergestellt wird (z.B. bei einem sprung in ein anderes movie)
+  if objectP(pMenuProps) then
   if pMenuProps.getaprop(#saveProps) then
     global gSicherprop
@@ -1617 +1628 @@
   end if
   --  (the actorlist).deleteOne(me)
+  end if
   
   -- aufraeumen
@@ -1891 +1903 @@
       if pMyScrollBarScript.mGetEnabled() <> 1 then
         mUpdateScrollBarRect me
-        pMyScrollBarScript.SetEnabled(1)
+      pMyScrollBarScript.SetEnabled(1)
       end if
       
@@ -1972 +1984 @@
     if ilk(pShadowScript) <> #instance then
       pShadowScript = mGetXScript(#DropShadowPScript)
-      if not voidP(pShadowScript) then pShadowScript = new(pShadowScript)
+      if not listP(pShadowScript) then
+        if ilk(pShadowScript) = #instance then pShadowScript = pShadowScript.script
+        pShadowScript = new(pShadowScript)
+      else
+        pShadowScript = 0
+      end if
     end if
     
@@ -2121 +2138 @@
       
       if ilk(hgfarbe) = #color then
-        ttimg.fill(ttimg.rect, hgfarbe)
+      ttimg.fill(ttimg.rect, hgfarbe)
       else if hgfarbe = #image then
         ttimg.copypixels(hgfarbe, ttimg.rect, hgfarbe.rect)
@@ -3171 +3188 @@
       dertimer = the ticks
       --    dieAnimTime = min((abs(pAnimStart) * max(2,(15 / abs(pAnimStart)))), 40)
-      dieAnimTime = min((abs(pAnimStart) * 5), 40) -- animationszeit abhaengig von der hoehe des stuecks, das animiert wird,, jedoch maximal 40 ms
+      dieAnimTime = min((abs(pAnimStart) * 5), 25) -- animationszeit abhaengig von der hoehe des stuecks, das animiert wird,, jedoch maximal 40 ms
       diebeschl = 12.0
       
@@ -3501 +3518 @@
       ---------------------------------
       
-      if usealternateColor then
-        if n mod 2 then
-          derlocVHL = pZeilenhoehe * (n - pScrollOffset)
-          tr = rect(0, (derlocVHL + obenoffset + 1), (pBuffImg.rect.right - 1), (derlocV + 1 + obenoffset - pMenuProps.getaprop(#myLineWidth)))
-          pBuffImg.fill(tr, alternateColor)
-          if usealph then
-            pAlphaImage.fill(tr, rgb(0,0,0))
-          end if
-          treeviewdata.setaprop(#alternatecolor, 1)
-        else
-          treeviewdata.setaprop(#alternatecolor, 0)
-        end if
-      end if
-      
+    if usealternateColor then
+      if n mod 2 then
+        derlocVHL = pZeilenhoehe * (n - pScrollOffset)
+        tr = rect(0, (derlocVHL + obenoffset + 1), (pBuffImg.rect.right - 1), (derlocV + 1 + obenoffset - pMenuProps.getaprop(#myLineWidth)))
+        pBuffImg.fill(tr, alternateColor)
+        if usealph then
+          pAlphaImage.fill(tr, rgb(0,0,0))
+        end if
+        treeviewdata.setaprop(#alternatecolor, 1)
+      else
+        treeviewdata.setaprop(#alternatecolor, 0)
+      end if
+    end if
+    
     end if
     
@@ -3733 +3750 @@
     if ilk(pStrichel) = #image then
       
-      -- strichellinie:
-      --    strichzahl = templiste.stelleH - 1
-      strichzahl = stelleH - 1
-      
-      oben = derlocV + obenoffset - pZeilenhoehe
-      unten = oben + pStrichel.rect.height
-      links = STRlinks
-      
-      if ilk(pAlphaImage) = #image then
-        
-        repeat with z = 1 to strichzahl
-          pBuffImg.copyPixels(pStrichel, rect(links, oben, (links + 1), unten), pStrichel.rect)
-          pAlphaImage.copyPixels(pStrichelAlpha, rect(links, oben, (links + 1), unten), pStrichel.rect, [#ink:#darkest])
-          links = links + tabAbstand
-        end repeat
-        
-      else
-        repeat with z = 1 to strichzahl
-          pBuffImg.copyPixels(pStrichel, rect(links, oben, (links + 1), unten), pStrichel.rect)
-          links = links + tabAbstand
-        end repeat
-      end if
-      
+    -- strichellinie:
+    --    strichzahl = templiste.stelleH - 1
+    strichzahl = stelleH - 1
+    
+    oben = derlocV + obenoffset - pZeilenhoehe
+    unten = oben + pStrichel.rect.height
+    links = STRlinks
+    
+    if ilk(pAlphaImage) = #image then
+      
+      repeat with z = 1 to strichzahl
+        pBuffImg.copyPixels(pStrichel, rect(links, oben, (links + 1), unten), pStrichel.rect)
+        pAlphaImage.copyPixels(pStrichelAlpha, rect(links, oben, (links + 1), unten), pStrichel.rect, [#ink:#darkest])
+        links = links + tabAbstand
+      end repeat
+      
+    else
+      repeat with z = 1 to strichzahl
+        pBuffImg.copyPixels(pStrichel, rect(links, oben, (links + 1), unten), pStrichel.rect)
+        links = links + tabAbstand
+      end repeat
+    end if
+    
     end if