Deutsches Lazarusforum

Ach ja: ich hatte mich im letzten Augenblick für einen anderen Namen entschieden: FSelectedTabHasChanged; deswegen hieß es oben auch "In diesem Sinne geändert"...

Wenn solche Meldungen kommen, ist der erste Versuch immer, die IDE sauber zu kompilieren: "Werkzeuge" > "'Lazarus kompilieren' einrichten..." > in der Box "Clean up mode" die Felder "Alle aufräumen" und "Nach Neukompilierung zu Automatisch wechseln" zu markieren > "Neu kompilieren" klicken

Oder besser: Eine Statusvariable FTabChangeDisallowed einführen, die in SetSelectedTab gesetzt und im MouseDown analog geprüft wird.

In diesem Sinne habe ich das eben geändert und ins svn-Repository hochgeladen.


Danke, aber...

habe ich das richtig verstanden dass es dann nur per ...

wp_xyz hat geschrieben: Mo 6. Okt 2025, 20:35 Oder besser: Eine Statusvariable FTabChangeDisallowed einführen, die in SetSelectedTab gesetzt und im MouseDown analog geprüft wird.

In diesem Sinne habe ich das eben geändert und ins svn-Repository hochgeladen.

Man könnte in JvCustomTabBar.MouseDown prüfen, ob das Tab wirklich gewechsel wurde. Wenn nicht, wird MouseDown sofort verlassen, ohne weiteren Schaden anzurichten.
procedure TJvCustomTabBar.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
var
Tab: TJvTabBarItem;
LastSelected ...

Für mich übersetzt bedeuted deine Strategie dass vor dem Ansteuern eines neuen Tabs im OnTabSelecting Event nachgesehen wird ob das erlaubt ist und -- falls eine Pagelist zugeordnet ist -- auch in dieser im OnChange nachgefragt wird ob das passt.

Ja, so hatte ich mir das gedacht. Es könnte ...

Man kriegt das Event TJvPageList.OnChanging Event zum Laufen, indem man TJvCustomTabBar vor der Änderung des aktiven Tab abfragen lässt, ob PageList.CanChange die Änderung erlaubt:
function TJvCustomTabBar.TabSelecting(Tab: TJvTabBarItem): Boolean;
var
PageListIntf: IPageList;
begin
Result ...

Gibt es eine Möglichkeit die Applikation so zu kompilieren dass ich das Package debuggen kann?

In den Projekt-Optionen, "Additions and Overrides", eine neue Option -gw3 definieren, damit werden alle vom Projekt benötigten Packages mit Dwarf3-Debuginformationen kompiliert. Dauert ein bisschen ...

Jetzt habe ich mir das nochmal angesehen. Ja, es geht auch einfacher: mit Chart.Margins.Right = ca 10 rückt der letzte Datenpunkt und damit auch das letzte Achsen-Label um 10 Pixel nach links, so dass mehr Platz für das Achsenlabel bleibt, und das Flattern hört auf. Nachteil: die Kurve geht rechts ...

Ich muss mir das bei Gelegenheit einmal näher ansehen. Es gibt noch ein Property MarginExternals, aber das wird offenbar bei der Platzberechnung einfach mal pauschal abgezogen, so dass das letzte x-Achsenlabel nicht in den damit reservierten Platz hineinragen kann.

Der vom Chart benötigte Platz wird laufend neu berechnet, und wenn, je nach Datenlage, das letzte Label an der x-Achse mehr oder weniger über die Achse hinausragt, wird entsprechend die Achse verkürzt, und das sieht man als "Springen" des rechten Chart-Randes.

Du kannst das verhindern, indem du ...

Neues Package > in den Package-Eigenschaften RunTime-Unit setzen > die Units hinzufügen - ich denke das wars.

Ein Designtime-Package könnte man natürlich auch machen, aber hier sehe ich das Problem mit dem Singleton. Warum überhaupt ein Singleton? Schließt das nicht aus, dass ein Projekt mehrere ...

So funktioniert's bei mir:
procedure TctGUI.SetAnchorTop;
begin
with Toolbar do begin
Align := alNone;
AnchorSideTop.Control := self;
AnchorSideRight.Control := self;
AnchorSideRight.Side := asrRight;
AnchorSideBottom.Control := nil;
Anchors := [akTop, akRight];
end;

with JvTabBar do ...

Ich habe jetzt dem MapViewer eine Methode DeleteCacheFiles spendiert, die die Dateien und Verzeichnisse in den Caches der aktuell verwendeten Provider löscht. Die Prozedur löscht rabiat den ganzen Ordner samt Inhalt, ohne die einzelnen Dateien zu prüfen, ob sie das CacheMaxAge überschritten haben ...

Bei dem GPSTRack gab es eine MEthode um die betroffene Area zu ermitteln.
Wie ist das bei Maptracks? Muss ich das selber berechnen?

Im MapViewer gibt es ja the TMapXXX und dazu korrespondierende TGPSxxx-Klassen. TMapTrack entspricht dem TGPSTrack, und du kannst vom TMapTrack aus mit Hilfe der ...