OnPaint feuert nicht

[pluto]

Nach Bilden oder uns das Projekt zuverfügung stellen kannst du nicht oder? oder uns mehr Code zeigen.
Vielleicht ist das Event nicht verbunden im OI. Es kann an alles liegen.

[Heinrich Wolf]

Der Quellcode liegt im Lazarus Bugtracker. Link zum Bugtracker von weiter oben hier nochmal:
http://bugs.freepascal.org/view.php?id=19488" onclick="window.open(this.href);return false;
Direktlink zom Quellcode dort:
http://bugs.freepascal.org/file_downloa ... 3&type=bug" onclick="window.open(this.href);return false;

[shokwave]

Hi,

ich hab mir das Projekt mal angeschaut und mein Lazarus scheint mit den ganzen ifdefs Probleme zu haben. Er hat mir die Unit "Windows" angemeckert, obwohl er sie laut ifdef gar nicht beachten sollte. Ich habe es dann wie folgt geändert:

Code: Alles auswählen

uses
  {$ifdef UNIX}
    Sockets,
    LibC,
    BaseUnix,
  {$endif UNIX}
  {$ifdef WINDOWS}
    {$ifdef fpc}
      Sockets,
    {$endif fpc}
    WinSock,
    Windows,
  {$endif WINDOWS}

Jetzt werden im OI die Prozeduren korrekt angezeigt. Leider kann ich das Projekt nicht testen, da ich das gleiche Problem wie Juha habe.

[Heinrich Wolf]

Das Problem mit den ifdefs hab ich auch. Bisher hatte ich keine Lösung. Aber Deine Idee ist gut! Allerdings muss das Symbol für Windows nicht Windows, sondern Win32 heißen.

[shokwave]

Allerdings muss das Symbol für Windows nicht Windows, sondern Win32 heißen.

Dann wird aber Windows 64-bit ausgeschlossen.

test for families of OSes.

{$ifdef MSWindows}
// ce + win32 + win64, delphi compat
{$endif]
{$ifdef Windows}
// ce + win32 + win64, more logical.
{$endif]
{$ifdef Unix}
// all Unix like OSes. Linux/*BSD/OS X and Solaris. BeOS too if it ever released again.
{$endif}
{$ifdef BSD}
// Free/Net/OpenBSD and Mac OS X
{$endif}

Specific OSes

{$ifdef win32}
// 95/98/ME and 32-bit NT/2k/XP/Vista
{$endif}
{$ifdef win64}
// 64-bit/XP/Vista
{$endif}
{$ifdef wince}
// Windows CE family including PocketPC 2003 and Windows Mobile 5
{$endif}
{$ifdef Linux}
// linux}
{$endif}
{$ifdef FreeBSD}
// FreeBSD
{$endif}
{$ifdef Darwin}
// Darwin is the base OS name of Mac OS X, like NT is the name of the Win2k/XP/Vista kernel. Mac OS X = Darwin + GUI.
{$endif}
{$ifdef SunOS}
// similarly with Solaris. Ifdef solaris also works though.
{$endif}
// additionally OS2 , netware, netwlibc (Linux based Novell), BeOS, AmigaOS.

siehe http://delphi.wikia.com/wiki/FreePascal ... versioning

[Heinrich Wolf]

Das Projekt soll laufen auf

• Lazarus Linux 32 Bit,
  Lazarus Windows 32 Bit und
  Delphi 5

Ich hab noch kein 64 Bit Betriebssystem.
Und ich hab schon Antworten gekriegt, dass es auf Linux 64 Bit nicht compilierbar ist, weil ich die LibC verwende.
Delphi 5 definiert nur Win32, nicht MSWindows

[Heinrich Wolf]

Mit

Code: Alles auswählen

Uses
{$ifdef Unix}
  LibC,
{$endif}
{$ifdef Win32}
  Windows,
{$endif}

an Stelle von

Code: Alles auswählen

Uses
{$ifdef Unix}
  LibC,
{$else}
  Windows,
{$endif}

läuft mein Projekt unverändert auf meinen Zielplatformen

• Lazarus Linux 32 Bit,
  Lazarus Windows 32 Bit und
  Delphi 5

Jetzt beschwert sich die Linux IDE nicht mehr über "Windows nicht gefunden" und ich kann im Objekt Inspektor von MainForm aus der Liste der Event Handler auswählen. Aber OnPaint von MainForm feuert auf Linux immer noch nicht.

[pluto]

Lösch mal alle *.ppu und *.o Dateien in deinen Verzeichnis.

[Heinrich Wolf]

Alle *.ppu und *.o lösche ich sowieso schon immer wieder. Das beseitigt den OnPaint Fehler nicht.

[shokwave]

Ich hab zwar keine Ahnung warum der OnPaint nicht ausgelöst wird, aber so wie ich den Code verstehe

Code: Alles auswählen

procedure TMainForm.FormPaint(Sender: TObject);
  begin
    if Start then
      begin
        Start := False;
        NewColors;
        InitNetwork;
        ShowPanel(True);
        NetworkThread := tNetworkThread.Create(False);
      end;
  end;

wird der nur ein mal bei Programmstart aufgerufen. Wenn das stimmt, kannst du auch das OnShow-Ereignis verwenden.

[Socke]

wird der nur ein mal bei Programmstart aufgerufen. Wenn das stimmt, kannst du auch das OnShow-Ereignis verwenden.

Wir wärs mit AddFirstShowHandler()? Dann wird die Funktion auch nur einmal aufgerufen (beim ersten Anzeigen).

[shokwave]

Klingt interessant. Kann leider nix dazu finden. Wo kommt die her (Unit)?

[Socke]

Sry, Hatte mich verschrieben; vollständig heißt’s:

Code: Alles auswählen

TCustomForm.AddHandlerFirstShow();

existiert also in jedem Formular; Funktionsweise ist denkbar einfach: einfach während des Konstruktors (OnCreate gehört auch dazu) aufrufen und alles wird beim ersten Anzeigen abgearbeitet.

[Heinrich Wolf]

Ich habe einen Breakpoint gesetzt in lcl/include/customcontrol.inc auf

Code: Alles auswählen

procedure TCustomControl.Paint;
begin
  if Assigned(FOnPaint) then FOnPaint(Self);
end;

Auf Windows wird dieser Breakpoint getriggert für Mainform, Panel and ToolBar.
Auf Linux wird dieser Breakpoint nur für Panel and ToolBar getriggert.

@shokwave: Kurz bevor ich Deinen Beitrag gelesen hab, hatte ich dieselbe Idee mit OnShow. Damit ist die Funktion auch bei Linux wieder hergestellt. Danke!
@Socke: AddHandlerFirstShow ist eine schöne Sache! Leider wird das nicht von Delphi 5 unterstützt.

[Heinrich Wolf]

Vielleicht ging das ja noch nie.

Im letzten funktionierenden Code vor den ganzen Änderungen war OnPaint ein unwichtiger Code, den man nicht bemerkte, wenn er nicht ausgeführt wurde. Der wichtige Code, der den NetworkThread erzeugte, war damals in OnCreate drin.

Take it easy für Linux ist aus Take it easy für Delphi 5 entstanden. Erst mal habe ich den Code von Delphi 5 getrennt und an Linux angepasst. Bei den letzten Änderungen habe ich die *.pas über ifdef wieder mit Delphi 5 zusammengeführt. Dabei habe ich das Erzeugen des NetworkThread nach OnPaint verschoben. Nach den letzten Erfahrungen und der erfreulichen Hilfe hier habe ich das Erzeugen des NetworkThread sowohl für Delphi 5, als auch für Linux nach OnShow verschoben.

Das aktuelle Projekt liegt hier:
http://www.Wolf-Fuerth.de/
http://www.Wolf-Fuerth.de/tewin_de.htm
http://www.Wolf-Fuerth.de/downl1de.htm#TeLinux
http://www.Wolf-Fuerth.de/takeeasy.src.zip