Periodensystem Xtreme 1.0 beta 6

[jaenicke]

Das glaube ich unbesehen, jetzt wo du es sagst fällt mir nämlich ein, dass ich zuerst die Position berechne und dann das Element zuweise, wobei auch die Größenänderung passiert. :mrgreen:

Das erklärt auch, warum manchmal das Popupfenster über den Bildschirmrand hinausgeht, da hatte ich mich schon kurz gewundert und es auf meine Bugliste gesetzt. :D

[turboPASCAL]

Zitat:

Zitat von jaenicke

Zitat:

Zitat von turboPASCAL

Was noch ein nettes Feature bei der Suche wäre, die nicht gesuchten Elemente auszugrauen (oder einfach nicht die Hintergrundfarbe zu nutzen).

Ja, sowas hatte ich auch überlegt das optional auch anders zu machen...

Hah, war ja einfach:

Delphi-Quellcode:

procedure TStandardElementGraphics.DrawElement(AElement: TChemicalElementData;
  ARect: TRect);
var
  CurValue: String;
  CurTop, NormalTextHeight, ElemTextWidth: Integer;
begin
  if (drsCleanRect in DrawState) or not (drsVisible in DrawState) then
  begin
    FCanvas.Pen.Color := FBackgroundColor;
    FCanvas.Brush.Color := FBackgroundColor;
    FCanvas.Rectangle(ARect);
    if drsCleanRect in DrawState then
      DrawState := DrawState - [drsCleanRect];
  end;

  {$MESSAGE '*** 3 ***'}
  if (drsVisible in FDrawState)  then   // add
  begin
     FCanvas.Brush.Color := FColor;
     FCanvas.Pen.Color := clBlack;
     FCanvas.Font.Color := clWindowText;
  end else
  begin
    FCanvas.Brush.Color := FBackgroundColor;
    FCanvas.Pen.Color := clGrayText;
    FCanvas.Font.Color := clGrayText;
  end;

//     FCanvas.Brush.Color := FColor;
//     FCanvas.Pen.Color := clBlack;

//  if not (drsVisible in FDrawState) then
//    Exit;

  if drsHovered in FDrawState then

[turboPASCAL]

Hier mal eine Version mit dem auch Delphi 6 (PE) Jünger, Sebastian Jänickes Periodensystem Xtreme kompilieren können.
Nebenbei habe ich noch ein, zwei Änderungen vorgenommen.

[jaenicke]

Ich selbst habe mittlerweile ebenfalls entsprechende Unterstützung per Compilerdirektiven eingebaut, ich schaue aber noch kurz was du dafür genau geändert hast, viel war das bei mir nicht. Auch für Windows 95 gibt es entsprechende Möglichkeiten und wird es auf meiner Homepage eine Version geben.

Im Moment bastele ich noch an der Einbindung der kompletten Fotos und der Einbindung von deren Lizenzangaben. Danach fehlen dann noch die Umsetzung der Einstellungen und des automatischen Updaters, aber sobald ich jetzt fertig bin, stelle ich erst einmal eine neue Version online.

[turboPASCAL]

Ha, ich habe es gerade bemerkt das du eine neue Version hochgeladen hast.
Das Hauptproblem sind die Eigenschaften in den Forms die D6 nicht verträgt.
Man muss dann jede einzelne durchgehen und die unpassenden Eigenschaften entfernen.

In deiner neuerren Version (Beta 5) gibts Probleme mit

Delphi-Quellcode:

  {$if defined(UseTLBExtension)} SHDocVw_TLB {$else} SHDocVw{$ifend};

was der Kompeiler anscheinend nicht versteht. Ein Umbau ala

Delphi-Quellcode:

  {$ifdef UseTLBExtension} SHDocVw_TLB {$else} SHDocVw{$endif};

sollte das Problem beheben können.


PS.: der Setupdialog ist super.

[jaenicke]

Zitat:

Zitat von turboPASCAL

Das Hauptproblem sind die Eigenschaften in den Forms die D6 nicht verträgt.
Man muss dann jede einzelne durchgehen und die unpassenden Eigenschaften entfernen.

Eigentlich sollte es doch reichen jedes Formular einmal zu öffnen und die Fehler zu ignorieren.

Das mit den Compilerdirektiven muss ich dann nochmal ändern, das hatte ich gemacht, um auch and benutzen zu können... naja, muss ich dann umgehen.

[Helmi]

Hallo,

ich hab mir jetzt mal wieder die neueste Version angeschaut. Schaut schon sehr schön aus
nur: Wieso passiert nichts, wenn man die CheckBoxen oben ändert?

[jaenicke]

Ja, wie im ersten Beitrag auch steht: Die Einstellungen funktionieren noch nicht. Ich habe das komplett geändert und bin gerade dabei die zu implementieren, deshalb ist die Schrift auch auf deaktiviert bei den CheckBoxen.
(Hätte ich die Boxen selbst deaktiviert, dann wäre das Suchedit immer aktiv gewesen. ;-))

Zusammen mit großen Fotos usw. wird die neue Version wohl morgen früh oder so dann verfügbar sein. Speichern werden sich die Einstellungen dann noch nicht lassen, aber sie werden dann etwas bewirken.

[jaenicke]

So, ein großer Fortschritt ist gemacht.

• Sämtliche großen Bilder und Lizenzinformationen zu den Bildern sind eingebunden.
• Zudem werden Windows 95 und Delphi 6 und damit jede Windowsversion ab Windows 95 und jede Delphiversion ab Delphi 6 unterstützt, D2009 muss ich noch testen. Es sollten keine manuellen Anpassungen mehr erforderlich sein. Die in Windows 95 fehlende Methode in der User32.dll habe ich einfach dynamisch eingebunden und rufe diese dort nicht auf.
• Zudem habe ich die automatische Erstellung der Pakete und den Upload fertiggestellt, so dass es für mich sehr viel einfacher wird, Updates anzubieten.

Aufgrund der Größe kann ich die Bilddaten nicht hier im Forum in den Anhang legen. Das Setup lädt diese standardmäßig (wenn man das aktiviert lässt) nach.

Es gibt ein komplettes Paket (Direktdownload, ca. 5 MiB) und die Datendatei einzeln (Direktdownload, ca. 4 MiB), diese gehört einfach in das Verzeichnis der Exe.

Als nächstes stehen die Implementierung der Einstellungen und des Updaters an, dann sollte die Version 1.0 soweit fertig sein und wird als RC und dann final veröffentlicht werden.

[Assarbad]

Cooles Programm. Danke für's Offenlegen der Quellen:thumb: