Pascal Project Manager & Editor

[omnibrain]

Zitat:

Zitat von Harry Stahl (Beitrag 1519771)

...(Harry beschreibt wie es geht)...

Das probier ich morgen gleich mal aus!

[Harry Stahl]

Achtung: Hatte die Vorgehensweise ursprünglich falsch beschrieben, dann aber noch korrigiert, Du zitierst noch die alte Fassung, sieh also bitte noch mal nach, wie es richtig geht.

[omnibrain]

Zitat:

Zitat von Harry Stahl (Beitrag 1519773)

Achtung: Hatte die Vorgehensweise ursprünglich falsch beschrieben, dann aber noch korrigiert, Du zitierst noch die alte Fassung, sieh also bitte noch mal nach, wie es richtig geht.

Ich mache das grad. Der erwähnte Dialog fühlt sich für mich nicht gut an. Die Bedienelemente bleiben nach gestartetem Import aktiv. Was passiert beispielsweise wenn ich bei laufendem Import einen Haken irgendwo rausnehme?

Als Entwickler weiß ich natürlich wie schwierig nicht lügende Fortschrittsbalken sind. Es wäre deshalb vielleicht eine nette Idee, wen im Fortschrittsbalken noch angzeigt wird bei welchem Projekt der Import gerade ist, bzw irgendwas wie 7/55, dann 8/55, etc.

Edit: Ich habe die Projekte jetzt importiert, aber in der IDE-Liste links steht in der Klammer immer noch eine 0. Das ist vermutlich noch ein kleiner Bug, oder?

Aber: Entweder bin ich ein wenig doof und finde die Option nicht, oder ich bin noch ein wenig doofer und hab das vollkommen falsch im Kopf, aber ich vermisse die Option die Projekte zu gruppieren. Mir war so, als hätte ich letzte Woche beim Ausprobieren sowas gesehen. Oder es war ein ganz anderes Tool, vielleicht gar nicht für Delphi. (Ich hab ein kleines Kind, das setzt der Aufmerksamkeit und dem Gedächtnis zu...)
Insgesamt glaube ich aber, dass für meinen Use-Case das Tool doch nicht so nützlich ist, da wir Issues, etc. über unser Gitlab abhandeln.

[Harry Stahl]

@omnibrain:

Ja danke für den Hinweis mit dem Dialog, habe die Schalter nun dementsprechend enabled / disabled (Haken setzen wirkt sich nach Start des Vorgangs nicht mehr aus).

Fortschrittbalken: Es werden hier immer die Anzahl der Dateien angezeigt, die zum importieren verwendet werden. Ich weiß aber letztlich nicht wie viele Projekte dass dann sind, denn wenn Projektgruppen dabei sind, dann werden die einzelnen Projekte hinzugefügt. Aber ich denke, das ist hier kein großer Punkt, ob man die Anzahl nun exakt sieht oder nicht.

Das mit der fehlenden Aktualisierung der Projekt-Anzahlen für die jeweiligen IDE habe ich angepasst.

Zur Gruppierung: Wenn Projekte aus Projekt-Gruppen importiert werden, dann wird im Feld "ProjectGroup" der Dateilink zu dieser Gruppe erfasst. Nach diesem Feld kannst Du filtern, dann werden alle Projekte aus der Projektgruppe angezeigt. Zusätzlich habe ich in der eben aktualisierten Fassung noch die direkte Filterung nach dem Feld "ProjectGroup" eingebaut, so dass man es im Zweifel ganz exakt ausfiltern kann. Siehe auch anliegenden Screenshot "Filtergroup.png'.

Man kann das Feld aber quasi auch für eine Art "virtuelle" Projektgruppe verwenden. Wie aus dem erwähnten Screenshot sichtbar ist, filtere ich da auch nach der ProjektGruppe, die einfach "FileIO" heißt. Das ermöglicht es mir Projekte in diese virtuelle Projektgruppe hineinzunehmen, die Beispielsweise mit unterschiedlichen Delphi-Versionen erzeugt worden sind.

Bezüglich der Projekt-Gruppe habe ich auch jetzt noch die Möglichkeit eingebaut, statt das einzelne Projekt zu öffnen, auch die Projektgruppe zu öffnen (also Datei mit Endung ".groupproj"), die dem Projekt zugeordnet ist, siehe den weiteren anliegenden Screenshot "OpenGroup.png'.

Auch wenn Du meinst, das Tool nicht verwenden zu wollen, jeden Fall vielen Dank für Dein Feedback. Ich finde es auch wichtig zu hören, wo es nicht passt, denn ich habe ja in der Hauptsache meistens nur meine eigene Nutzersicht. Und unter Umständen lässt sich ja auch das eine oder andere noch erweitern.

Im Update habe ich auch die Einträge für die Delphi-Datenbank erweitert, aber daran muss ich noch weiter arbeiten (ist sehr zeitintensiv, die Einzelheiten dafür zu ermitteln)...

[omnibrain]

Ja, ich gebe auch gerne Feedback, weil sonst hört man oft irgendwie über Umwege, dass irgendwas nicht geht, weil sich nie jemand direkt meldet.

Das mit den Projektgruppen ist definitiv nicht das was ich meinte. Jetzt frage ich mich natürlich an was ich mich da erinnere. Ob das ein anderes Tool (möglicherweise für eine andere Programmiersprache) war, oder ob ich das vielleicht nur geträumt (wirklich!) habe, weil ich dein Tool letzte Woche kurz vor dem zu Bett gehen ausprobiert habe.

[ringli]

In der Projektliste wird bei der Nutzung eines Styles der transparente Teil eines Icons mit einem weißen Hintergrund gezeichnet. Ausserdem wird hinter der letzten Spalte der Hintergrund ebenfalls hell gezeichnet anstatt dunkel (siehe Screenshot, rot umrtandete Bereiche).

[blawen]

Zitat:

Zitat von ringli (Beitrag 1520067)

In der Projektliste wird bei der Nutzung eines Styles der transparente Teil eines Icons mit einem weißen Hintergrund gezeichnet. Ausserdem wird hinter der letzten Spalte der Hintergrund ebenfalls hell gezeichnet anstatt dunkel (siehe Screenshot, rot umrtandete Bereiche).

Dies dürfte mit dem Styles nicht zusammenhängen.
Auch ohne Style ist bei mir der Bereich weiss. Ich denke, dass die Titelspalte schlicht zu "kurz" ist.
Anhang 55911

[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).

[ringli]

Der gezeigte Code scheint nicht das Problem zu sein. Zumindest nicht in einer VCL-Testanwendung. Könnte es sein das das Malen in eine Bitmap das Problem auslöst?

[Harry Stahl]

Zitat:

Zitat von ringli (Beitrag 1520075)

Der gezeigte Code scheint nicht das Problem zu sein. Zumindest nicht in einer VCL-Testanwendung. Könnte es sein das das Malen in eine Bitmap das Problem auslöst?

Ja, das malen ist das Problem.

Mal vereinfach gezeigt, im OndrawItemEvent der Listbox:

Delphi-Quellcode:

  TI.picture.LoadFromStream(msOut);

  bm := TBitmap.Create;
  bm.SetSize(32,32);

  bm.PixelFormat := pf24bit;
  bm.Transparent := True;
  bm.TransparentMode := TTransparentMode.tmfixed;
  bm.TransparentColor := clWhite;
  bm.Canvas.Draw(0,0, TI.Picture.Graphic);

  lb.Canvas.StretchDraw(System.classes.rect (rect.Left+2, rect.top+3, rect.Left+2 + round (24*ScaleFactor), rect.top+3 + round (24*ScaleFactor)), bm);

- bm auf 32 bit zu setzen bringt nichts
- bm.transparentmode auf auto zu setzen bringt auch nichts, da dann zB. vollbunte Icons transparent werden...