Partitionen grafisch anzeigen wie Windows Datenträgerverwaltung

[Guido Eisenbeis]

Zitat von Jim Panse:

Natürlich schaut man einem geschenkten Gaul angeblich nicht ins Maul

Einen Moment lang hätte ich gerne etwas zum Umgangston geschrieben. Aber leider hab ich's dann scheinbar auch nicht kapiert.

@Alter Mann

Klar sind in deinem Progrämmchen noch Fehler drin. Aber ich erwarte ja garnicht, dass alles schon mundgerecht geliefert wird. (Wär natürlich schon schön, ist aber bei diesem Thema eher unwahrscheinlich.) Aber es ist immerhin ein Anfang. Nörgler gibt es immer wieder. Pfeif drauf. Erst mal was besseres liefern.

Ich freue mich über den Ansatz, den mir dein Code vermittelt hat. Und dass du ihn zur Verfügung stellst. Mal sehn, ob ich was draus machen kann.

[Luckie]

Hänge das ganze doch bitte als Zip-Datei an. Dann ist es etwas einfacher damit zu arbeiten.

[Alter Mann]

@Luckie

Wird gemacht, Entschuldigung.

@Guido Eisenbeis

Was die Erweiterten Partitionen angeht: Das wird etwas dauern, da ich gerade gesehen habe das dazu der Code doch 'nicht unerheblich' umgebaut werden muss.

@All

Hinweis: Erweiterten Partitionen werden zur Zeit nicht unterstützt.

[Alter Mann]

Hallo,

nun sollte es auch mit erweiterten Partitionen klappen.
Aber auch hier gilt: es gibt immer etwas zu verbessern.

VG

[Alter Mann]

Hi,

bitte in procedure TPartitionMapPanel.ShowPartitionData;folgende Änderung vornehmen:

Delphi-Quellcode:

    with TPartitionInfoPanel.Create(PIPOwner) do
    begin
      Width       := Round(FDriveLayoutRecord.PartitionEntry[I].PartitionLength / RF);

      if not IsEx then
      begin
        Left        := 2 + Round(FDriveLayoutRecord.PartitionEntry[I].StartingOffset  / RF);
        Top         :=  2;
        Height      := 75;
        if I = FDriveLayoutRecord.PartitionCount - 1 then Width := Width - 3;
      end
      else
      begin
        Left        := 4 + Round(FDriveLayoutRecord.PartitionEntry[I].StartingOffset  / RF);
        Top         :=  5;
        Height      := 68;
        if I = FDriveLayoutRecord.PartitionCount - 1 then Width := Width - 5;
      end;
      IsChild       := IsEx;
      InfoID        := I;
      Name          := Format('PartitionInfoPanel%d', [I]);
      OnCreateEvent := CreatePartitionPanel;
      Parent        := Self;
      Caption       := '';
    end;

Sollte nur eine Partition vorhanden sein, stimmt die Weite nicht.

Schönes Wochenende

[Guido Eisenbeis]

Hallo Alter Mann,

vielen Dank für die neue Version. Ich hab sie mal PartInfo-4a genannt. Bei einem Kurztest sah das schon mal gut aus.

Falls du jetzt Langeweile hast kannst du dir mal das Partitionierungs-Beispiel im Anhangs-Bild ansehen. Wenn du das noch hinkriegst, bist du der Held.

Ansonsten: Gute Arbeit!

[hathor]

Hast Du wirklich so eine chaotische Platte?
Was für eine Platzverschwendung (!!!) für diese zerstückelte Verwaltung!