TLine - Canvas an Line ausrichten

[Bjoerk]

Zitat:

Wenn die Linien dicker werden, dann geht das aber nicht so einfach.

Genau!!

Zitat:

Du könntest der Komponente eine Methode spendieren, die das Rechteck der Komponente entsprechend vergrössert:

Also, wenns so einfach geht wäre natürlich super. Probier ich sofort aus. Thanx! Hoffe Paint spielt dann nicht verrückt...

[Bjoerk]

Nee, das geht nicht. Wo sollte ich das auch hinschreiben? In Paint geht ja nicht. Da würde ja bei jedem Paint With und Height der Komponente vergrößert. Width und Height sind ja die von TGraphicControl geerbten. Deshalb meinte ich, man sollte die Komponente vielleicht von was ganz anderem ableiten, nur von welcher? wobei ich die Mauseereignisse schon bräuchte..

[Bjoerk]

Was mir gestern abend noch eingefallen ist, was ich brauch' nennt man wohl Autosize.

Deshalb schau ich mir gerade die TCustomLabel an, weil die auch von TGraphicControl ebgeleitet ist und ein Autosize hat (die Komponentenhöhe wird da ja auch anhand der Fontgröße gesetzt, falls Autosize true ist).

In diesem Zusammenhang ist bei mir folgende Frage aufgetaucht:

Delphi-Quellcode:

  TCustomLabel = class(TGraphicControl)
    ..
  public
    .. 
    property Caption;
    property Canvas;
  end;

Die beiden Properties. Diese Syntax ist mir nicht bekannt.
Wieso weiß denn Delphi, von welchem Typ die sind?

[Bummi]

Die Property ist in TControl als protected implementiert und wird in TCustomLabel sichtbar gesetzt (public)

TCustomLabel/TGraphicControl/TControl

[Bjoerk]

Ok. Thanx.

Die Methode Loaded war mir auch nicht bekannt. Es geht so, wie sx2008 vorgeschlagen hat. Hab aber nicht gewußt, daß das nach Loaded rein muß. Was aber immer noch nicht geht, daß es zur Designzeit angezeigt wird.

Delphi-Quellcode:

procedure TLine.Loaded;
begin
  inherited Loaded;
  AdjustBounds;
end;

[stahli]

Ich würde der Komponente eigene Propertys zuweisen:
X1, Y1 ... für Point1
X2, Y2 ... für Point2
LW ... für Linienbreite
LA für LineAlign

Dann kannst Du Left, Top, With und Height die Komponente selbst berechnen lassen (veranlasst durch die Setter der neuen Propertys):

Left := Min(X1, X2) - (LW div 2);
Top := Min(Y1, Y2) - (LW div 2);
Width := Max(X1, X2) - Min(X1, X2) + (LW div 2);
Height := Max(Y1, Y2) - Min(Y1, Y2) + (LW div 2);

(so ins unreine...)

[Bjoerk]

Ja Stahli, das ist für hier wirklich sehr sehr viel einfacher. Dann wird zur Designzeit auch gleich alles richtig angezeigt.

Das einzige was ich jetzt noch hab ist: Width und Height sind ja vom UrUrVorfahren. Wie kriegt denn meine Komponete mit, daß die sich geändert haben. Ich muß ja dann X1/Y1 und X2/Y2 entsprechend anpassen?

Delphi-Quellcode:

procedure TLine.SetX1(const Value: integer);
begin
  FX1 := Value;
  Left := FX1 - OffSet;
end;

procedure TLine.SetX2(const Value: integer);
begin
  FX2 := Value;
  Width := FX2 - FX1 + OffSet + OffSet;
end;

procedure TLine.SetY1(const Value: integer);
begin
  FY1 := Value;
  Top := FY1 - OffSet;
end;

procedure TLine.SetY2(const Value: integer);
begin
  FY2 := Value;
  Height := FY2 - FY1 + OffSet + OffSet;
end;

function TLine.OffSet: integer;
begin
  Result := FPen.Width div 2;
end;

[stahli]

Die Setter dürften virtuell sein, aber ich würde einfach Resize überschreiben (und prüfen, ob die Änderung von deinen neuen Eigenschaften kommt oder nicht).