![]() |
Re: [oop] funktion einer oberklasse von einer unterklasse au
Zitat:
P.S.: eigene Klasse TField sollte nicht so bezeichnet werden. Das Wort ist von Delphi bereits belegt. Das kommt davon, wenn man keine deutschen Bezeichner verwendet und solche Probleme wohl gar nicht erst auftauchen würden. Wenn schon, dann "TFeld". :mrgreen: |
Re: [oop] funktion einer oberklasse von einer unterklasse au
Zitat:
Delphi-Quellcode:
Und schon sind sie quadratisch angeordnet.
procedure TMemoryField.IniTMemoryField;
var i : Integer; Card : TCard; begin for i := 0 to FCountCards - 1 do begin Card := TCard.Create(nil); Card.Parent := FParent; Card.Font.Style := [fsBold]; Card.Font.Size := 14; Card.OnFlip := OnFlip; Card.Height := 50; Card.Width := 50; Card.Left := (Card.Width + FPadding) * (i div Trunc(sqrt(FCountCards))); Card.Top := (Card.Height + FPadding) * (i mod Trunc(sqrt(FCountCards))); if not Odd(i) then Card.Value := i else Card.Value := i - 1; Add(Card); end; end; Zitat:
Ich habe es noch etwas ausgearbeitet. Ich werde es gleich hier vorstellen in der OpenSource-Sparte. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:28 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz