Tagarray

[Delphi.Narium]

Kannst Du uns bitte mal die Definition der Arrays zeigen und eventuell ein paar Beispielwerte? Momentan ist mir das noch zu abstrakt um eine genaue Vorstellung davon zu haben, was genau gemacht werden soll.

[EWeiss]

Zitat von Delphi.Narium:

Kannst Du uns bitte mal die Definition der Arrays zeigen und eventuell ein paar Beispielwerte? Momentan ist mir das noch zu abstrakt um eine genaue Vorstellung davon zu haben, was genau gemacht werden soll.

Delphi-Quellcode:

zorder: Array[1..10]
faceorder: Array[1..10]

Das Array zorder ist gefüllt mit den wert der Positionen der einzelnen Icons.

Delphi-Quellcode:

procedure DrawCarousel(WinHandle: HWND);
var
  K: Integer;
  Angle: single;
  rc: TRect;
  fl: single;
  speed: Integer;
  xcenter, ycenter, zcenter: Single;
  radius: Single;
  anglePi: Single;
  scale, z: Single;
  x, y: Single;
begin
    if bAnimate then
    begin
       y      := trbY.GetTrackValue(trbY.Handle);
       speed  := trbSpeed.GetTrackValue(trbSpeed.Handle) div 4;
       fl     := trbFocallength.GetTrackValue(trbFocallength.Handle) / 100;

       if fl < 0.02 then
         fl := 0.001;
       PiDiv180 := 1.74532925199433E-2;

       GetClientRect(HSprCtrl, rc);
       xcenter  :=(rc.Right - 128) / 2;
       ycenter  :=(rc.Bottom - 128) / 2;
       zcenter  := ycenter / 2;
       radius   := rc.Right / 3.675;

       for K := ID_MAX_SPRITE downto 1 do
       begin
         Angle := gSpriteData[K].rAngle;
         anglePi := Angle * PiDiv180;
         z := sin(anglePi) * radius + zcenter;
         scale := fl / (fl + z);
         x := cos(anglePi) * radius;
         gSpriteData[K].xPos := round(x * scale + xcenter);
         gSpriteData[K].yPos := round(y * scale + ycenter - y);

         zorder[K] := round(Angle - 90);
         if zorder[K] > 180 then
           zorder[K] := 360 - zorder[K];

         faceorder[K] := K;

         if bMoveToLeft then
         begin
           Angle := Angle - speed;
           if Angle < 1 then
             Angle := 360
         end else
         begin
           Angle := Angle + speed;
           if Angle > 359 then
             Angle := Angle - 360;
         end;
         gSpriteData[K].rAngle := round(Angle);

         // Skalierungsfaktor berechnen
         if Check3Ddepth.GetCheckButtonStatus(Check3Ddepth.Handle) then
           gSprCtrl.GD_SetObjectScale(gSpriteData[K].ID, (ABS(zorder[K]) MOD 182) * 0.0027777 + 0.5)
         else
         gSprCtrl.GD_SetObjectScale(gSpriteData[K].ID, 1);

         // Alpha Kanal unschalten
         if CheckOpacity.GetCheckButtonStatus(CheckOpacity.Handle) and (fl > 0.999) then
               gSprCtrl.GD_SetObjectAlpha(gSpriteData[K].ID, round(MIN(100 * scale, 255)), false)
         else
         gSprCtrl.GD_SetObjectAlpha(gSpriteData[K].ID, 255, false);

         gSprCtrl.GD_SetObjectXY(gSpriteData[K].ID, gSpriteData[K].xPos, gSpriteData[K].yPos);

         if CheckSelfRotation.GetCheckButtonStatus(CheckSelfRotation.Handle) then
           gSprCtrl.GD_SetObjectAngle(gSpriteData[K].ID, round(gSpriteData[K].rAngle))
         else
         gSprCtrl.GD_SetObjectAngle(gSpriteData[K].ID, 0);
       end;

       // müsste hier das Array sortieren ...
       // ARRAY SORT zorder(), TAGARRAY faceorder() 

       // Sprite ZOrder setzen
       K := faceorder[1];
       if bMoveToLeft then
       begin
         inc(K);
         if K > ID_MAX_SPRITE then
           K := 1;
       end;

       gSprCtrl.GD_SetObjectZorder(gSpriteData[K].ID, GD_ORDER_BOTTOM);
       gSprCtrl.GD_SetObjectZorder(gSpriteData[faceorder[ID_MAX_SPRITE]].ID, GD_ORDER_TOP);

       if CheckMarquee.GetCheckButtonStatus(CheckMarquee.Handle) then
         DrawMarquee(rc.Right);

       gSprCtrl.GI_UpdateWindow(HSprCtrl, false);
    end;
end;

Wie man hier sehen kann ist das total durcheinander.

gruss

[p80286]

Ich würde statt eines Arrays die gute alte doppel verpointerte Liste nehmen.
z.B.

Delphi-Quellcode:

type
  pMyrecord=^tMyrecord; 
  tMyrecord : record
                next,last : pMyrecord;
                Name : string;
                Wert : integer;
              end;

var
  firstrec,
  lastrec,
  actrec : pMyrecord; 

...
  if actrecord^.Name>actrecord^.nextrecord^.Name then Tausche(actrecord);

Ist nur ein grobes Beispiel, da fehlt z.B. die Prüfung auf NIL.

Oder gleich eine (Object)Liste, die bekommt eine Sortierfunktion oder 2 oder 3... und fertig ist die Laube.

Gruß
K-H

Bitte nicht schlagen, ich bin extrem konservativ.

[EWeiss]

Zitat von p80286:

Ich würde statt eines Arrays die gute alte doppel verpointerte Liste nehmen.
Oder gleich eine (Object)Liste, die bekommt eine Sortierfunktion oder 2 oder 3... und fertig ist die Laube.

Gruß
K-H

Bitte nicht schlagen, ich bin extrem konservativ.

Entschuldige weis jetzt nicht was du meinst.

gruss

[p80286]

Na Pointerlisten sind doch aus der Hexenküche der alten Säcke!

Gruß
K-H

[Delphi.Narium]

Keine Ahnung, ob ich mich jetzt blamiere

Nur mal so 'ne hingedaddelte Idee (ungetestet, nicht kompiliert, nur so mal eben hingehauen )

Delphi-Quellcode:

procedure BubbleSort(var zorder: array of Integer; var faceorder: array of Integer);
var
  i : Integer;
  tempZ : Integer;
  tempFace : Integer;
  done : Boolean;
begin
  repeat
    done := True;
    for i := Low(zorder) to High(zorder) - 1 do
    begin
      if zorder[i] > zorder[i + 1] then
      begin
        tempZ := zorder[i];
        tempFace := faceorder[i];
        zorder[i] := zorder[i + 1];
        faceorder[i] := faceorder[i + 1];
        zorder[i + 1] := tempZ;
        faceorder[i + 1] := tempFace;
        done := False;
      end;
    end;
  until done;
end;

[EWeiss]

Danke

Daran habe ich auch schon gedacht wusste aber nicht nach welchen Kriterien ich sortieren soll.
Fehler gibt es keinen nur sichtbare die ZOrder ist immer noch durcheinander.
Hmmm.. vielleicht liegt es an meiner DLL muss das nochmal gegen prüfen.

gruss

[EWeiss]

Irgendwie ist die Sortierung noch nicht in Ordnung.
Mit dem Bubblesort geht es nicht auch nicht nach meiner Änderung.

Delphi-Quellcode:

procedure BubbleSort(var zorder: array of Integer; var faceorder: array of Integer);
var
   i : Integer;
   tempZ : Integer;
   tempFace : Integer;
   done : Boolean;
begin
   repeat
     done := True;
     for i := 10 downto 1 do 
     begin
       if zorder[i] > zorder[i + 1] then
       begin
         tempZ := zorder[i];
         tempFace := faceorder[i];
         zorder[i] := zorder[i + 1];
         faceorder[i] := faceorder[i + 1];
         zorder[i + 1] := tempZ;
         faceorder[i + 1] := tempFace;
         done := False;
       end;
     end;
   until done;
end;

Es drehen sich alle im Kreis aber der Visuelle Effekt ist der einer Schlange.
Das letzte Icon ist das grüne Index 10 die anderen setzen sich jetzt alle dahinter.

Bubblesort macht eigentlich nichts, wenn ich sie nicht verwende habe ich das gleiche verhalten.

gruss

[p80286]

So auf den ersten Blick scheint das grundsätzlich in Ordnung zu sein. Aber
for i := 10 downto 1 do ist nicht so optimal

for i := length(zorder)-1 downto 0 do wäre wohl besser (oder das high/low Gespann).

Und wenn sich nichts tut, liegen die Daten vllt. schon sortiert vor?

Gruß
K-H

P.S.
Schöne Feiertage wünsch ich Dir.