Einzelnen Beitrag anzeigen

Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#16

Re: Hydrogenium - ein Periodensystem

  Alt 1. Aug 2006, 21:56
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]
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat