AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Komponentenentwicklung LED über TShape ?

Ein Thema von Chris211183 · begonnen am 23. Sep 2013 · letzter Beitrag vom 16. Jun 2015
Antwort Antwort
Seite 4 von 5   « Erste     234 5   
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.259 Beiträge
 
Delphi 10.4 Sydney
 
#31

AW: Komponentenentwicklung LED über TShape ?

  Alt 28. Sep 2013, 13:47
Was soll denn
Zitat:
MyLed := Show;
bedeuten?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Chris211183

Registriert seit: 19. Sep 2013
Ort: Braunschweig
204 Beiträge
 
Delphi 6 Professional
 
#32

AW: Komponentenentwicklung LED über TShape ?

  Alt 28. Sep 2013, 14:21
dass es auf der Form auch gezeigt wird, nicht ? auch ohne show geht da nix, warum ?
Christian
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.259 Beiträge
 
Delphi 10.4 Sydney
 
#33

AW: Komponentenentwicklung LED über TShape ?

  Alt 28. Sep 2013, 14:55
Ich habe keine Ahnung. Anbei eine kleine Demo, vielleicht siehst Du ja irgendwelche Unterschiede.
Angehängte Dateien
Dateityp: zip LEDDemo.zip (1,8 KB, 25x aufgerufen)
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Chris211183

Registriert seit: 19. Sep 2013
Ort: Braunschweig
204 Beiträge
 
Delphi 6 Professional
 
#34

AW: Komponentenentwicklung LED über TShape ?

  Alt 28. Sep 2013, 15:07
Danke !!!!!
Christian
  Mit Zitat antworten Zitat
Chris211183

Registriert seit: 19. Sep 2013
Ort: Braunschweig
204 Beiträge
 
Delphi 6 Professional
 
#35

AW: Komponentenentwicklung LED über TShape ?

  Alt 30. Sep 2013, 13:10
Ein Wunder !!!!

Ich habe es endlich hinbekommen, ich weiß jetzt auch nach dem Wochenende, wo mein Fehler war !!!

Suuuuper, es tut das, was es soll

jetzt kann es weiter gehen...

Also meine LED sieht schonmal ganz schick aus, wie setzte ich jetzt am besten um, dass diese Led dann später in meinem Objektinspektor als Runde Led einfach genutzt werden kann und dass ich noch andere Formen dort bestimmen kann ?
Christian
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.259 Beiträge
 
Delphi 10.4 Sydney
 
#36

AW: Komponentenentwicklung LED über TShape ?

  Alt 30. Sep 2013, 13:12
Was war denn jetzt der Fehler? Und wie Deine LED letztendlich aussieht, kannst Du ja im Paint selbst bestimmen. Das Prinzip Property mit Setter, der ggf. ein Neuzeichnen auslöst, dürfte ja jetzt hoffentlich klar sein.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Chris211183

Registriert seit: 19. Sep 2013
Ort: Braunschweig
204 Beiträge
 
Delphi 6 Professional
 
#37

AW: Komponentenentwicklung LED über TShape ?

  Alt 30. Sep 2013, 13:20
Jap, das ist jetzt endlich klar !!!

Der Fehler lag einfach nur zwischen den Ohren , ich habe bei der Ausgabe auf der Form, einfach nur vergessen, das Objektfeld einzufügen, aber lernen durch leiden, das passiert mir wohl nie wieder !

Christian
  Mit Zitat antworten Zitat
Photoner

Registriert seit: 6. Dez 2012
Ort: Nürnberg
103 Beiträge
 
Delphi 10.1 Berlin Starter
 
#38

AW: Komponentenentwicklung LED über TShape ?

  Alt 12. Jun 2015, 17:39
Ich habe das mal für Die FMX gemacht. Alle Kommentare sind willkommen.
Angehängte Dateien
Dateityp: pas StatusLED.pas (9,4 KB, 1x aufgerufen)
Chris

Geändert von Photoner (15. Jun 2015 um 16:31 Uhr) Grund: Datei aktualisiert
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.382 Beiträge
 
Delphi 10.4 Sydney
 
#39

AW: Komponentenentwicklung LED über TShape ?

  Alt 13. Jun 2015, 16:14
Alle Kommentare sind willkommen.
  • 'Standard' = SDefault aus Vcl.Consts
  • Und die TBrush solltest du besser selber wieder freigeben, denn ARC funktioniert nicht überall.
  • Free prüft selber auf Assigned, aber egal, da es immer Assigned sein wird, denn wenn es beim Erstellen von TPathData geknallt hätte, kommt das Programm dort eh nie vorbei (was auch richtig so ist).
  • Corners, CornerType und LEDStatus würde ein default bestimmt gefallen
  • Aber vorallem solltest du dich auf Einwas einigen, also entweder mit Prefix oder Ohne, also ohne Namespace oder mit (TStatusLEDShape und TStatusLEDStatus > {$SCOPEDEUNMS} )
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu (13. Jun 2015 um 16:43 Uhr)
  Mit Zitat antworten Zitat
Photoner

Registriert seit: 6. Dez 2012
Ort: Nürnberg
103 Beiträge
 
Delphi 10.1 Berlin Starter
 
#40

AW: Komponentenentwicklung LED über TShape ?

  Alt 15. Jun 2015, 16:27
  • 'Standard' = SDefault aus Vcl.Consts
Gibt es auch ein FMX.Consts o.ä ?

  • Aber vorallem solltest du dich auf Einwas einigen, also entweder mit Prefix oder Ohne, also ohne Namespace oder mit (TStatusLEDShape und TStatusLEDStatus > {$SCOPEDEUNMS} )
Ich hoffe ich habe das kapiert.

Delphi-Quellcode:
  {$SCOPEDENUMS ON}
  TLEDShape = (ctRoundLED,ctRectLED,ctTriangleLED);
  TLEDStatus = (UndefinedStatus,OnStatus,OffStatus);
  {$SCOPEDENUMS OFF}
Jetzt muss man konsequent den Namespace immer voranstellen.

 if StatusLED1.LEDStatus = TLEDStatus.UndefinedStatus then StatusLED1.LEDStatus := TLEDStatus.OnStatus;
Chris
  Mit Zitat antworten Zitat
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 +2. Es ist jetzt 13:18 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf