Ja, stimmt, die haben wohl einen Defaultwert<>null.FlashBurn hat geschrieben:Ich habe allerdings eine Idee woran es liegen kann, den Anchors. Ich muss nur mal gucken wie ich die alle deaktivieren kann.
Was ich ein wenig komisch finde. Ich weiß das Lazarus bzw die LCL alles abstrahiert, wie bei Java, um Plattformunabhängig zu sein, aber das es dann sogar langsamer als Java ist, verwundert mich ein wenig.Code: Alles auswählen
uses ExtCtrls;
....
TForm1 = class(TForm)
procedure FormCreate(Sender:TObject);
procedure FormResize(Sender:TObject);
procedure PBPaint(Sender:TObject);
private
{ private declarations }
public
{ public declarations }
end;
...
Procedure TForm1.FormCreate(Sender:TObject);
Var aPB: TPaintBox;
i: integer;
Begin
For i:=0 To 4 Do
Begin
aPB := TPaintBox.Create(self);
aPB.Parent := Self;
aPB.Anchors := [];
aPB.Tag := i;
aPB.OnPaint := @PBPaint;
End;
End;
Procedure TForm1.FormResize(Sender:TObject);
Var i,num,w: integer;
Begin
For i:=0 To ComponentCount-1 Do
Begin
If Components[i] is TPaintBox Then
Begin
num := TPaintBox(Components[i]).Tag;
w := ClientWidth Div 5;
TPaintBox(Components[i]).SetBounds(w*num+2,2,w-4,40);
End;
End;
End;
Procedure TForm1.PBPaint(Sender:TObject);
Begin
TPaintBox(Sender).Canvas.Brush.color := clLtGray;
TPaintBox(Sender).Canvas.Pen.color := clGray;
TPaintBox(Sender).Canvas.Rectangle(TPaintBox(Sender).ClientRect);
End;
Ich habe zwar nicht nur 5 Objekte (da läuft es einigermaßen schnell), aber 200 Objekte sollten jetzt auch nicht so schlimm sein!Ich sags mal so, ich habe nur geresizt, um zu testen ob mein Code der die Größe und Position berechnet auch funktioniert und wenn man als Benutzer ein Fenster einfach mal ein wenig größer macht, dann sollte das wirklich nicht so langsam ablaufen. Vorallem zeichne ich ja nicht mal viel und unter Java geht es schneller und Java läuft noch in einer VM. Eigentlich nimmt man ja (zumindest ich und viele andere auch) Lazarus/Delphi um schnell mal ne Anwendung mit ner GUI zusammen zu basteln, die dann auch wesentlich performanter als Java ist, aber wenn das immer so ist wie jetzt bei mir. Dann kann ich gleich alles in Java machen.bei mir geht das schnell. Aber was musst du auch dauernd resizen?
Antwort:Meine Frage war: Hast du denn meinen Code so wie er ist mal getestet?
Also jein. Ich habe deinen Code nicht 1:1 übernommen, sondern habe meinen alten Code verwendet, aber habe ne PBPaint procedure und schreibe diese bei den PaintBoxes in das OnPaint Event rein. Habe ich nur 5 Objekte, so wie du in deinem Bsp., dann läuft es so wie ich es mir vorstelle, aber auch wenn ich 200 Objekte habe, sollte es so laufen!Hab gerade mal meinen Code umgeschrieben, so dass ich auch ne PBPaint procedure habe und diese bei OnPaint reinschreibe.
Code: Alles auswählen
uses types...
Procedure TForm1.FormPaint(Sender:TObject);
Var i,w,h,x,y: integer;
Begin
x := 0;
y := 0;
Canvas.Brush.color := clLtGray;
Canvas.Pen.color := clGray;
w := ClientWidth Div 10;
h := ClientHeight Div 10;
For i:=0 To 99 Do
Begin
If (i>0) Then
If (i Mod 10=0) Then
Begin
inc(y,h);
x := 0;
End
Else inc(x);
Canvas.Rectangle(w*x+2,2+y,w*x+2+w-4,h+2+y-4);
End;
End;
function TForm1.ItemFromPoint(Point:TPoint; var ARect:TRect):integer;
Var i,w,h,x,y: integer;
Begin
Result:=-1;
x := 0;
y := 0;
w := ClientWidth Div 10;
h := ClientHeight Div 10;
For i:=0 To 99 Do
Begin
If (i>0) Then
If (i Mod 10=0) Then
Begin
inc(y,h);
x := 0;
End
Else inc(x);
if PtInRect(Rect(w*x+2,2+y,w*x+2+w-4,h+2+y-4),Point) then
begin
ARect:=Rect(w*x+2,2+y,w*x+2+w-4,h+2+y-4);
Result:=i;
exit;
end;
End;
end;
procedure TForm1.FormMouseDown(Sender:TObject;Button:TMouseButton;Shift:
TShiftState;X,Y:Integer);
var ARect:TRect;
item:integer;
begin
item:=ItemFromPoint(Point(X,Y),Arect);
if item>-1 then
begin
Canvas.Brush.Color:=clred;
Canvas.FillRect(ARect);
ShowMessage(Inttostr(Item));
Canvas.Brush.color := clLtGray;
end;
end;Dann würde ich behaupten, dass Lazarus in diesen Fall "Unschuldig" ist.... Ich habe aber noch von ganz anderen "Sachen" gehört. MS macht einfach sein Windows von Version zu Version Inkompatibel zu einander. Um den Nutzer zu zwingen umzusteigen.Ein LM_Paint wird dort (zeitlich?) anders gehandhabt als unter XP. Ein workaround war, den Kompatibilitätsmodus zu aktivieren.
Code: Alles auswählen
ControlA.AnchorSide[akLeft].Side := asrLeft;
ControlA.AnchorSide[akLeft].Control := ControlB;
ControlA.AnchorSide[akTop].Side := asrCenter;
ControlA.AnchorSide[akLeft].Control := ControlB;
Verein
Links
Suche