Entwickler-Ecke

Dateizugriff - Festplatten-Bezeichung und -Icon bekommen


Sliver - Sa 25.10.03 13:03
Titel: Festplatten-Bezeichung und -Icon bekommen

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
 
for i:=0 to 25 do begin
    s:=Chr(i+65)+':';
    typ:=GetDriveType(PChar(s));
    if (Typ<>0) then       
      case Typ of
        DRIVE_FIXED:CheckListBox1.Items.Add((Chr(i+65)+':\'));   //HDD
        DRIVE_REMOTE:CheckListBox1.Items.Add(Chr(i+65)+':\');  //Network
    end;
  end;

So lese ich die Festplatten in die ListBox ein. Bei CheckListBox.Style hab ich lbOwnerDrawVariable eingestellt, so dass ich auch Bildchen einfügen können sollte.

Jetzt zu meiner Frage, wie kann ich zu der Festplatte noch die Bezeichnung hinzufügen und wie füge ich ein Bildchen bei jeder Zeile ein?

cu Sliver

Moderiert von user profile iconTino: Titel geändert & Topic verschoben.


Tino - Mo 27.10.03 11:17
Schau dich doch mal in der FAQ um:

...erfahren um welchen DiskTyp es sich handelt? [http://www.delphi-forum.de/viewtopic.php?t=134]
...Name, Seriennummer und Typ eines Laufwerks ermitteln? [http://www.delphi-forum.de/viewtopic.php?t=9434]

Das könnte dir doch erstmal helfen, oder?

Gruß
Tino


Sliver - Mo 27.10.03 14:04
OK, Typ hab ich ja schon gehabt, den Namen jetzt auch (thx), jetzt also nur noch das Problem mit der CheckListBox und den Bildchen.

cu Sliver


smiegel - Mo 27.10.03 14:08
Hallo,

für die Ausgabe bist Du selber verantwortlich.

In Deinem 1. Posting hast Du folgendes geschrieben:
Silver hat folgendes geschrieben:

... CheckListBox.Style hab ich lbOwnerDrawVariable eingestellt ...


Schau Dir dazu das Ereignis OnDrawItem an. Beispiele findest Du in der Delphi-Hilfe oder per Suche hier im Forum.


Sliver - Mo 27.10.03 14:43
Thx hab es jetzt so gelöst.


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
 
  Bitmap1:=TBitmap.Create;
  Bitmap1.LoadFromFile('faild.bmp'); 
  CheckListBox1.Items.AddObject('Bitmap 1', Bitmap1);
....
procedure TForm1.CheckListBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  Bitmap:TBitmap;
  Offset:Integer;
begin
  offset:=0;
  with CheckListBox1.Canvas do
  begin
    FillRect(Rect);
    Bitmap:=TBitmap(CheckListBox1.Items.Objects[Index]);
    if Bitmap<>nil then
    begin
      //copy bitmap to combobox coordinate
      BrushCopy(Bounds(Rect.Left+2,Rect.Top+2,10,10),Bitmap,Bounds(0,0,10,10),clred);
      Offset:=10;
    end;
    //Set a caption to each item
    TextOut(Rect.Left+Offset,Rect.Top,CheckListBox1.Items[Index]);
  end;
end;


cu Sliver


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!