AGB  ·  Datenschutz  ·  Impressum  







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

grafischer Scroll Text (StarWars o.ä.)

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

Registriert seit: 3. Mai 2006
Ort: Graz
454 Beiträge
 
Delphi 10.3 Rio
 
#1

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

  Alt 23. Jan 2018, 09:11
Hier mal schnell was zusammengeklicktes ...

Ein Timer + Paintbox, das Memo dient nur als Textspeicher. Davon ausgehend kannst du sicher was eigenes machen.
Angehängte Dateien
Dateityp: 7z Scroller.7z (4,8 KB, 32x aufgerufen)
Whookie

Software isn't released ... it is allowed to escape!
  Mit Zitat antworten Zitat
Fukiszo
(Gast)

n/a Beiträge
 
#2

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

  Alt 23. Jan 2018, 20:48
Hier mal schnell was zusammengeklicktes ...
du bist mir ja lustig, habs grad mal gestartet und yeah, das ist ja wie meins nur viel besser (smooth! flickerfrei! resource friendly!)

darf ich damit meine class aufpimpen?

grüße
  Mit Zitat antworten Zitat
Whookie

Registriert seit: 3. Mai 2006
Ort: Graz
454 Beiträge
 
Delphi 10.3 Rio
 
#3

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

  Alt 23. Jan 2018, 21:32
klar doch
Whookie

Software isn't released ... it is allowed to escape!
  Mit Zitat antworten Zitat
Fukiszo
(Gast)

n/a Beiträge
 
#4

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

  Alt 23. Jan 2018, 23:15
Vielen Dank und wird gemacht.
Dank Selbstversuch und nachdem ich den Source von Whookie betrachtete,
war ich ja Ansatzweise auf dem richtigen Weg *freu*

Klar, pixel scrollen und nicht komplette zeile, das ist der ruckelfaktor.

Gibt es Nachteile wenn man es wie bei meinem Versuch per TImage anstelle TPaintBox darstellt?
Ich kenn mich da nicht so gut aus und würde gerne alle Blickwinkel betrachten.

Grüße

Geändert von Fukiszo (23. Jan 2018 um 23:20 Uhr) Grund: Verfeinerung des Textes
  Mit Zitat antworten Zitat
Fukiszo
(Gast)

n/a Beiträge
 
#5

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

  Alt 25. Jan 2018, 07:26
nach etlichen selbstversuchen mich in die materie einzuarbeiten bin ich bei sowas hier gelandet.

vielleicht mag es ja jemand noch weiter verfeinern.
ist total unoptimiert und bestimmt fehlerbehaftet bis zum anschlag
cpu wird böse ausgelastet.

Delphi-Quellcode:
procedure StarWarsTrapez;
var
  xc,yc:Integer;
  orgCoord:TPoint;
  newTopEdge:Integer;
  startX,stopX:Real;
  mLeftSide:Real;
  screenZ,screenTopY:Integer;
  textY:Integer;
  mg1,mg2:Real;
  p1,r1,r2:TPoint;
  param:Real;
begin
  textY:=-30;
  mg1:=textY/(orgImg.Width/2+OrgImg.Height);
  mg2:=textY/(orgImg.Width/2);
  screenZ:=Round(newImg.Height/(mg1-mg2));
  screenTopY:=Round(mg1*screenZ);
  newTopEdge:=Round(newImg.Width*orgImg.Width/(orgImg.width/2+orgImg.Height)/2);
  mLeftSide:=(newTopEdge-newImg.Width)/2/newImg.Height;
  startX:=(newImg.Width-newTopEdge)/2;
  stopX:=newImg.Width-startX;
  p1.x:=orgImg.width div 2;
  p1.y:=textY;
  r1.x:=OrgImg.Height;
  r1.y:=0;
  r2.x:=screenZ;
  for yc:=1 to newimg.height do begin
    startX:=startX+mLeftSide;
    stopX:=stopX-mLeftSide;
    r2.y:=screenTopY-yc;
    param:=(p1.y*r2.x-p1.x*r2.y)/(r1.x*r2.y-r1.y*r2.x);
    OrgCoord.Y:=OrgImg.Height-Round(OrgImg.Height*param);
    for xc:=Round(startX) to Round(stopX) do begin
      orgCoord.x:=Round((xc-startX)/(stopx-startx)*orgImg.width);
      newImg.canvas.pixels[xc,yc]:=orgImg.canvas.pixels[orgCoord.x,orgCoord.y];
    end;
  end;
end;
momentan wird bildA zu bildB mit einem trapez effekt umgewandelt.
wie ich das mit laufschrift hinbekommen soll weiß ich noch nicht, aber ich geb nicht auf

Grüße
  Mit Zitat antworten Zitat
Fukiszo
(Gast)

n/a Beiträge
 
#6

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

  Alt 25. Jan 2018, 18:25
Irgendwie kann ich meine Haupt-Post nicht ändern deswegen hier,
ich hab jetzt sowas wie einen "fliegenden text" basteln können,
entwickelt als vcl komponente wo auch noch an allen ecken und enden feintuning ran muss.
text kann in alle vier richtungen bewegt werden, in theorie immer zentriert
wer mag schaut mal im anhang rein.

grüße
Angehängte Dateien
Dateityp: 7z Project2.7z (154,4 KB, 14x aufgerufen)
  Mit Zitat antworten Zitat
Fukiszo
(Gast)

n/a Beiträge
 
#7

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

  Alt 25. Jan 2018, 23:22
bei meinen übungen ist noch ein evtl interessanter effekt rausgekommen,
ich wollt in diesem side-project ürsprünglich text von links nach rechts wandern lassen,
und den mit eine art wobble effekt belegen. nunja, das "wobblen" wollte nicht so klappen,
aber durch zufall (wobble arbeit auf kompletten bild mit pfad anstelle des textes)
kam ein nett anzusehender effekt den ich nun als sinusscroller vorstelle.

diesmal ein paar mehr einfluss möglichkeiten (der scroller ist eine class aber noch im hauptsource)
ein paar vcl's lassen das window auch etwas hübscher ausschauen,

ich bin gespannt ob es gefällt.

so, nun aber zurück zu meinem starwars dingens,
möge die macht mit euch sein.

in diesem sinne

grüße
Angehängte Dateien
Dateityp: 7z SinusScroller.7z (287,9 KB, 16x aufgerufen)
  Mit Zitat antworten Zitat
Antwort Antwort

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 15:39 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