Formatierung

Tilo · Verfasst: Mo 25.05.09 16:39

Ich steuer dann auch mal eine Variante bei.
Basis ist folgendes:

BenBE hat folgendes geschrieben :

Also mein Favorit ist das hier:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

  if PointInRect(
    Point(X, Y),
    Rect(
      Width div 2 - 200, Height div 2 - 75,
      Width div 2 + 200, Height div 2 + 75
      )
    ) then
  begin
  ...
  end;

daraus wird:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

  
 if PointInRect( Point(X, Y),
                 Rect( Width div 2 - 200, Height div 2 - 75,
                       Width div 2 + 200, Height div 2 + 75 )  
               ) then
 begin
   ...
 end;

Ich spare lieber etwas Zeilen.
Leider geht das in Delphi nicht so gut wie z.B. in Java.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme