Forum: Object-Pascal / Delphi-Language
by mimi,
10. Sep 2009
Das währe eine Erklärung. Ich frage mich auch, warum Trotzdem ein Hintergrund gezeichnet wurden ist, zwar der Falsche aber immerhin.
Aber das währe eine Erklärung. Nun ja, ich konnte gestern endlich weiter machen. Das ist die Hauptsache.
Ich finde die Klassenstruktur gar nicht so schlecht, oder ?
Forum: Object-Pascal / Delphi-Language
by mimi,
9. Sep 2009
Problem endlich gelöst. Vielen Dank an Blup.
Die Lösung war ganz einfach(wie ich es mir gedacht hatte, nur ich habe sie übersehen bzw. nicht dran gedacht):
Die Lösung erklärt zwar nicht das Komische Verhalten, aber löst das Problem auf dem Ersten Blick.
Forum: Object-Pascal / Delphi-Language
by mimi,
9. Sep 2009
Ich habe noch mal etwas nach geforscht und mir ist ein weiterer Fehler aufgefallen:
procedure TPLTE_ObjectBaseSurface.Paint;
begin
if Visible then begin
Style.ToCanvas(canvas);
if (self is TPLTE_ObjectSTD_TextLink) then begin
writeln(assigned(Style.Brush));
end;
Forum: Object-Pascal / Delphi-Language
by mimi,
9. Sep 2009
Ich habe es jetzt so probiert:
procedure TPLTE_Style_ObjectSurface.SetBoder(const AValue: TPLTE_Style_Border);
begin
fBorder.Assign(AValue);
end; // TPLTE_Style_ObjectSurface.SetBoder
procedure TPLTE_Style_ObjectSurface.SetBrush(const AValue: TPLTE_Style_Brush);
begin
fBrush.Assign(AValue);
end; // TPLTE_Style_ObjectSurface.SetBrush
Forum: Object-Pascal / Delphi-Language
by mimi,
9. Sep 2009
Danke für den Tipp. Ich werde es gleich mal Testen.
Das heißt also, jedes Objekt sollte seine eigene Style Klasse erzeugen. Beim Schreibzugriff verwende ich dann einfach Assigen und Caste dann.
PS: Ich habe dir eine PM gesendet. Der Soruce-Code ist nicht gerade aufgeräumt du wirst viele "Code Leichen" finden. Es ist halt ein Prototyp.
Forum: Object-Pascal / Delphi-Language
by mimi,
8. Sep 2009
Du meinst ich verwende in der Text Objekt Klasse z.b. den Style Text Objekt, sollte diese Klassen diesen Style erzeugen, aber sollte jetzt auch die Surface Klasse, ein eigenen Style erstellen und per Assign die Notwendigen Eigenschaften übernehmen ? Quasi so:
So ähnlich hatte ich das am Anfang. Das mit Assign ist neu. Das könnte ich versuchen.
Es gibt noch zwei Units, an den es...
Forum: Object-Pascal / Delphi-Language
by mimi,
7. Sep 2009
Hallo,
vor vier Tagen habe ich hier eine Frage gestellt: http://www.lazarusforum.de/viewtopic.php?f=18&t=2905 könnt ihr sie mir beantworten ?
Wenn ihr mir Informationen braucht könnt ihr es gerne sagen. Das Projekt möchte ich eigentlich noch nicht Hochladen, aber wenn jemand wirklich bereit ist sich das Projekt anzuschauen würde ich es ihn zukommen lassen. Ich komme aufjedenfall seit Tagen...