Compiler-Problem mit TFT-Display

Harry
Moderator
Avatar
Gender:
Location: zwischen Augsburg und Ulm
Age: 59
Posts: 2134
Registered: 03 / 2003
Subject:

Compiler-Problem mit TFT-Display

 · 
Posted: 13.06.2020 - 16:24  ·  #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
Attachments
Compiler-Problem mit TFT-Display
Filename: Version 5.09.00.jpg
Filesize: 121.12 KB
Title:
Download counter: 79
Compiler-Problem mit TFT-Display
Filename: Version 5.10.07.jpg
Filesize: 120.19 KB
Title:
Download counter: 72
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));
Filename: TFT.txt
Filesize: 4.31 KB
Title:
Download counter: 79
Selected quotes for multi-quoting:   0

Registered users in this topic

Currently no registered users in this section

The statistic shows who was online during the last 5 minutes. Updated every 90 seconds.
MySQL Queries: 9 · Cache Hits: 14   40   54 · Page-Gen-Time: 0.01377s · Memory Usage: 2 MB · GZIP: on · Viewport: SMXL-HiDPI