Hydrogenium - ein Periodensystem

[3_of_8]

*seufz*

Ja, ich weiß.

0°K kann nicht erreicht werden, aber man kanns ja trotzdem hypothetisch darstellen.

Druck einstellen war geplant, aber es gibt keine Formel um dann die Phasenwechselpunkte zu berechnen.

Niob und Molybdän, darum kümmere ich mich noch.

Kohlenstoff: Sag mir exakt, was ich eintragen soll. Neutral General war für den aktuellen Wert, ich wusste nicht, was ich eintragen soll.

@ratte:
XP-Manifest: OK
Wikipedia: Möglich
Steckbrief: Geplant, aber erstmal alle Elemente rein
Bild: Geplant, aber erst alle Elemente und Steckbrief und paar andere Features
Hint: Kann man bei nem Panel AlphaBlend einstellen?

[xZise]

Zitat von 3_of_8:

Hint: Kann man bei nem Panel AlphaBlend einstellen?

Nö, aber du könntest den Hintergrund aufs Panel bisshen malen.

[3_of_8]

Hüörmm??? Naja, ich probiers mal.

[Ratte]

eigentlich müsstest man auch ein Panel "Alphablenden" können. für windows ist ein Panel ja auch nur ein fenster (hätte ich jetzt gedacht). Müsste man halt manuell per API machen. Damit kenn ich mich aber nicht aus, kann sein das ich gerade totalen Schrott labere.

[EDatabaseError]

bei mir liegt irgenwo ein source rum mit dem du alle möglichen handles auch von panels transparent machen kannst.

Warte...

...also

Aufruf:
MakeTransparent(Panel1.Handle, 180);

Und die angehängte Unit einbinden.

Mfg

[xZise]

Ja daswird schwer und habe auch gar kein direken Delphi code. Aber es ist möglich die Farbwerte deines Fensters an Pos X,Y herauszubekommen.

Nun, vielleicht hast du damit experimentiert, kannst du ein bisschen "Faden". Obwohl das eigentlich nur ein Zustand ist

Nehmen wir mal an, die Farbwerte wären im TBitMap namens Backgrnd, dann müsste es so gehen:
(HintPanelImge ist das Hintergrundimage für den Hint (vielleicht kannste auch direkt auf das Pnael zeichnen...) ^^)
(HintPanelColor ist die normale Farbe des Hints)

Delphi-Quellcode:

procedure ShowHint;
var
  Backgrnd : TBitMap;
  i, j : Integer;
begin
  {Hintergrund auf Backgrnd}
  // ein bisschen Alphablending (wir nehmen mal 5%)
  // ich nehme Pixels weil es schneller zu schreiben ist... Du solltest aber Scanline nehmen ;)
  for i := 0 to HintPanelImage.Width do begin
    for j := 0 to HintPanelImage.Height do begin
      HintPanelImage.Canvas.Pixels[i , j] := HintPanelColor + (HintPanelColor - Backgrnd.Canvas.Pixels[i , j]) * 0,05;
    end;
  end;
end;

So müsste es eigentlich funktionieren.

[edit]Schade ^^ Da waren andere schneller [/edit]

[cruso]

Zitat von xZise:

Das heißt, entweder du sagst 1000 Pa (war doch Normaldruck?)

Normaldruck waren doch 1013 hPa oder? Bei dir fehlt ein Präfix. Aber wir wollen mal nicht pingelich sein.

[3_of_8]

@EDE: Danke. Funzt jetzt.

So, alle mal herhören, neueste Version mit transparenten Hints, riesengroßes Dankeschön an EDE.
Ich musste mit diversen Bugs der Delphi7-IDE kämpfen, aber ich HABE ES GESCHAFFT!

So, nur XPManifest is jetzt nicht mehr. Warum? Sobald ich es auf die Form ziehe, wird mein Hint nur noch in einem Anthrazit-Ton und ohne Child-Controls dargestellt. Sehr unschön.

[Dax]

Zitat von 3_of_8:

Druck einstellen war geplant, aber es gibt keine Formel um dann die Phasenwechselpunkte zu berechnen.

Nun, es geht schon, so irgendwie in der Art. Du kannst mit der Clapeyron-Gleichung die Steigungen an den Phasengrenzlinien berechnen und dann numerisch integrieren.. Aber das ist, glaube ich, nicht ganz trivial

[3_of_8]

Für einen 15-jährigen garantiert nicht. Daher: Ich kann nur einen Wert eintragen. Sagt mir halt bitte, was ich jetzt bei Kohlenstoff eintragen soll.