Deutsches Lazarusforum

Hier mal die ganze Funktion, mit der man das Icon, die Beschreibung und den Typnamen eines Pfades oder einer Datei ermitteln kann:

const SHGFI_ICON = $000000100;
SHGFI_DISPLAYNAME = $000000200;
SHGFI_TYPENAME = $000000400;
SHGFI_SMALLICON = $000000001;

procedure GetFileInfos(Path : string ...

Vergesst das alles einfach. Das Zuweisen zu den StateImages des Listviews ist falsch. SmallImages wären besser gewesen

Hallo,

ich erzeuge zur Laufzeit eine Imagelist und weise sie der Eigenschaft StateImages eines Listviews zu. Gefühlt wird das Listview mit folgenden Code:
for i := 0 to localListing.FolderCount - 1 do begin
fLocalImageList.Add(localListing.GetFolder(i).Icon, nil);
with lvLocal.Items.Add do ...

Hier ist die Lösung:

var FileInfo : TSHFileInfo;
myIconInfo: TIconInfo;
myBitmap: TBitmap;
r : TRect;

[...]
begin
if not Assigned(resultItem.Icon) then resultItem.Icon := TIcon.Create;
if SHGetFileInfo(PChar(path), 0, FileInfo, sizeof(FileInfo), SHGFI_ICON or SHGFI_SMALLICON) then begin
if ...

Hallo,

ich hole mir die Symbole der einzelnen Laufwerke unter Windows mit der folgenden Anweisung:
FileInfoResult :=SHGetFileInfo(PChar(path), 0, FileInfo, sizeof(FileInfo), SHGFI_ICON or SHGFI_SMALLICON);
if FileInfoResult <> 0 then begin
resultIcon.Handle := FileInfo.hIcon;
//resultIcon.Width ...

Ich propier grad die Möglichkeit hier: http://www.swissdelphicenter.ch/de/showcode.php?id=196" onclick="window.open(this.href);return false;

Hallo,

gibt es die Komponente ComboboxEx (in Delphi 5 oder 6 eingeführt) auch in Lazarus? Wenn nicht - wie bekomm ich Icons neben die Einträge der Combobox?

Viele Grüße
Hitzi

Die SVN Sache hab ich nicht erfolgreich erstellen können. Naja egal ... hab so nen Daily Snapshot genommen und siehe da, es funktioniert tatsächlich. Selbst das Tabcontrol lässt nun codegesteuert die Tabs wechseln. Fein

Ok, ich probier mal die SVN Version.

@Theo:
Wie würdest du sonst ein Programm aufbauen, welches nur ein Formular haben soll, aber im Programm zwischen verschiedenen Funktionen/Bereichen, mit jeweils unterschiedlichen Controls, umgeschaltet werden kann. Ich nehm dazu gern auch ein Tabcontrol ohne ...

Hallo,

eine Frage gleich vornweg ... gibt es ein TFrame in FPC? Da ich bis jetzt nichts dazu gefunden habe, versuche ich nun gerade eine Form in einem Panel anzuzeigen.
Dazu verwende ich folgenden Code:
frmFileManager := TfrmFileManager.Create(Panel2);
frmFileManager.Parent := Panel2 ...

Ok, danke euch allen für die Hilfe und die Tipps.

Viele Grüße

Das war es wirklich. Warum kommt der Compiler nicht mit Leerzeichen im Pfad klar?

Hallo,

ich komm aus der Delphiecke und versuch mich nun mit Lazarus anzufreunden. Ausgangslage ist folgende - ich habe folgende Verzeichnisstruktur:

Verzeichnis mit allen Projekten
|
|-common units
|
|-Projektverzeichnis
| |-src
| |
| |-bin
| | |
| | |-i386-win32
| |
| |-lib
| | |
| | |-i386-win32 ...