AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Enttäuschung: Kein Image,Panel, individueller Farbumschag bei FontColor und Panel

Enttäuschung: Kein Image,Panel, individueller Farbumschag bei FontColor und Panel

Ein Thema von Sel2012 · begonnen am 12. Jun 2015 · letzter Beitrag vom 14. Jun 2015
Antwort Antwort
Seite 4 von 4   « Erste     234
Sel2012

Registriert seit: 6. Jun 2015
Ort: 31535
103 Beiträge
 
Delphi XE5 Professional
 
#31

AW: Enttäuschung: Kein Image,Panel, individueller Farbumschag bei FontColor und Panel

  Alt 14. Jun 2015, 16:12
Dann musst Du diesen Status irgendwie hinterlegen und dann im Paint-Event auswerten und entsprechend reagieren.
Tschulligung, das ist so, als würde ich mit meinem Goldfisch reden (bitte nicht böse sein - Programmierer können wohl nicht anders kommunizieren).
Ich suche sowas:

procedure machwas(zahl: integer);
begin
zahl := zahl+5;
end;

procedure aufruf;
var einezahl: integer;
begin
einezahl := 5;
machwas(einezahl);
end;

Nur eben ausgelöst mit Button1Click. <machwas(einezahl);> müsste nur an
procedure Panel1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
angepasst werden. Aber wie?
const ARect: TRectF);
  Mit Zitat antworten Zitat
Benutzerbild von Harry Stahl
Harry Stahl

Registriert seit: 2. Apr 2004
Ort: Bonn
2.538 Beiträge
 
Delphi 11 Alexandria
 
#32

AW: Enttäuschung: Kein Image,Panel, individueller Farbumschag bei FontColor und Panel

  Alt 14. Jun 2015, 16:16
Nein, das ist keine gute Idee, im Button-Klick-Event direkt auf das Panel zeichnen zu wollen. Der richtige Ort ist hier immer das OnPaint-Event selber. Du kannst allenfalls einen Wert im Button-Event setzten, und ein Repaint der Komponente auslösen, wo dann der Wert berücksichtigt wird.

Das nur als Antwort. Aber generell möchte ich zur Sicherheit nur einmal sagen, dass das von mir gezeigte Beispiel nur als Antwort auf Himitsus Bemerkung zum Canvas-zeichnen unter FMX war. Ich würde das nur in besonderen Spezialfällen nutzen.

Viel einfacher wäre, Du definierst Dir benutzerdefinierte Styles (mit unterschiedlichen Farben) und weist dann dem Panel einfach die unterschiedlichen Styles zu.

Oder Du verwendest direkt das TRectangle, da kannst Du ganz einfach zur Laufzeit (auch im Button-Klick-Event) die Eigenschaft "Fill" mit der gewünschten Farbe setzen.
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.858 Beiträge
 
Delphi 11 Alexandria
 
#33

AW: Enttäuschung: Kein Image,Panel, individueller Farbumschag bei FontColor und Panel

  Alt 14. Jun 2015, 16:34
Den Status ( Werte für Auswertung oder absolute Farbe) z.B. in .Tag ablegen und dann im Paint auswerten

In Klick-Event des Buttons:

Delphi-Quellcode:
  Panel1.Tag := TAlphaColor.Blue;
  Panel1.Repaint;
Im Paint:
Delphi-Quellcode:
  if Sender.Tag <> 0 then
  begin
    canvas.BeginScene;
    canvas.Fill.Kind := TBrushKind.bkSolid;
    Canvas.Clearrect (Arect, (Sender as TComponent).Tag);
    canvas.EndScene;
  end;
Markus Kinzler

Geändert von mkinzler (14. Jun 2015 um 16:56 Uhr)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:02 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz