Deutsches Lazarusforum

Moin Zusammen,

Gibt es eine möglichkeit mit der ich feststellen kann, dass sich das Datum verändert hat?

Ich habe ein Grid was ich jeden Tag aktualisieren muss aber ich habe keinen Schimmer wie ich das anstellen soll.

Ich wäre Mega Dankbar wenn mir jemand weiterhelfen kann

if (channel[0]=false) AND (channel[1]=false) AND (channel[2]=false) AND (channel[3]=false) AND (beginn<=time) AND (ende>time) then
SetOutputsFromDB();

if ((channel[0]=true) AND (ende<time)) OR ((channel[1]=true) AND (ende<time)) OR ((channel[2]=true) AND (ende<time)) OR ((channel[3]=true) AND ...

Moin Zusammen,

Ich habe eine Softschaltuhr programmiert und in dieser sollen nach Terminen die Außenbeleuchtung ein bzw ausgeschaltet werden.
Allerdings bekomme ich es nicht hin, dass zum Ende des Termins auch wieder alles ausgeschaltet wird.

if (channel[0]=false) AND (channel[1]=false) AND ...

Mathias hat geschrieben:Was fuer ein OS verwendest du ?

Windows 7

Ich weis nun das nich meine Anwendung beim minimieren eines einzelnen Fensters nur dann komplett minimiert, wenn ein anderes Programm dhinter angezeigt wird ich verstehe allerdings nicht ganz warum das so ist.

Ich habe ein Projekt mit mehreren Forms und bis jetzt war es so, dass beim minimieren das fenster einfach nur in die untere linke ecke geschoben und nicht in die Taskleiste minimiert wurde. Ich habe dann für die Forms ShowInTaskbar auf stAlways gesetzt und seit dem wird die ganze Anwendung minimiert ...

Da in meinem TMainMenü keine Untermenü-Punkte eingebaut waren konnte ich es mit einer TCoolBar lösen die ist beliebig anpassbar und ich kann meine BitBtn's wunderbar einbauen.

Ich will in meiner Anwendung ein größeres MainMenu einbauen, damit ich dort größere Icons einsetzen kann.

Kann mir jemand sagen wie ich das machen kann?

Du musst eine eigene Methode dafür erstellen.
...

interface

...

// Das hier wird oben im interface-Teil reingeschrieben, um dem Programm zu zeigen, dass diese Funktionen existieren (Normalerweise sieht man ja nur die Funktionen, die über einem sind).
private
procedure WheelDown(Sender ...

So, ich hab nochmal nachgeschaut. TControlScrollBar.Increment ist korrekt, nur TScrollBar.Increment existiert nicht. Also müsste sich Fehler 2 durch Behebung von Fehler 1 auflösen.
Habe ich auch festgestellt habe aber das problem das es bei mir dennoch nicht läuft vielleicht liegt es daran, dass ...

KenntKeinSchwein AG hat geschrieben:Ah ja, es ist natürlich TControlScrollBar statt TScrollBar.
Bei der Increment eigenschaft schau ich heute abend nochmal wenn ich zuhause bin. Nutz solange notfalls "8" statt "s.Increment". 8 ist nämlich der standardwert

Danke für die schnelle gute hilfe

Beim MouseWheelDown: ScrollBox1.VertScrollBar.Postion := ScrollBox1.VertScrollBar.Position + ScrollBox1.VertScrollBar.Increment;
Beim WheelUp dann eben minus statt plus.

Und so geht es noch eleganter: var
s: TScrollBar;
begin
s := ScrollBox1.VertScrollBar;
s.Position := s.Position + s ...

Welche Elemente befinden sich denn in der Scrollbox? Wenn du Containerelemente (TPanel, TScrollBox, usw.) in einer ScrollBox hat musst du für jedes Containerelement die Scrollroutine in die OnMouseWheelDown bzw OnMouseWheelUp schreiben.
Wär mega nice wenn ihr mir auch noch ein gutes Beispiel für ...

Welche Elemente befinden sich denn in der Scrollbox? Wenn du Containerelemente (TPanel, TScrollBox, usw.) in einer ScrollBox hat musst du für jedes Containerelement die Scrollroutine in die OnMouseWheelDown bzw OnMouseWheelUp schreiben.
ist ja mies aber danke für den Hinweis ich habe nämlöich ...

m.fuchs hat geschrieben:Kann es sein, dass du 1.6 und 1.6.2 in unterschiedlichen Version (32- und 64-Bit vorliegen hast)?

genau das