Die Suche ergab 1499 Treffer

von corpsman
So 30. Jul 2023, 13:34
Forum: Regionale Gruppen
Thema: 41. Stuttgarter Lazarustreffen
Antworten: 10
Zugriffe: 6186

Re: 41. Stuttgarter Lazarustreffen

Auch wenn ich leider nicht bis zum Schluss bleiben konnte. Es war ein tolles treffen und wir hatten echt gute Diskussionen, schade dass es immer nur 7h sind :lol: Da sich ggf nicht alle was unter Sunburst vorstellen können habe ich einen Screenshot der Demo die grad im entsprehen ist mit angehängt ;...
von corpsman
Do 27. Jul 2023, 06:32
Forum: Einsteigerfragen
Thema: Programmierung zum Zeichnen gerader Linien
Antworten: 3
Zugriffe: 491

Re: Programmierung zum Zeichnen gerader Linien

Leider ist der Sourceode nicht dabei, aber im Imageinspector von www.Corpsman.de kannst du sehen, dass sowas geht (siehe "Line Point Distance" tool :) ).
von corpsman
Mi 19. Jul 2023, 17:05
Forum: Komponenten und Packages
Thema: Dual y-Achse mit TChart und TUserDrawnSeries scheint nicht zu funktionieren ..[gelöst]
Antworten: 5
Zugriffe: 1067

Re: Dual y-Achse mit TChart und TUserDrawnSeries scheint nicht zu funktionieren ..

So und der Vollständigkeithalber für alle die wissen wollen wie es fertig aussieht habe ich den Zeichenalgorithmus nun auch mal ordentlich gemacht ;) Hier das Ergebnis: Beispiel_funktioniert.png und hier der Code dazu Procedure TForm1.ENBWPowerSeriesDraw(ACanvas: TCanvas; Const ARect: TRect); Functi...
von corpsman
Mi 19. Jul 2023, 16:53
Forum: Komponenten und Packages
Thema: Dual y-Achse mit TChart und TUserDrawnSeries scheint nicht zu funktionieren ..[gelöst]
Antworten: 5
Zugriffe: 1067

Re: Dual y-Achse mit TChart und TUserDrawnSeries scheint nicht zu funktionieren ..

OK Danke, und hier ist was du geschrieben hast als "Quellcode" :) Procedure TForm1.ENBWPowerSeriesDraw(ACanvas: TCanvas; Const ARect: TRect); Var i: Integer; p1, p2 : TDoublePoint; ip1, ip2: TPoint; Begin If Not assigned(data) Then exit; Chart1.Drawer.Pen := Pen; For i := 1 To high(data) Do Begin p1...
von corpsman
Mi 19. Jul 2023, 12:36
Forum: Komponenten und Packages
Thema: Dual y-Achse mit TChart und TUserDrawnSeries scheint nicht zu funktionieren ..[gelöst]
Antworten: 5
Zugriffe: 1067

Re: Dual y-Achse mit TChart und TUserDrawnSeries scheint nicht zu funktionieren ..

Recht hast du ich hab folgendes im OnCreate gemacht: ENBWPowerSeries.AxisIndexY := 0; Wie man sehen kann sind die Achsen nun Korrekt Scalliert, aber das Rendern hat es nun zerwürfelt, ... Beispiel_neu.PNG Ich vermute mal dass man dann in Procedure TForm1.ENBWPowerSeriesDraw(ACanvas: TCanvas; Const A...
von corpsman
Mi 19. Jul 2023, 08:52
Forum: Komponenten und Packages
Thema: TaChart nicht mehr Zoombar [gelöst]
Antworten: 5
Zugriffe: 984

Re: TaChart nicht mehr Zoombar [gelöst]

@wp_xyz
ich hab noch ein Tachart Thema aufgemacht ( viewtopic.php?f=18&t=15019 ) kannst du da auch weiter helfen ?
von corpsman
Mi 19. Jul 2023, 08:51
Forum: Komponenten und Packages
Thema: Dual y-Achse mit TChart und TUserDrawnSeries scheint nicht zu funktionieren ..[gelöst]
Antworten: 5
Zugriffe: 1067

Dual y-Achse mit TChart und TUserDrawnSeries scheint nicht zu funktionieren ..[gelöst]

Hallo zusammen, Ich habe noch ein Thema mit TAChart Ich habe 2 Kurven in einem TaChart die 1. im Bereich 1000 .. -4000 und die zweite im Bereich 0 .. 100. Klar dass beide eine eigene Transformation brauchen sonst ist die 2. immer eine Waagrechte Linie. Mache ich das mit TLineSeries und der Erklärung...
von corpsman
Mi 19. Jul 2023, 06:04
Forum: Komponenten und Packages
Thema: TaChart nicht mehr Zoombar [gelöst]
Antworten: 5
Zugriffe: 984

Re: TaChart nicht mehr Zoombar

Boa, wp_xyz du bist mein neuer TaChart Held (y) Also ich habe hier ein tool welches mir aus allen Units in meinem Projekt die "unnötigen" raus wirft. Und Tatsache dieses Tool hat aus der .lpr Datei die "tachartlazaruspkg" raus geworfen, weil die da ja nicht benötigt wird. Wenn ich diese wieder in di...
von corpsman
Di 18. Jul 2023, 11:05
Forum: Komponenten und Packages
Thema: TaChart nicht mehr Zoombar [gelöst]
Antworten: 5
Zugriffe: 984

Re: TaChart nicht mehr Zoombar

Also die ToolSet Eigenschaft aller TaCharts ist "Nil", und das AllowZoom habe ich bei allen geprüft steht im Objectinspector auf "true". Das ist es nicht ..
von corpsman
Di 18. Jul 2023, 07:50
Forum: Komponenten und Packages
Thema: TaChart nicht mehr Zoombar [gelöst]
Antworten: 5
Zugriffe: 984

TaChart nicht mehr Zoombar [gelöst]

Hallo zusammen und sry für den Reiserischen Titel. Ich habe folgendes Problem. Meine Anwendung besteht aus mehreren Formularen auf fast jedem befindet sich mindestens 1 Tachart mit diversen TLineSeries .. Wie immer habe ich nichts gemacht außer den Code neu Compiliert und auf einmal geht die "Linke ...
von corpsman
Di 11. Jul 2023, 14:55
Forum: Programmierung
Thema: Kennt jemand hier die Kraft Physik Engine ?
Antworten: 0
Zugriffe: 9130

Kennt jemand hier die Kraft Physik Engine ?

Servus zusammen, ich war auf dem IPC in Salamanca, dort haben sie die Castle Game Engine vor gestellt [ https://castle-engine.io/ ] das ding allein ist ja schon der Hammer ;). Es nutzt eine freie Physik engine geschrieben in FPC, die Kraft physik engine [ https://github.com/BeRo1985/kraft ]. So Toll...
von corpsman
Sa 8. Jul 2023, 21:13
Forum: Regionale Gruppen
Thema: 41. Stuttgarter Lazarustreffen
Antworten: 10
Zugriffe: 6186

Re: 41. Stuttgarter Lazarustreffen

*g* Damit war dann wohl ich gemeint :roll: Wie evtl. einige wissen war diese Woche der IPC2023 auf dem ich die Ehre hatte einen Vortrag halten zu dürfen. Die Vorbereitungen dafür haben mich viel zu viel Zeit gekostet, daher hatte ich leider noch keine Zeit das Ding an zu testen. Ich werde euch dafür...
von corpsman
Do 29. Jun 2023, 14:36
Forum: Regionale Gruppen
Thema: 41. Stuttgarter Lazarustreffen
Antworten: 10
Zugriffe: 6186

Re: 41. Stuttgarter Lazarustreffen

*g*
ich bin wieder mit dabei, werde da wahrscheinlich dann berichten wie es in Salamanca war und ggf erklären was es mit folgendem Bild auf sich hat ;)
preview.png
preview.png (30.5 KiB) 6158 mal betrachtet
von corpsman
Sa 17. Jun 2023, 13:40
Forum: Ankündigungen
Thema: Vorankündigung: International Pascal Congress 2023
Antworten: 16
Zugriffe: 8840

Re: Vorankündigung: International Pascal Congress 2023

Falls es jemanden interessiert, ich wurde als scientific speaker akzeptiert. und werde die neuesten Ergebnisse zu meinem Biosim Project vortragen dürfen ;)
von corpsman
Mi 14. Jun 2023, 15:29
Forum: Einsteigerfragen
Thema: [gelöst] wie prüft fpc einen Zahlenbereich bei Case?
Antworten: 5
Zugriffe: 684

Re: wie prüft fpc einen Zahlenbereich bei Case?

ich würde erwarten dass der das übersetzt in

Code: Alles auswählen

if (myvar >= 0) and  (myvar <= 9) then begin .. end
else if (myvar >= 10) and  (myvar <= 99) then begin .. end
else if (myvar >= 100) and  (myvar <= 999) then begin .. end
aber im zweifel kannst sicher im asm nach sehen ...