Forum: Multimedia
Delphi
by eisblock,
7. Feb 2006
OnPaint ist für meine Zwecke eher ungeeignet, weil ich vorher noch andere Sachen auf der Form machen will (Labels verschieben etc.)
Forum: Multimedia
Delphi
by eisblock,
7. Feb 2006
also bei mir funktionierts, auch wenn ich es direkt aufs Form anwende. Aber es ist halt nur Canvas, also wenn ich ein anderes Form davor schiebe, ist es wieder weg.
Forum: Multimedia
Delphi
by eisblock,
7. Feb 2006
Habe die Prozedur jetzt mal so umgeschrieben, dass man sie für Rechteckige Bereiche nutzen kann.
(kann man sicher noch optimieren)
procedure Helligkeit(C:TCanvas; Faktor:Real; x,y,x2,y2: integer);
var Color: LongInt;
tmp1, tmp2, R, G, B: Integer;
begin
with C do
for tmp1:= ClipRect.Left to x2 do
Forum: Multimedia
Delphi
by eisblock,
7. Feb 2006
also so wie auf http://www.dsdt.info/tipps/?id=653 beschrieben.
Aber wie binde ich die Prozedur dann ein?
Forum: Multimedia
Delphi
by eisblock,
7. Feb 2006
Falls es weiterhilft: es würde mir auch schon reichen, einen rechteckigen Bereich meines Hintergrund-Bitmaps mit einer höheren Helligkeit einzufärben, aber wenn das Panel dann wieder unsichtbar werden soll, müsste ich bei dieser Methode statt dessen die Helligkeit wieder normalisieren.
(Beispiel siehe angehängtes Bild)
Forum: Multimedia
Delphi
by eisblock,
7. Feb 2006
Hallo!
Ich habe auf einem Image ein Panel. Dieses ist weiß und soll halbtransparent gemacht werden (wie man ganze Forms mit Alpha transparent machen kann), aber eben nur dieses Panel.
Weis jemand, wie ich das machen kann?
MfG eisblock