Bug in TEditButton

[UGerd]

Lazarus 0.9.28.2 r22279 FPC 2.2.4 i386-win32-win32/win64
Problem bei ersten Gehversuchen mit Lazarus:
Der Button zu TEditButton ist bei nur zu sehen, wenn Align=alNone.
Nach dem Wechsel zu alTop ist der Button verschwunden. Habe ich einen Bug entdeckt?

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
     with EditButton1 do
          if Align <> alTop then
          begin
             Align := alTop;
          //Button lost;
          end
          else
          begin
              Align := alNone;
          //Button visible
          end;
end;

Leider weiß ich nicht, wie ich ein Beispielprogramm beilegen kann.
Gruß
Uwe

[u-boot]

Willkommen UGerd,

Ja du hast einen Bug entdeckt.
Dieser ist im Bugtracker auf http://bugs.freepascal.org" onclick="window.open(this.href);return false; schon gelistet. (Direkt zu deinem Bug: http://bugs.freepascal.org/view.php?id=12155" onclick="window.open(this.href);return false; )
Nur so nebenbei oder vorneweg: Falls du mal Bug-Reports schreiben willst, wäre es besser eine aktuelle SVN-Version zu nutzen.

Für diese recht einfache Sache braucht es noch kein Beispielprogramm.
Falls es doch mal irgendwann nötig sein sollte:
- Projektordner säubern lassen
- Ausführbare Datei löschen.
- Ordner in ein Archiv zusammenfassen.
- Unterm Schreibfeld gibts im Forum einen Reiter Dateianhang hochladen.

[corpsman]

Also an sich hast du alles Richtig gemacht .

Ich habe das ganze mal unter Kubuntu 10.10 fpc 2.4.2-1Lazarus SVN 29692
getestet, und bei mir bleibt das Edit sichtbar der Button verschwindet.

[UGerd]

Danke für die Tipps, für mich ist die Frage vorerst beantwortet!
Uwe