Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Jonas Shinaniganz,
4. Apr 2012
:) Super! Genau das habe Ich gebraucht! :thumb::thumb::thumb:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Jonas Shinaniganz,
4. Apr 2012
Wenn Ich beim Msg Parameter eine 0 übergebe bekomme ich keine Fehlermeldung mehr aber auch keine Reaktion.
SendMessage(TAdvCustomGraph(Parent).Handle, 0, Message.WParam, Message.LParam);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Jonas Shinaniganz,
4. Apr 2012
Ich möchte die ja sozusagen Features von TImage nutzen,
Einfache Dinge, wie zb ein paar Striche und Kreise sollen dann auf dem TImage gezeichnet werden und auch wieder verschwinden, ohne dabei das Draw der Hauptkomponente auszulösen welche Hunderttausende von Punkten aus Arrays läd und sehr lange braucht um sich nach invalidate; wieder zu zeichnen.
vielleicht kann man es sich ganz gut wie...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Jonas Shinaniganz,
4. Apr 2012
Okay Ich versuche nochmal besser zu beschreiben was Ich mache:
Ich habe eine Klasse, TImage mit einer weiteren Prozedur welche aufgerufen wird wann immer eine Message gesendet wurde.
TOverLayImg = class(TImage)
protected
procedure WndProc(var Message: TMessage); override;
end;
{ TOverLayImg }
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Jonas Shinaniganz,
4. Apr 2012
Immoment bekomme Ich die Fehlermeldung 'Element hat kein übergeordnetes Fenster'
Das führe Ich aus:
procedure TOverLayImg.WndProc(var Message: TMessage);
begin
inherited;
if Self.Parent <> nil then
SendMessage(Parent.Handle, Message.Msg ,Message.WParam, Message.LParam);
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Jonas Shinaniganz,
4. Apr 2012
Um etwas präziser zu sein, eigentlich brauche Ich nur etwas Hilfe beim Befehl: SendMessage();
Ich habe eine:
und möchte diese nun an eine Instanz von meiner Komponenten-Klasse weiterleiten. Parameter u.ä. sollen nicht verändert werden.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Jonas Shinaniganz,
4. Apr 2012
Immoment arbeite Ich an einer Komponente und brauche nun ein TImage, welches die ganze Komponente überdeckt und auf dem Ich zeichnen kann ohne die eigentliche Canvas der Komponente zu verwenden.
FZoomRectImg.Aling := alClient;
FZoomRectImg.Transparent := true;
FZoomRectImg.Picture.Bitmap.TransparentColor := TransColor;
Das Problem ist für mich eigentlich nur, wie ich sämtliche...