AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi grafischer Scroll Text (StarWars o.ä.)
Thema durchsuchen
Ansicht
Themen-Optionen

grafischer Scroll Text (StarWars o.ä.)

Ein Thema von Fukiszo · begonnen am 22. Jan 2018 · letzter Beitrag vom 27. Jan 2018
Antwort Antwort
Fukiszo
(Gast)

n/a Beiträge
 
#1

AW: grafischer Scroll Text (StarWars o.ä.)

  Alt 27. Jan 2018, 08:19
Vielen Dank, bei mir klappt der Source noch nicht so ganz,
deine Vermutung pWide ist total korrekt
anbei dein source das er unter delphi7 ide ein kompilat herstellt plus binary.
und ein foto der compiler fehler an denen ich ran muss.

vielen dank für deine mühe & arbeit!

edit: ich habe noch eine delphi 7 gdiplus.pas rumflattern, die aufrufe sollten ja gleich sein nur die deklaration ist anders, ich schau da mal nach
Angehängte Grafiken
Dateityp: jpg dcc32.jpg (83,7 KB, 17x aufgerufen)
Angehängte Dateien
Dateityp: 7z StwScroll(1).7z (168,1 KB, 10x aufgerufen)

Geändert von Fukiszo (27. Jan 2018 um 08:28 Uhr)
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#2

AW: grafischer Scroll Text (StarWars o.ä.)

  Alt 27. Jan 2018, 09:05
die aufrufe sollten ja gleich sein nur die deklaration ist anders, ich schau da mal nach
Nein die sind anders zudem möchte ich nicht gerne 1,6 MB zu einem Quelltext addieren wenn ich es auch mit 35KB erledigen kann.

Noch vergessen.. beim beenden der Anwendung fehlt GDI_Close.
Zitat:
anbei dein source das er unter delphi7 ide ein kompilat herstellt plus binary.
Also.
Habe deine source mit WinMerge verglichen und kann keinen unterschied zu meinen feststellen.
Abgesehen davon das der Double Buffer der Form nicht aktiviert ist.

EDIT:
TGPPointF und TGPPoint sind zwei paar Schuhe.
F steht für Single das ist der einzige unterschied und ja es muss Single sein

gruss

Geändert von EWeiss (27. Jan 2018 um 09:27 Uhr)
  Mit Zitat antworten Zitat
Fukiszo
(Gast)

n/a Beiträge
 
#3

AW: grafischer Scroll Text (StarWars o.ä.)

  Alt 27. Jan 2018, 09:27
bitte nicht abwertend verstehen,
zumal es ja sich ja "nur" um ein About-Box Projekt handelt geb ich dir mehr als recht (dateigröße)
ich fummel mir das schon zurecht mit den pWide's,
warum der bei diesen "p[0] := MakePoint(0,0);" aufrufen meckert weiß ich auch noch nicht.

auf jedenfall ein dickes fettes lob für dieses schöne masterpiece of code!
das die schrift auch noch umrandet werden kann ist ein geniales feature, cartoon like, find ich klasse!

Grüße

ich hab auch schon ein paar ideen das noch weiter zu entwickeln,
bei der JVCL ist eine TStarScroller (o.ä.) unit, die ein Sternenfeld sehr prozessorschonend darstellt, enthalten.
Beides zusammen könnte cool aussehen falls es nicht zuviel cpu kostet.
Aber erstmal so hinbiegen das ich es auch nutzen kann, Wochenendprojekt wird nun gestartet (-:

edit:
DoubleBuffer gibt es leider so noch nicht, muss ich nachträglich einbauen (ja ja, doofes altes delphi ich weiß)

Geändert von Fukiszo (27. Jan 2018 um 09:31 Uhr)
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#4

AW: grafischer Scroll Text (StarWars o.ä.)

  Alt 27. Jan 2018, 09:32
Zitat:
bitte nicht abwertend verstehen,
Kein Problem hab es so auch nicht verstanden..

MakePoint erwartet als Rückgabe Single.
Schau einfach mal auf welche Funktion von MakePoint p[0] zugreift.

Notfalls mal die Reihenfolge der Units ändern.

gruss
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#5

AW: grafischer Scroll Text (StarWars o.ä.)

  Alt 27. Jan 2018, 10:33
Zitat:
DoubleBuffer gibt es leider so noch nicht, muss ich nachträglich einbauen (ja ja, doofes altes delphi ich weiß)
Warum doof?
Jedem das seine.
Ich mache dir das mit dem Double buffer kein Problem.

gruss
  Mit Zitat antworten Zitat
Fukiszo
(Gast)

n/a Beiträge
 
#6

AW: grafischer Scroll Text (StarWars o.ä.)

  Alt 27. Jan 2018, 11:37
info, unter radstudio xe 10.2.2 schnurrt alles wie bei deinem original binary ohne probleme
ich hat gerade mal unsere firmen vm gestartet und kompiliert, alles sahne.
mein lokales problem werde ich schon hinbekommen, GDI_Close hab ich hinzugefügt danke!

Alles wird gut


Grüße


(wobei ich gerade eher vom code fasziniert bin wie du mit gdi+ umgehst)
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#7

AW: grafischer Scroll Text (StarWars o.ä.)

  Alt 27. Jan 2018, 11:58
Hier eine aktualisierte Version mit neuer Gradient(verschiedene Richtungen zeichnen) und Doublebuffer Funktion.
Habe aber ein kleines Problem nach dem abspielen wird der Gradient nicht mehr gezeichnet..
Eventuell muss ich hier ein Temporäres Transparentes Bitmap erstellen ansonsten wüsste ich jetzt nicht an was es sonst noch liegen könnte das der Hintergrund schwarz ist.

Kannst ja mal vergleichen
Pick dir raus was du brauchst.

Zitat:
(wobei ich gerade eher vom code fasziniert bin wie du mit gdi+ umgehst)
Über die Jahre bleibt schon was hängen

EDIT:
Hier ist noch ein Problem..
Delphi-Quellcode:
  // Pen color for Border
  PenARGB := ColorARGB(255, 0);
  // Font Color
  ColrARGB := ColorARGB(255, RGB(255, 255, 0));

  UseFont := 'Arial';
  UseSize := 20;
  UseGradient := true;
  // ScrollOffset must be the same then Font size
  ScrollOffset := UseSize * Length(Txt); //<< muss hinter UseSize nicht davor
Im alten code wird UseSize verwendet bevor es zugewiesen wurde, ist dann 0

gruss

Geändert von EWeiss (11. Jul 2019 um 16:13 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:59 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz