Übersetzung Class MagneticWindow

[EWeiss]

Nur am Rande!

Nuja da sind wir wieder bei den leidigen Problem Delphi via Vb!
Von Delphi hat noch niemand gesprochen als die von dir so verspottete Sprache (Basic)-VB
schon aus den gröbsten raus war.
Bill Gates hat nicht umsonst solange an VB festgehalten oder wurde er mit Delphi reich?
Frag ihn mal wie es war als er mit Hilfe von Basic das erste Betriebssystem in seiner
Garage entwickelt hat.
Gehe mal davon aus das er dann auch zu denjenigen gehört welche von deiner unheilbar
chronischen Allergie betroffen sind. :?

Will damit nur sagen Basic war der anfang.. da kann sich Delphi winden wie es will!
Ich frage mich nur woher kommt die scriptsprache welche von Delphi verwendet wird ?
Ohhhh hat schon seinen grund das sie sich so ähnlich sind.

Aber trotzdem nur weil die Leute hier zuerst mit Delphi angefangen haben
muss ich noch lange keine Allergie gegen diese haben.
Mit meinen 48 beurteile ich die Menschen nach anderen Kriterien !
Und nicht nach einer Sprache die sie irgendwann benutzt haben oder noch benutzen.

gruß

[Union]

[OT]Es ist doch schön dass nicht jede Programmiersprache komplett unterschiedlich ist. BTW hat Bill Gates kein Betriebssystem geschrieben mit Basic. Er hat eins "weiterverkauft". Und Pascal gründet sich auf ALGOL und nicht auf Basic.[/OT]
Und kommen wir wieder zu etwas ganz anderem, nämlich Deiner TMagnetic-Klasse ;)

[Muetze1]

Noch ein Hinweis zu der Klasse auf Seite 1 auf den noch niemand hingewiesen hat: Der Destructor "Destroy" wird mit Destructor und nicht Constructor gekennzeichnet. Auch muss beim Destructor ein "Override;" hinter der Deklaration, da der Destructor als virtuell deklariert ist in TObject.

[EWeiss]

Zitat:

Zitat von Muetze1

Noch ein Hinweis zu der Klasse auf Seite 1 auf den noch niemand hingewiesen hat: Der Destructor "Destroy" wird mit Destructor und nicht Constructor gekennzeichnet. Auch muss beim Destructor ein "Override;" hinter der Deklaration, da der Destructor als virtuell deklariert ist in TObject.

Ich habe etwas gelernt bei den ganzen gefriemel :-D
Das von dir hier angesprochene Problem habe ich schon herausgefunden ;)

Trotzdem Danke.

[EWeiss]

Zitat:

Zitat von Union

[OT]Es ist doch schön dass nicht jede Programmiersprache komplett unterschiedlich ist. BTW hat Bill Gates kein Betriebssystem geschrieben mit Basic. Er hat eins "weiterverkauft". Und Pascal gründet sich auf ALGOL und nicht auf Basic.[/OT]
Und kommen wir wieder zu etwas ganz anderem, nämlich Deiner TMagnetic-Klasse ;)

NaJa wie dem auch sei.
Gefriemel hin gefriemel her..

Nichts ist unmöglich und was unmöglich ist das machen wir möglich! :-D

Gruß

[Elvis]

Zitat:

Zitat von EWeiss

Aber trotzdem nur weil die Leute hier zuerst mit Delphi angefangen haben
muss ich noch lange keine Allergie gegen diese haben.

Nana, du scheinst ja Delphi benutzen zu wollen. Somit fällst du aus der Allergie heraus. ;)
Nicht immer alles auf die schlimmstmögliche Art auslegen, sonst kriegst du noch grundlos Magengeschwüre. :zwinker:

[EWeiss]

Zitat:

Zitat von Elvis

Zitat:

Zitat von EWeiss

Aber trotzdem nur weil die Leute hier zuerst mit Delphi angefangen haben
muss ich noch lange keine Allergie gegen diese haben.

Nana, du scheinst ja Delphi benutzen zu wollen. Somit fällst du aus der Allergie heraus. ;)
Nicht immer alles auf die schlimmstmögliche Art auslegen, sonst kriegst du noch grundlos Magengeschwüre. :zwinker:

1. Habe mir nicht umsonst die Architect zugelegt ;)
Das hindert mich aber nicht daran es weiter zu versuchen.
Freue mich über jede Hilfe

2. War auch nicht auf dich bezogen .. du hast es nur angesprochen das Thema.

Habe ja schon eine kleine Anwendung geschrieben auch wenn es sich nur um
eine Design Studie handelt (Winamp Skin).

Dann lassen wir das Thema hat ja nichts mit dem Thread zu tun!;)

Gruß .. Nix für ungut

[EWeiss]

Neuer versuch nächstes Problem :-D

Delphi-Quellcode:

function TMagnetic.zIdx(lng_hWnd: Integer; bAdd: Boolean = False): Integer;
//Get the sc_aSubData() array index of the passed hWnd
//Get the upper bound of sc_aSubData()
//If you get an error here, you're probably Subclass_AddMsg-ing before Subclass_Start

begin
    zIdx := UBound(sc_aSubData);
     While zIdx >= 0 Do                 //Iterate through the existing sc_aSubData() elements
        With sc_aSubData[zIdx] do
        begin
            If (hwnd = lng_hWnd) Then   //If the hWnd of this element is the one we're looking for
            begin
              If (Not bAdd) Then        //If we're searching not adding
                Exit;                   //Found
              If (hwnd = 0) Then        //If this an element marked for reuse.
              begin
                If (bAdd) Then          //If we're adding
                    Exit;
              end;
            End;
        End;
        dec(zIdx);                      //Decrement the index

End;

Zitat:

zIdx := UBound(sc_aSubData);

UBound kennt Delphi nicht.
UBound-Funktion liefert den größten Index vom Array(sc_aSubData) zurück.
Wie kann ich unter Delphi den größten Index in einem Array ermitteln ?

Erledigt: zIdx := High(sc_aSubData);

Ebenso funktioniert diese abfrage nicht 'While zIdx >= 0 Do' Fehler meldung

Zitat:

[Pascal Error] Magnetic.pas(782): E2035 Not enough actual parameters

Warum muss hier noch das lng_hWnd als Parameter übergeben werden ?

Das scheint zu funktionieren zIdx := zIdx(lng_hWnd) - 1; aber irgendwie unlogisch.

gruß

[Union]

In der Standardkonfiguration heißt es result (extended Syntax). Das hat den Vorteil, dass man die Funktion umbenennen kann, ohne den evtl. verwendeten Namen 20 Mal ebenfalls ändern zu müssen. Und es ermöglicht Rekursion, wenn gewollt.

[Muetze1]

Du hast 100%ig zIdx nicht nochmal woanders verwendet bzw. deklariert? z.B. als Funktionsname?