Deutsches Lazarusforum

Hi ,

in Lazarus/Freepascal ist vieles was man braucht schon erfunden.
Problem , man weis nicht , wo man suchen soll .

Die ganze Geschichte rund um BGRA-Controls und BGRA-Bitmap ist ziemlich cool.
Da kann man so viel mit machen , wenn man sich mal die Zeit nimmt (habe ich leider zu wenig) und ...

Hallo Andy,

hast Du schon mal über eine Alternative zum Standard ProgressBar nachgedacht ?

Ich habe eben mal in den BGRA-Controls nachgeschaut.

Folgende Komponenten sind interessant.

BGRAFlashProgressBar
BCFluentProgressRing
BCRadialProgressBar

Im Anhang eine Demo.

Gruß

Frank

Hallo ,

ich danke euch für die vielen Tipps.

Das wird noch ein Spass (Boa).

Die Anwendung habe ich seit 18 Jahren in der Mache , und immer wieder weitergebaut und dranngefrickelt.
Schriftgrößen und Fonts habe ich immer manuelle eingetragen , nie default benutzt.
Der Anker-Editor wurde nie ...

Hallo ,

ich bastel meine Programme mit einer Bildschirmauflösung von 1920x1080.

Ein Kollege hat einen 4K-Monitor , ich leider nicht und kann nicht testen.

Laut seinen Angaben wird das Programm auch skalliert .

Bis auf die Grafiken in
Checkboxen
Radiobuttons
Speedbuttons

Was kann man tun ...

Hi RonnyCoder ,

bau dir doch einfach mal ein einfaches Ampelprogramm , mit passender Ablaufsteuerung für die Zustände (ROT -> ROT_GELB -> GRÜN -> GELB -> zurück zum Anfang).
Die Programmierung kann man (je nach Wissensstand) von Super einfach (mit Textausgabe) bis ins Extreme treiben (Grafik ...

Hi ,

so was habe ich neulich auch gebraucht.

In der Unit TypInfo gibt es dazu die Funktion GetEnumName .

Hier mal ein Beispiel-Projekt .

Gruß

Frank

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Spin, StdCtrls,
TypInfo;

type ...

Hi ,

ich danke euch für die Antworten .

Der letzte Tipp von TSchnuckenbock ist derzeit mein Favorit.

Als beknackte Variable habe ich mir

var hama:byte=0;

ausgedacht , hama steht für "halt mal" und ist kurz genug .

Die Testschleife sieht dann so aus.

// mit beknackter Variable
procedure ...

Hi,

manchmal möchte man beim Debuggen einen Haltepunkt haben , z.B. in einer For-Schleife und findet keine passende Codestelle um diesen zu setzten.
Siehe z.B. im Quelltext unten in der Button1Click .

******

Bisher habe ich dann an der gewünschten Halte-Stelle einfach ein sleep(0); eingebaut ...

Hi,


Ok, Es gibt verschiedene mögliche Ursachen.

1) Kompiliert mit -O2 oder höher (oder explizit mit Anweisung den Stackframe weg zu optimieren IIRC -Oonostackframe ??)

2) Pausiert auf begin oder end
Dort sind lokale variablen noch nicht (nicht mehr) verfügbar. Sie sind noch nicht aus den ...

Hi,

mal ein anderer etwas verzweifelter Versuch , um die Werte anzuschauen.

Habe mir eine Werte-Array als Zwischenspeicher eingebaut.

// Berechnet den Geschwindigkeitsvektor des Wirbelstückes
// A->B mit der Zirkulationsstärke gamma im Aufpunkt P
function biot_savart(gamma:double;Vek_A,Vek_B,Vek ...

Hi ,


Nur ein Hinweis, gerade beim Debugger hat sich mit den neuen Lazarusversionen unheimlich viel getan. Und tut sich weiterhin sehr viel, da ist auch zwischen Lazarus stable und dem aktuellen Trunk wieder viel passiert.


Ok , habe mir mal per FPCUPdeluxe die aktuelle Version
Lazarus 3.4 (rev ...

Hi ,


Ich rate jetzt ins Blaue: Da die Double-Werte (inkl. der Parameter Gamma) sicher im Stack landeten, vermute ich, dass beim Breakpoint "end" der Stack bereits wieder "leer" (geräumt) ist. Evtl. versuchen eine Anweisung zuvor den Breakpoint zu setzen.


Aber bei meinem Minimalprojekt klappt ...

Hallo,

habe in einem größeren Programm immer wieder Probleme beim Anzeigen von lokalen Variablen-Werten , wenn ich Debugge und Haltepunkte setzte.
Betrifft meist Unterprograme wie dieses hier

// Berechnet den Geschwindigkeitsvektor des Wirbelstückes
// A->B mit der Zirkulationsstärke gamma im ...

Hi , lese hier einfach nur mit .

Und wundere mich , warum sich keiner mehr an meine Versuche mit Textausgabe in Opengl erinnert.
Hier ging es um die Nutzung von TTF-Fonts im Opengl.

Die ersten Versuche findet ihr hier:

Text in OpenGLcontrol Nov 2016
Startseite
https://www.lazarusforum.de ...

Hallo theo,

procedure TForm1.FormShow(Sender: TObject);
begin
application.ProcessMessages;
memo1.SelStart := Length(memo1.Text);
end;

hat unter Win-10 leider nicht funktioniert , unter Linux-Mint schon.

Der Tipp mit

procedure TForm1.FormActivate(Sender: TObject);
begin
memo1.SelStart ...