AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Zeilenumbruch verbessern

Ein Thema von EWeiss · begonnen am 10. Jun 2019 · letzter Beitrag vom 14. Jun 2019
Antwort Antwort
EWeiss
(Gast)

n/a Beiträge
 
#1

AW: Zeilenumbruch verbessern

  Alt 10. Jun 2019, 16:38
Die Lösung von Peter ist gut für mich..
Danke.

gruss
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#2

AW: Zeilenumbruch verbessern

  Alt 11. Jun 2019, 03:14
Fertisch..

Es geht nur um das Interface..
Es gibt keine ausführende Funktionen

So werden die Button für das Menu erstellt.
Daraus ergibt sich dann einer dieser Einträge.

Delphi-Quellcode:
      btnMenu := CTRL_PushButtonCreate;
      btnMenu.ImagePath := SpriteResPath + 'BTN_Push.png';
      btnMenu.Text := PWideChar(sLabel);
      btnMenu.Left := 1 + 20;
      btnMenu.Top := Step;
      btnMenu.Width := w - (2 + 20);
      btnMenu.Height := Height;
      btnMenu.DlgItemID := ID;
      btnMenu.TextCol := gSprMenuC.GD_ARGB(255, 255, 255, 255);
      btnMenu.Label3D := -1;
      btnMenu.TextAlligment := Left;
      btnMenu.ImageStateMax := 0;
      btnMenu.ImageFrontPath := sResource;
      btnMenu.ImageFrontX := 4;
      btnMenu.ImageFrontY := 1;
      btnMenu.TextLeft := btnMenu.Left + 8;
      btnMenu.CreateWindow(HSprMenuC);
      btnMenu.Enabled := true;
      SKAERO_SetZorder(HSprMenuC, HWND_TOP);
      ShowWindow(btnMenu.Handle, SW_HIDE);

      if UseCheck then
      begin
        btnMenu.SetPrivateFont(SpriteResPath + 'Marlett.ttf', MarletFontName, 22,
          FontStyleRegular, gSprMenuC.GD_ARGB(255, 0, 0, 0), PWideChar(sCheck),
          w - (Height + 20), 2, Height - 4, 22, ID, SKAERO_BTNTEXTCOLOR,
          false, BS_LABEL_LEFT, -1, btnMenu.Handle);
      end;
gruss

Geändert von EWeiss ( 9. Jul 2019 um 08:31 Uhr)
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#3

AW: Zeilenumbruch verbessern

  Alt 12. Jun 2019, 18:29
Könnte mal bitte jemand das teil testen?
Es geht mir darum ob das Menu Flicker frei bei euch läuft.

Danke.

PS:
Seid so fair und gebt doch bitte eine Rückmeldung wenn ihr den Kram schon ladet. Thanks!
Andernfalls macht es keine sinn die Datei überhaupt runter zu laden.


Danke für das testen. (Anhang gelöscht)

gruss

Geändert von EWeiss (13. Jun 2019 um 13:35 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von holger_barntrup
holger_barntrup

Registriert seit: 1. Feb 2007
Ort: Barntrup
97 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: Zeilenumbruch verbessern

  Alt 13. Jun 2019, 06:13
Läuft bei mir leider nicht. Die Datei Graphics.dcu wird nicht gefunden.
  Mit Zitat antworten Zitat
TraumTaenzerDieter

Registriert seit: 4. Jun 2009
Ort: 33330 Gütersloh
8 Beiträge
 
FreePascal / Lazarus
 
#5

AW: Zeilenumbruch verbessern

  Alt 13. Jun 2019, 06:33
Auf Win7x64 läuft es und auch flickerfrei.
Nur wenn ich die Fensterhöhe per Titlebar verändere
dann tun mir "die Augen weh".
  Mit Zitat antworten Zitat
DasWolf

Registriert seit: 7. Jun 2016
76 Beiträge
 
Delphi 10.1 Berlin Professional
 
#6

AW: Zeilenumbruch verbessern

  Alt 13. Jun 2019, 08:15
Nur wenn ich die Fensterhöhe per Titlebar verändere
dann tun mir "die Augen weh".
Das ist bei mir auch so.

Alles andere läuft bei mir auf Windows 8.1 64 Bit flickerfrei.
Das Einzige was aufgefallen ist, ist, dass bei Abwahl der Checkboxen "Crystal" oder "Blur mode" zuerst ganz kurz ein Zwischenbackground kommt und dann erst der Standard.

Geändert von DasWolf (13. Jun 2019 um 08:18 Uhr)
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#7

AW: Zeilenumbruch verbessern

  Alt 13. Jun 2019, 13:33
Zitat:
Läuft bei mir leider nicht. Die Datei Graphics.dcu wird nicht gefunden.
Das hat dann aber mit deinem System zu tun Graphics ist eine Standard Unit in Delphi.
Zitat:
Auf Win7x64 läuft es und auch flickerfrei.
Danke euch.. Habe vergessen bei zu schreiben das ich ältere System nicht mehr unterstütze. mindestens Win10
Windows 10 verwendete eine andere Methode für Blur wundert mich das es unter win7 damit noch geht.

Zitat:
Nur wenn ich die Fensterhöhe per Titlebar verändere dann tun mir "die Augen weh".
Muss ich mal prüfen Danke.

Zitat:
Das Einzige was aufgefallen ist, ist, dass bei Abwahl der Checkboxen "Crystal" oder "Blur mode" zuerst ganz kurz ein Zwischenbackground kommt und dann erst der Standard.
Wenn dann nur beim Blur Effekt.
Diese Implementierung ist unter Windows 10 sehr schlecht. Es arbeitet nicht mit WM_PRINT zusammen und die Regionen von Fenstern werden grundsätzlich ignoriert.

Nebenbei der Fix für den Resize.. auch wenn es darum eigentlich nicht ging.

Delphi-Quellcode:
{$REGION 'Procedure ResizeWindow'}

procedure ResizeWindow(WinHandle: HWND; ChangeBackground: integer);
begin

  if SKAERO_IsEngineAssigned then
  begin
    // Nicht minimiert
    if ChangeBackground = 0 then
      if not IsIconic(WinHandle) then
        ShowWindow(WinHandle, SW_HIDE);

    if SKAERO_Composited(WinHandle) then
      lRes := SKAERO_BeginDeferWindowPos(WinHandle, 0);

    // Hintergrund neuzeichnen
    SKAERO_DrawBackground(WinHandle);
    
    // Controls Repositionieren
    SKAERO_AnchorEnum(WinHandle);

    if SKAERO_Composited(WinHandle) then
      SKAERO_EndDeferWindowPos(WinHandle, lRes);

    if ChangeBackground <> 0 then
      SKAERO_UpdateWindow(WinHandle, False);

    if ChangeBackground = 0 then
      ShowWindow(WinHandle, SW_SHOW);
  end;
end;
{$ENDREGION}
gruss

Geändert von EWeiss (13. Jun 2019 um 14:19 Uhr) Grund: war falsch der code
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:40 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz