Partitionen grafisch anzeigen wie Windows Datenträgerverwaltung

[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