Record zu TStringlist hinzufügen

[EWeiss]

Das mache ich alles nach PostQuitMessage.
Danke.

Delphi-Quellcode:

      // Windows Messagen verarbeiten
      while GetMessage(Msg, 0, 0, 0) do
      begin
        if IsDialogMessage(MainHandle, Msg) = false then
        begin
          TranslateMessage(Msg);
          DispatchMessage(Msg);
        end;
      end;

      KillTimer(MainHandle, 1);
      // Menu Resource freigeben
      GDIP_DisposeImage(ImgBack);
      GDIP_DisposeImage(ImgHover);
      GDIP_DisposeImage(SideBarImg);

      if hNotifyRBin > 0 then
        SHChangeNotifyDeregister(MainHandle);

      CreateIcon.ShowDesktopIcons(True);

      for X := 0 to Sprites.Count - 1 do
      begin
        if Sprites[X].h_Bitmap <> 0 then
        begin
          DeleteObject(Sprites[X].h_Bitmap);
          Sprites[X].h_Bitmap := 0;
        end;
      end;
      Sprites.Free;

      FreeAndNil(CreateIcon);
      FreeAndNil(DockBar);
      FreeAndNil(ShortCut);

      SKAERO_Free;

gruss

[jaenicke]

Genau, sauberer wäre aber, wenn sich ein TSprite selbst darum kümmern würde. Sprich statt:

Delphi-Quellcode:

      for X := 0 to Sprites.Count - 1 do
      begin
        if Sprites[X].h_Bitmap <> 0 then
        begin
          DeleteObject(Sprites[X].h_Bitmap);
          Sprites[X].h_Bitmap := 0;
        end;
      end;
      Sprites.Free;

So:

Delphi-Quellcode:

type
  TSprite = class
  ...
  public
    destructor Destroy; override;
  end;

destructor TSprite.Destroy; 
begin
  inherited;
  if h_Bitmap <> 0 then
  begin
    DeleteObject(h_Bitmap);
    h_Bitmap := 0;
  end;
end;

// und dann an deiner Stelle nur noch:
      Sprites.Free;

[EWeiss]

Du hast recht

Habe zwar den Quelltext schon hochgeladen werde es aber trotzdem deinem Beispiel zu folgen noch ändern.
Danke schön.

Ist dann im nächsten Update enthalten. (Wenn noch eins kommt)

Moment
Nein geht nicht! (Bei normalen Classen schon)
Ich habe ja keine Class in herkömmlichen sinne.
Sondern nur meinen Record umbenannt.

Delphi-Quellcode:

  TSprite = class
    CtrlName: WideString;
    CtrlIndex: Integer;
    Left: Single;
    Top: Single;
    Width: Integer;
    Height: Integer;
    Scale: Single;
    Opacity: Byte;
    ShellTo: string;
    IconPath: WideString;
    WorkDir: WideString;
    UseLabel: string;
    CmdLine: WideString;
    ShowCmd: longint;
    h_Bitmap: HBitmap;
    Visible: Bool;
  end;
  PSprite = ^TSprite;

gruss

[DeddyH]

Ja und? Du kannst doch trotzdem den Destruktor überschreiben.

[EWeiss]

Zitat von DeddyH:

Ja und? Du kannst doch trotzdem den Destruktor überschreiben.

Sorry bin ich wirklich so blöd? (Tja wenn er denn definiert wäre)

Normale Class

Delphi-Quellcode:

  TMagnetic = class(TInterfacedPersistent, ISkinMagnetic, ISkinMagneticEx)
    constructor Create;
    destructor Destroy; override;

hier wurden Create und Destroy definiert..
somit kann ich sie beim start und beenden verwenden/überschreiben oder was auch immer.

Schicke ich ein Free wird Destroy aufgerufen.

Beide werden aber in meiner Class TSprite nicht erstellt und auch nicht code mäßig aufgerufen.
Intern allerdings schon verwaltet.

Also erstelle ich meine Class wird im Quelltext Create gar nicht aufgerufen.
Somit kann ich da auch gar nichts eingeben.

Verstehst was ich meine?
Ich rede nicht davon das es grundsätzlich nicht geht sondern davon das ich beides in meiner Class/Record nicht definiert habe.
Ohne Definition kann ich dort Codemäßig auch nichts eingeben.
Die Funktionen existieren nicht!

Ich möchte sie auch in der Class nicht definieren diese soll weiterhin wie ein Record aussehen.

gruss

[jaenicke]

Du kannst den Destruktor doch jederzeit hinzufügen:

Delphi-Quellcode:

  TSprite = class
    CtrlName: WideString;
    CtrlIndex: Integer;
    Left: Single;
    Top: Single;
    Width: Integer;
    Height: Integer;
    Scale: Single;
    Opacity: Byte;
    ShellTo: string;
    IconPath: WideString;
    WorkDir: WideString;
    UseLabel: string;
    CmdLine: WideString;
    ShowCmd: longint;
    h_Bitmap: HBitmap;
    Visible: Bool;
  public
    destructor Destroy; override;
  end;

Ändern tut sich dadurch ja sonst nichts.

[EWeiss]

Zitat von jaenicke:

Du kannst den Destruktor doch jederzeit hinzufügen:

Delphi-Quellcode:

  TSprite = class
    CtrlName: WideString;
    CtrlIndex: Integer;
    Left: Single;
    Top: Single;
    Width: Integer;
    Height: Integer;
    Scale: Single;
    Opacity: Byte;
    ShellTo: string;
    IconPath: WideString;
    WorkDir: WideString;
    UseLabel: string;
    CmdLine: WideString;
    ShowCmd: longint;
    h_Bitmap: HBitmap;
    Visible: Bool;
  public
    destructor Destroy; override;
  end;

Ja aber das würde die Ansicht des Record/Class verändern und ich möchte diese Sichtbar als Record erhalten.
Alles andere verwirrt nur.

Hatte meine Beitrag oben nochmal korrigiert. Sorry.

Zitat:

Ich möchte sie auch in der Class nicht definieren diese soll weiterhin wie ein Record aussehen.

Aber ich gebe dir recht wenn sie DEFINIERT ist das es funktioniert.

gruss

[TiGü]

Zitat von EWeiss:

Verstehst was ich meine?
Ich rede nicht davon das es grundsätzlich nicht geht sondern davon das ich beides in meiner Class/Record nicht definiert habe.
Ohne Definition kann ich dort Codemäßig auch nichts eingeben.
Die Funktionen existieren nicht!

Ich möchte sie auch in der Class nicht definieren diese soll weiterhin wie ein Record aussehen.

Schreibs einfach hin, bitte schreibs einfach hin.
Der Klasse tut es nicht weh, wenn sie nicht mehr wie ein record aussieht.

[EWeiss]

Zitat von TiGü:

Zitat von EWeiss:

Verstehst was ich meine?
Ich rede nicht davon das es grundsätzlich nicht geht sondern davon das ich beides in meiner Class/Record nicht definiert habe.
Ohne Definition kann ich dort Codemäßig auch nichts eingeben.
Die Funktionen existieren nicht!

Ich möchte sie auch in der Class nicht definieren diese soll weiterhin wie ein Record aussehen.

Schreibs einfach hin, bitte schreibs einfach hin.
Der Klasse tut es nicht weh, wenn sie nicht mehr wie ein record aussieht.

Tue dir den gefallen..
Doch mir! LOL

gruss