E-LAB Computers
 

Compiler-Problem mit TFT-Display

Harry
Moderator
Avatar
Geschlecht:
Herkunft: zwischen Augsburg und Ulm
Alter: 61
Beiträge: 2180
Dabei seit: 03 / 2003
Betreff:

Compiler-Problem mit TFT-Display

 · 
Gepostet: 13.06.2020 - 16:24 Uhr  ·  #1
Hi @ all,

um es kurz zu machen: mit der Version 5.09.00 funktioniert es, mit der aktuellen nicht.
Wurde da was geändert?

Harry
Anhänge an diesem Beitrag
Compiler-Problem mit TFT-Display
Dateiname: Version 5.09.00.jpg
Dateigröße: 121.12 KB
Titel:
Heruntergeladen: 273
Compiler-Problem mit TFT-Display
Dateiname: Version 5.10.07.jpg
Dateigröße: 120.19 KB
Titel:
Heruntergeladen: 269
Procedure Haupt_Menue_Aufbau;
Begin
gClrScr(byte(myBkGround));
gSetTextColor(byte(clYellow));
gSetTextBkGnd(bkNormal);
gSetBkColor(byte(myBkGround));
gSetTextMode(wmSetPix);
gSetTextColor(byte(clGreen));
gDrawString(300, 25, 2, 2, TxtRot0, 'Hauptmenue');
GDrawline(0, 30, 800, 30, $FF, byte(clRed));

gSetBkColor(byte(myBtnColor)); // clBlack

gFillRect (60, 60, 330, 120, byte(myBtnColor)); // Handfahrt
gDrawButtonFrame(60, 60, 330, 120, byte(clCream), byte(clDkGray));
gSetTextColor(byte(clGreen));
gDrawString(70, 95, 2, 2, TxtRot0, 'F1');
gSetTextColor(byte(clYellow));
gDrawString(100, 95, 2, 2, TxtRot0, 'Handfahrt');

gFillRect (60, 140, 330, 200, byte(myBtnColor)); // G-Code MMC Fahrt
gDrawButtonFrame(60, 140, 330, 200, byte(clCream), byte(clDkGray));
gSetTextColor(byte(clGreen));
gDrawString(70, 175, 2, 2, TxtRot0, 'F2');
gSetTextColor(byte(clYellow));
gDrawString(100, 175, 2, 2, TxtRot0, 'G-Code MMC');

gFillRect (60, 220, 330, 280, byte(myBtnColor)); // Excellon Fahrt
gDrawButtonFrame(60, 220, 330, 280, byte(clCream), byte(clDkGray));
gSetTextColor(byte(clGreen));
gDrawString(70, 255, 2, 2, TxtRot0, 'F3');
gSetTextColor(byte(clYellow));
gDrawString(100, 255, 2, 2, TxtRot0, 'Excellon');

gFillRect (60, 300, 330, 360, byte(myBtnColor)); // Werkzeug Fahrt
gDrawButtonFrame(60, 300, 330, 360, byte(clCream), byte(clDkGray));
gSetTextColor(byte(clGreen));
gDrawString(70, 335, 2, 2, TxtRot0, 'F4');
gSetTextColor(byte(clYellow));
gDrawString(100, 335, 2, 2, TxtRot0, 'Werzeugfahrt');

gFillRect (60, 380, 330, 440, byte(myBtnColor)); // Werkzeug Fahrt
gDrawButtonFrame(60, 380, 330, 440, byte(clCream), byte(clDkGray));
gSetTextColor(byte(clGreen));
gDrawString(70, 415, 2, 2, TxtRot0, 'G');
gSetTextColor(byte(clYellow));
Dateiname: TFT.txt
Dateigröße: 4.31 KB
Titel:
Heruntergeladen: 271
Gewählte Zitate für Mehrfachzitierung:   0

Registrierte in diesem Thema

Aktuell kein registrierter in diesem Bereich

Die Statistik zeigt, wer in den letzten 5 Minuten online war. Erneuerung alle 90 Sekunden.