Pascal Project Manager & Editor

[Harry Stahl]

Also das mit der Path-Spalte konnte ich jetzt fixen, indem ich die Spalte auf "Autosize" gestellt habe, dann füllt die den Bereich aus und im Ownerdraw-Event wird auch alles gemalt.

Beim Zeichnen des Icons, mit passendem Hintergrund tue ich mich schwer, hatte es selber schon mal versucht anzupassen für den dunklen Hintergrund, bin aber leider gescheitert.

Aber evtl. hat ja jemand hier noch eine andere Idee?

So gewinne ich das Icon:

Delphi-Quellcode:

procedure TF_ProjDlg.bnSelectIconClick(Sender: TObject);
var
  FileInfo: SHFILEINFO; Icon: TIcon;
begin
  if DirectoryExists (ExtractFilePath (edProjFile.Text)) then begin
    odimg.InitialDir := ExtractFilePath (edProjFile.Text);
  end;

  if odimg.Execute then begin
    if FileExists (odimg.FileName) then begin
      if (pos ('.exe', Lowercase (odimg.FileName)) <> 0) or (pos ('.dll', Lowercase (odimg.FileName)) <> 0) then begin
        Icon := TIcon.Create;
        try
          SHGetFileInfo(PChar(odimg.FileName), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON);
          icon.Handle := FileInfo.hIcon;
          Image1.Picture.Icon.Assign (Icon);
        finally
          Icon.Free;
        end;
      end else begin
        Image1.Picture.LoadFromFile(odimg.FileName);
      end;
    end;
  end;
end;

Image1. Picture kann also alles mögliche enthalten, ein Icon, ein Bitmap, ein PNG transparent oder nicht transparent.

Wie ich das nun richtig ausgebe (skaliert) und mal mit transparentem Hintergrund und mal nicht, da habe ich noch keine richtige Idee...

Derzeit laden ich das Icon dann später wieder in ein TImage, male es auf ein Bitmap und das Bitmap gebe ich dann mit Stretchdraw aus (das Image1.picture.graphic kann ich für Stretchdraw nicht direkt verwenden, denn wenn es ein TIcon enthält, funktioniert kein Stretchdraw).