Deutsches Lazarusforum

SmoothScrolling ist mir nicht so wichtig.
Scrollproblem scheint Aufgrund des Aufbaus von StringGrid zu sein, genauso wie Textausgabeproblem, da meine verbundenen Zellen im Fixed-Bereich liegt ist es mir nicht aufgefallen. Ich schaue mir das später an. Vielleicht Wochenende.

Ich habe Textproblem ...

So etwas ähnliches ist mir auch gestern Nacht eingefallen.
Und falls erste Spalte/Zeile nicht im sichtbaren Bereich ist, dann DrawCellText(Text) aufrufen.
Vielleicht werde ich selber zeichnen, 40 verbundene Spalten einzeln zeichnen ist Wiederholung. Ich glaube man müsste die erste oder letzte Spalte ...

Zu früh gefreut.
Wenn die erste Spalte nicht sichtbar ist, dann wird ja kein Text gezeichnet, ich glaube deshalb:

procedure TCustomStringGrid.DrawColumnText(aCol, aRow: Integer; aRect: TRect;
aState: TGridDrawState);
begin
if Columns.Enabled then
inherited
else begin
DrawColumnTitleImage ...

Ich habe es gelöst in dem ich mein Anfangscode benutzt habe. Ich hatte wegen Bequemlichkeit zu MCGrid gewechselt und MCGrid war nicht komplett sowie wp schrieb.

Darstellungsfehler von Rahmen beim Scrollen gibt es auch nicht, nur Text wird nicht gezeichnet, man muss nach Scrollen neu Zeichnen. Ich ...

Mein Code ist eigentlich nicht besonders, es verbindet in der 2. Zeile viele Spalten zu einer Spalte um Monatsname zu simulieren.
Textausgabe hatte ich verzichtet, jetzt habe ich es hinzugefügt, das funktioniert gut, ich hatte auch ein Bereich falsch angegeben.
Was mir auffiel ist, das wenn die 1 ...

Ich verwende StringGrid für Jahresplaner und die Tage werden vom Jahresanfang bis Ende in Spalten dargestellt. Die 1. Zeile benutze ich für Monatsnamen und verbinden alle Spalten des Monats und zeige dort Monatsname. Dafür verwende ich mcgrid-Beispiel aus "\lazarus42\examples\gridexamples\merged ...

Du kannst die Ausgabe von TProcess in einer Schleife nach Benutzername/Password untersuchen und per Programm senden.
Siehe Wiki .

Ich hatte von Jahren ein Beispielprogramm zusammengebastelt mit dem Code von hier und da, erinnere mich nicht mehr. Es ist auch gut "dokumentiert", schau es dir an ...

Ping funktioniert wunderbar bei Firebird. Ich verwende immer noch FB 2.5.
Manchmal gehen Benutzer des Programms Kaffee trinken oder irgendwas anderes machen und das Betriebssystem geht in Energiesparmodus. Der Code, den ich in "function DbOnline: Boolean;" gepostet habe, bewirkt, dass die Benutzer ...

Bei FireBird ist es leicht zu prüfen, ob der Server online ist:

if ZConnection1.Ping then begin
//anmelden
end
else ... //Server offline


Manchmal kann es passieren, dass die Verbindung unterbricht, deshalb sende ich immer von SQL-Abfragen ein Ping;


function DbOnline: Boolean;
begin ...

Noch etwas habe ich vergessen zu schreiben, das hier ist falsch:

stretched.Draw(PaintBox1.Canvas,XPos,YPos,True); //<-- das hier
PaintBox1.Refresh;


Weil Paintbox hat kein Bitmap, alles was man dort zeichnet ist flüchtig, man muss OnPaint-Ereignis verwenden, etwa so:

procedure TForm1 ...

Also bei mir macht es, was es machen soll, immer 90 Grad drehen. Ich weiß es nicht, ob du nur bei dem Bespiel-Programm diesen Fehler hast, aber man sieht meistens nicht, weil du PaintBox1.Refresh aufrufst aber PaintBox1.OnPaint nicht verwendest.
Ich habe das hinzugefügt, dann funktionierte es ...

Also wenn du nicht auf Ergebnis von ZConnection warten möchtest und nach bestimmte Zeit selber abbrechen möchtest, dann musst du Threads verwenden. Ein Benutzer, ich glaube Helios war das, hatte vor einigen Jahren Fragen mit Threads und Datenbankverbindungen und er hat gutes Beispiel gehabt, ich ...

Ich habe XRDP nie ausprobiert und VNC ist Schrott, selbst auf Windows Computer.
Ich habe bei uns in der Firma Nomachine installiert und es ist richtig gut, egal wo du auf der Welt bist, ist es so als ob du vor dem Computer sitzt. Das hängt natürlich von deiner Internetverbindung ab, da du es lokal ...

@theo
Es hat geklappt, vielen Dank.

Falls jemand gleiche Frage hat, ich habe das gemacht:

procedure TTestHTTPServer.HandleRequest(var ARequest: TFPHTTPConnectionRequest; var AResponse: TFPHTTPConnectionResponse);
begin
//..dein code
AResponse.SetFieldByName('Content-Disposition','attachment ...

Ich habe eine TFPHttpServer, damit kann man von einer Datenbank PDF-Dateien herunterladen. Der Link sieht so aus:
http://localhost/redownld?renr=1234567.

Der Browser speichert es immer als redownld.pdf. Ich möchte es aber anders benennen, mit Rechnungsnummer usw., kann der Browser bei Response es ...