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

[Sel2012]

Nachdem es mir gelang mit Delphi/RAD Studio passable Anwendungen zu erstellen und ich diese "irgendwie" mit dem genialen (?)FireMonkey aufs Smartboard portieren wollte, war ich maßlos enttäuscht, dass so simple, wie wichtige Standardroutinen nicht ebenso simpel funtionieren.
Was bedeutet z.B. die Kreation von TImage oder TPanel? Der Objektinspektor ist völlig verödet. Wo steht, wie ein Bild importiert werden kann? Nach welchem Schema kann ich das gezielt suchen?
Ganz wichtig wäre (wohl nicht nur für mich) die individuelle Änderung der Schrift- oder Hintergrundfarbe in Panels. Fehlanzeige.
Ist das für Programmierprofis kein Thema? Was bietet Embarcadero für Lösungen an?

[Sir Rufo]

Die Lösung heißt: Schau in die Dokumentation!

FMX ist völlig anders als VCL und erfordert daher auch ein Einarbeiten in dieses neue und andere Framework.

Spezielle Darstellungen werden dort nun per Styles vorgenommen und statt einem Panel nimmt man ein Layout/Rectangle/Frame/etc.

[himitsu]

Jupp, Rahmen weg vom TPanel, geht nicht. Dafür gibt TLayout.
(leider hat man vergessen TLayout und Co. auch in der VCL zur Verfügung zu stellen)

Auch andere Komponenten gibt es doppelt. So gibt es z.B. eine ScrollBox jeweils mit und ohne Rahmen, anstatt dort einfach nur zwei Styles zur Verfügung zu stellen.

Hintergrundfarben und Co. sind halt auch nicht so leicht.
Aber man kann sich für eine Komponente (z.B. TEdit) einen CustomStyle erstellen lassen, dort in den Hintergrund ein TRectangle einfügen,
diesen Style eventuell noch den gewünschten Edits zuweisen, falls man nicht "Alle" oder "nur Dieses" meint.
Und wenn jetzt kann man über das TRectangle die Hintergrundfarbe es TEdits bestimmen.

In OnPaint/OnPainting einfach Canvas.Brush.Color zuzuweisen geht auch nicht, so wie man es vielerorts aus der VCL kannte.
Find ich zwar auch ein bissl umständlich und blöd, aber so isses nunmal.

Der StyleEditor scheint ein paar macken zu haben. z.B. konnte ich oftmals erstellte Komponenten nicht wieder löschen, ohne gleich den ganzen Style zu löschen und alles neu zu machen.
Und da der Style auch noch binär in der DFM steht, kann man das Eine auch nicht einfach manuell entfernen.
Oder beim Umstellen des Align bekommen das die 8 Selektion-Pünktchen nicht mit ... erst wenn man sie anklickt.


Im Formdesigner fehlen die netten Ausrichtungshilfslinien.
Bei FMX darfst du also vergessen und komplett neu anfangen. Aber sei froh, daß du nicht auch schon FMX v1 und FMX v2 gelernt hast, denn zwischendurch wurde viel daran umgebaut.

[Mavarik]

Zitat von himitsu:

In OnPaint/OnPainting einfach Canvas.Brush.Color zuzuweisen geht auch nicht, so wie man es vielerorts aus der VCL kannte.
Find ich zwar auch ein bissl umständlich und blöd, aber so isses nunmal.

Na zum glück... Firemonkey funktioniert halt ganz anders... Wäre ja auch fatal, wenn die GPU beim Rendern erst mal eine CPU Routine aufrufen müsste um eine Farbe zu ermitteln. Besondern, wenn da noch ein Filter usw. drüber liegen würde...

[Harry Stahl]

Zitat von himitsu:

Jupp, Rahmen weg vom TPanel, geht nicht. Dafür gibt TLayout.

Das stimmt so nicht. Man kann auch für das TPanel einen benutzerdefinierten Stil anlegen, wo man für den Panelstyle die "Stroke" Eigenschaft auf "None" setzt, dann hat das TPanel keinen Rahmen.

[Harry Stahl]

Zitat von himitsu:

In OnPaint/OnPainting einfach Canvas.Brush.Color zuzuweisen geht auch nicht, so wie man es vielerorts aus der VCL kannte.
Find ich zwar auch ein bissl umständlich und blöd, aber so isses nunmal.

Auch hierzu muss man ergänzen, dass es zwar nicht über Canvas.brush.color geht, aber eben z.B. so:

Delphi-Quellcode:

procedure TForm14.Panel1Paint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
  canvas.BeginScene;
  canvas.Fill.Kind := TBrushKind.bkSolid;
  Canvas.Clearrect (Arect, TAlphaColorRec.Yellow);
  canvas.EndScene;
end;

Das zeichnet das Panel in Gelb, egal was man für einen Stil zugewiesen hat. Allerdings muss man dann auch alles andere, was sich im Panel befindet, selber zeichnen, für das TPanel dann vielleicht nicht so sinnvoll. Aber hilfreich zu wissen, wenn man z.B. in einem Listbox-Item eine andere Hintergrundfarbe benötigt, oder gleich mehrere unterschiedliche Hintergrundfarben innerhalb des gleichen ListBoxItems.

Generell ist es möglich, mit dem FMX-Canvas wie zu VCL-Zeiten zu arbeiten. Wo FMX gewisse Einschränkungen hat, zeichne ich das eine oder andere eben selber über den Canvas (z.B. bei mehreren TString-Columns in einem StringGrid, die unterschiedliche Ausrichtungen haben (also Links,- rechtsbündig oder zentriert)).

Insgesamt finde ich es aber als Erleichterung, das nicht mehr tun zu müssen (über den Canvas arbeiten). Unter der VCL habe ich fast alle Grids oder Listboxen per Ownerdraw gezeichnet, unter FMX benötige ich das fast nicht mehr.

[Olli73]

Zitat von Harry Stahl:

Delphi-Quellcode:

procedure TForm14.Panel1Paint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
  canvas.BeginScene;
  canvas.Fill.Kind := TBrushKind.bkSolid;
  Canvas.Clearrect (Arect, TAlphaColorRec.Yellow);
  canvas.EndScene;
end;

Das zeichnet das Panel in Gelb, egal was man für einen Stil zugewiesen hat. Allerdings muss man dann auch alles andere, was sich im Panel befindet, selber zeichnen, für das TPanel dann vielleicht nicht so sinnvoll. Aber hilfreich zu wissen, wenn man z.B. in einem Listbox-Item eine andere Hintergrundfarbe benötigt, oder gleich mehrere unterschiedliche Hintergrundfarben innerhalb des gleichen ListBoxItems.

Hinweis und Zusatzfrage:

Man kann ja auch mit FindStyleResource('...') sich ein (Fmx-)Objekt aus dem Style holen und dann dort Farbe etc. setzen - funktioniert auch soweit. Bei TPanel ist es allerdings so, dass der Style nur aus einem TRectangle besteht und obige Funktion findet dieses Objekt (panelstyle) nicht, da es scheinbar nur in Unterobjekten sucht. An den Panelstyle (oberstes Objekt) kommt man zwar auch mittels TStyledControl.FResourceLink heran, aber da dieses protected ist, muss man sich eine Klasse ableiten, die dies veröffentlicht und dann einen harten Typecast machen. Funktioniert; aber ist das so gewollt oder gibt es eine andere/bessere Möglichkeit?

[Harry Stahl]

Eine andere / bessere Variante, um an den Original-Panelstyle ranzukommen, kenne ich auch nicht. Wenn man sich mal die FindStyleRessource-Implementierung ansieht, bin ich mir gar nicht so sicher, ob das evtl. ein Fehler ist, die Style-Ressource hier in diesem Falle nicht zurückzuliefern..

Aber statt hier mit Hacks zu arbeiten, kann man sich auch einfach eine 2. StyleRessource erstellen (mit den notwendigen Abweichungen) und dann dem Object (also hier dem Panel) einfach diesen Style (Eigenschaft StyleLookup) zuweisen (also z.B. ein PanelStyleRed, ein PanelStyleBlue).

[Sel2012]

[QUOTE=Harry Stahl;1304932]

Zitat von himitsu:

Delphi-Quellcode:

procedure TForm14.Panel1Paint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
  canvas.BeginScene;
  canvas.Fill.Kind := TBrushKind.bkSolid;
  Canvas.Clearrect (Arect, TAlphaColorRec.Yellow);
  canvas.EndScene;
end;

Es ist, als würde ich bei Null anfangen. Beim <Ausführen> klemmt's (ohne Fehlermeldung).
Auslöser der Aktion soll Button1 sein (Procedure Button1Click). Panel1 wurde aus der Tool-Palette kreiert.
Wer erkennt wo, dass es sich um Panel1 handelt?
Panel1.canvas. nützt nix.
Das ist so ein Beispiel, dass nur den Schluss zulässt, dass Dummis hier nichts zu suchen haben. Aber wer hilft angemessen,d.h. ausreichend ausführlich?

Danke für die Geduld.

[Sel2012]

[QUOTE=Harry Stahl;1304932]

Zitat von himitsu:

Delphi-Quellcode:

procedure TForm14.Panel1Paint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
  canvas.BeginScene;
  canvas.Fill.Kind := TBrushKind.bkSolid;
  Canvas.Clearrect (Arect, TAlphaColorRec.Yellow);
  canvas.EndScene;
end;

Das zeichnet das Panel in Gelb,...

Es geht auch ganz simpel(siehe Anhang) Anfängerglück (?):
Aus der Ruhelage (Blau) werden über Button1 oder Button2 andere Farben gewählt. Das klappt ganz stabil. Die Zuordnung / Farbwahl findet über <if> statt.
Ich wüsste aber gern den Code für den Aufruf von
procedure TForm2.Panel1Paint(Sender: TObject; Canvas: TCanvas;const ARect: TRectF);
direkt über z.B. Button1Click.