Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by oki,
29. Aug 2007
Klar, begriffen!
gruß oki
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by oki,
29. Aug 2007
Hi Gruber_Hans_12345,
auch dir herzlichen Dank für deine Antworten. Nach dem zweiten Überlegen ist dein Codevorschlag wirklich interessant. Leider trifft er aber nicht den Kern meines aktuellen Problemes. Ich versuch es noch mal zu erklären.
Mir geht es an dieser Stelle nicht darum, dass ich in meiner Compo in den definierten Clientbereich zeichne. Ich möchte, dass andere Kompos von mir zur...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by oki,
27. Aug 2007
Tja, leider hab ich es über das Parent-Control noch nicht hin bekommen. :cry:
Aus diesem Grund hab ich es jetzt so gemacht, dass beim Verschieben des Controls geprüft wird, ob es sich im ClientRect des Parents befindet. Wenn nicht, dann wird die Position korriegiert.
Gruß oki
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by oki,
25. Aug 2007
Also nun seh ich gar nicht mehr durch.
Ich hab das Beispiel mit den Panels mal eben in meinem D5 getestet. Das sieht genau so aus. Wenn mich einer gefragt hätte, hätte ich schwören wollen, dass man das enthaltene Panel nicht über den Rand des contained-Panels schieben kann. Offensichtlich ist das aber so.
Warum überschreibt dann TCustomPanel die Methode AdjustClientRect?
Gruß oki
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by oki,
25. Aug 2007
Hi Hawkeye219,
auch Realign hats nicht gebracht.
Ich bin jedoch gerade mächtig verwirrt. Ich hab in die Implementierung von TCustomPanel geschaut. Da sieht es genau so aus, wie wir es machen. Nun hab ich mal ein Panel in ein Panel gelegt, um mir das mal anzuschauen. Das Ergebnis ist im Anhang.
Was ist denn das?
Bin ich blöd oder mein D2007?
So soll das doch auch nicht aussehen?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by oki,
25. Aug 2007
Hi Hawkeye219,
leider hat folgende Implementierung keine Änderungen gebracht:
procedure TBaseRTControl.AdjustClientRect(var Rect: TRect);
begin
// inherited;
if FShowTitle then begin
Rect := classes.Rect(1, Abs(self.Canvas.Font.Height) + 7, Width - 1, Height - 1);
end else begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by oki,
25. Aug 2007
Hi unwissender,
Ich möchte es weitgehenst vermeiden, dass weitere Komponenten in meinem Control enthalten sind. Ich überarbeite gerade meine aktuelle Programmversion. Die elemente werden alle zur Laufzeit hinzugefügt. Das sin dann zum Schluss mehrere hundert (ist wirklich so, und ich war auch überrascht). In den einzelnen Controls weitere Kompos einzubinden hat in der Vergangenheit beim...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by oki,
25. Aug 2007
Hi Leute,
ich habe eine eigene Komponente abgeleitet von TCustomControl, die als Container für andere Controls dient. dieser Compo habe ich einen Tietel gegeben. Nun ist es aber so, dass meine enthaltenen Kompos über diesen Titel verschoben werden können. Bsp. im Anhang.
wie kann ich den ClientBereich für die Contained-Components in meinem Panel eingrenzen, so dass sie nur bis zum unteren...