Deutsches Lazarusforum

Hallo Photor,

Stretch liefert meist ein etwas unbefriedigendes Ergebnis (ausgefranste Kanten, Treppenstufen usw.).
Im beiliegenden Beispiel findest du eine kleine Unit (rhsScaleBitmap.pas) die interpoliert skaliert und somit deutlich bessere Ergebnisse liefert.

Gruß Roland

Hallo charlytango, Nur... wie machst du das Interface zur Eingabe? Generisch? Frames? Forms? Tabreiter etc etc ? Ich bin mir nicht sicher ob ich das jetzt richtig verstehe. Meinst du z.B. ein Fenster in dem der Anwender Einstellungen auswählen kann? Wenn ja, dann kann man das sicherlich nicht allgem...

Hallo mschnell, ja dieser Registry igitt Glaubenskrieg wurde schon unzählige male geführt. Natürlich kann jeder seine Einstellungen dort hin schreiben wo er möchte und das Betriebssystem ihm das (noch) erlaubt. Unter Windows ist die Registry eine Möglichkeit die Einstellungen komfortabel und zukunft...

Hallo charlytango, ich habe mir dafür eine kleine Unit gebaut, die String, Integer, Boolean, usw. in die Registry schreiben und daraus lesen kann. Das Ganze funktioniert auch unter Linux, dort werden Registry-Zugriffe automatisch im Order .config in einer entsprechenden XML gespeichert. Im Anhang ei...

Hallo af0815,

wenn ich das richtig verstehe möchtest du das Popup vergrößern.
Dazu gibt es rechts unten die schraffierte Ecke. Darauf klicken und ziehen, verändert die Größe.

Gruß Roland

Hallo R3dFox, das könnte etwa so gehen: procedure ImportAntworten; var Zeile: String; Antworten: TextFile; Werte: TStringArray; begin try AssignFile(Antworten, '1234.txt'); // Datei zum lesen öffnen Reset(Antworten); while not EOF(Antworten) do begin // Eine Zeile aus der Datei lesen Readln(Antworte...

Hallo PascalDragon,

das sieht auch gut aus. Danke für den Tipp.

Gruß Roland

Vielen dank für eure Antworten.

Schade, man konnte dort immer schön sehen woran gerade "geschraubt" wird und sich das auch gleich ansehen.
Und wenn man nichts besseres zu tun hat als solch eine Seite zu attackieren, sollte man mal den Sinn seines Lebens hinterfragen.

Gruß Roland

Hallo,

weis jemand warum die Seite https://svn.freepascal.org/cgi-bin/view ... ot=lazarus nicht mehr funktioniert oder gibt es eine ähnliche Seite?

Gruß Roland

Hallo,

ungetestet, aber probiere doch mal UTF8ToWinCP

Grüße Roland

Hallo, Skalieren von Bildern ist nicht trivial. Das herunterskalieren in hoher Qualität geht auch mit "Bordmitteln" ganz gut: unit MyScaleBitmap; {$mode objfpc}{$H+} interface uses Graphics, IntfGraphics, LazCanvas, FPCanvas; procedure ScaleBitmap(BM: TCustomBitmap; Width, Height: Integer); implemen...

Hallo zusammen, ich denke Socke hat recht. Beim einlesen werden die Zeilenumbrüche nach Lineending konvertiert. Wenn ich mit dem Windows-Editor einen leeren Text speichere dann ist der auch leer. (rechte Maustaste-Eigenschaften liefert 0 Bytes) Wenn ich einen leeren SynEdit-Text speichere dann ist d...

Hallo h-elsner, hallo six1, danke für eure Antworten. @h-elsner: Du hast recht, genau so ist das wohl. So ganz plausibel ist das allerdings nicht. SynEdit1.Text.Length zählt ja ein CRLF mit das nicht eingegeben wurde. Und wenn ich diese scheinbar leere Datei speichere und mit z.B. dem Windows-Editor...

Hallo zusammen, ich möchte wissen ob ein SynEdit text enthält oder nicht. Also habe ich folgendes probiert: Label1.Caption := IntToStr(SynEdit1.Text.Length); if SynEdit1.Text.IsEmpty then Label2.Caption := 'leer' else Label2.Caption := 'nicht leer'; Das funktioniert auch direkt nach dem Programmstar...

Hallo fliegermichl, das oben beschriebene dient ja ausschließlich dazu das Programm High-DPI-fähig zu machen. Was du machen möchtest ist noch mal eine ganz andere Baustelle. Ich würde für die "großen Buttons" einfach noch eine ImageList mit den drei entsprechenden Auflösungen anlegen und die dann de...