Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by blackmice,
28. Nov 2007
Nachdem ich mir jetzt mal den Hinweis von Luckie durchgearbeitet habe, habe ich wohl eine Version gefunden, die 1. funktioniert, und 2. wohl auch performant ist.
Danke an alle für die Hilfe.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by blackmice,
28. Nov 2007
Das weiß wohl nur Gott. Ich jedenfalls kriege dann ein weißes Kästchen, da wo ich meine Paintbox definiert habe, und keinen Farbverlauf.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by blackmice,
28. Nov 2007
:wiejetzt:
Hmm, sieht nicht gerade einfach aus. Letzten Endes habe ich eine (für mich) leichter verständliche Variante die den Farbverlauf berechnet.
//==============================================================================
// Farbe zwischen 2 vorgegebenen Farbwerten berechnen
//==============================================================================
function ColorBetween(C1,...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by blackmice,
28. Nov 2007
Aber vielleicht hat ja auch jemand von euch eine andere Idee, wie ich einen Farbverlauf am Rand meines Fensters darstellen kann. Dieser Farbverlauf soll nur als Referenz dienen. Ich habe eine Gruppe von Panels, die unterschiedlich eingefärbt sind, und der Farbverlauf soll meine Skala darstellen. Eigentlich soll er nur beim Drücken eines bestimmten Buttons erscheinen, aber da er wieder...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by blackmice,
28. Nov 2007
Also das mit dem Code in OnPaint funktioniert auf jeden Fall. Das Problem mit dem Image ist, dass noch nicht feststeht, wie dieser Farbverlauf(denn das zeichne ich da) aussehen soll. Wie gesagt, ich hätte auch kein Problem mit etwas, dass ich nur einmal zeichnen muss, damit das nicht so performance raubend ist.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by blackmice,
28. Nov 2007
Hallo,
Wahrscheinlich ist das Problem wieder mal bekannt, ich finde nur nicht die richtigen Suchparameter, aber ich habe mit
procedure TForm1.Button1Click(Sender: TObject);
var
radius, r : Integer;
rt : TRect;
i : Integer;
dtest : TComponent;