Transparent Edit

[EWeiss]

Hab ne transparente Edit erstellt

Delphi-Quellcode:

  FHEdit := CreateWindowEx(WS_EX_TRANSPARENT, 'EDIT', 'Was nun?', WS_VISIBLE or
    WS_CHILD, x, y, xW, yH, hOwner, EditID, SkinEngine.skInstance, nil);

Das Problem ist nun das mir einfach nicht der richtige Text angezeigt wird in dem Fall also "Was nun?"

Delphi-Quellcode:

var
  buffer:  array[0..1024] of Char;
  Text:    PWideChar;
begin
  SendMessage(WinHandle, WM_GETTEXT, sizeof(buffer),
    Integer(@buffer));

  Text := buffer;
...

Hab ich was am Kopf? Scheint so!

gruss

[s.h.a.r.k]

Was wird überhaupt angezeigt? :stupid:

[EWeiss]

Zitat:

Zitat von s.h.a.r.k (Beitrag 1179239)

Was wird überhaupt angezeigt? :stupid:

Delphi-Quellcode:

procedure TSkinEdit.DrawItem(WinHandle: HWND; DC: Hdc; Rect: TRect;
  Selected: Bool);
var
  rc:      TRect;
  memdc:   HDC;
  oldFont: HFont;
  oldbmp:  HBitmap;
  buffer:  array[0..1024] of Char;
  Text:    PWideChar;

begin


  rc := Rect;

  SendMessage(WinHandle, WM_GETTEXT, sizeof(buffer), Integer(@buffer));
  Text := buffer;

  SetBkMode(DC, TRANSPARENT);
  memdc := CreateCompatibleDC(Dc);

  oldFont := SelectObject(Dc, GetEditFont);
  oldbmp := SelectObject(memdc, SkinEngine.GetBackBitmap(GetParent(WinHandle)));

  BitBlt(DC, rc.left, rc.top, rc.Right, rc.Bottom, memdc, rc.left, rc.top, SRCCOPY);

  if GetShadow then
  begin
    if IsWindowEnabled(WinHandle) then
      Color:= GetShadowColor
    else
    Color:= RGB(255,255,255);

    DrawTextToDC(DC, Text, rc.Left, rc.Top, Color, FFontName, FPointSize, FFontStyle, 1.1, 0);

    if IsWindowEnabled(WinHandle) then
    begin
      if Selected then
        Color:=AktForecolor
      else
      Color:= InAktForecolor;
    end else
    Color:= RGB(140,140,140);

    DrawTextToDC(DC, Text, rc.Left, rc.Top, Color, FFontName, FPointSize, FFontStyle, 1.1, 0);

  end else
  DrawTextToDC(DC, Text, rc.Left, rc.Top, Color, FFontName, FPointSize, FFontStyle, 0, 0);

  SelectObject(DC, oldFont);
  DeleteObject(oldFont);

  SelectObject(memdc, oldbmp);
  DeleteDC(memdc);

end;

Angezeigt wird der erste Char im buffer ordnungsgemäß in 2D/Schatten-Schrift.
Der aber nichts mit den übergebenen String zu tun hat also willkürlich.

gruss

[s.h.a.r.k]

Hab leider kein Delphi zum Testen/Debuggen da. In der Variable buffer bzw. Text steht dann somit das falsche, d.h. zeigt quasi auf irgendwas, oder? Kann es ein Unicode-Problem sein?

Habe auch schon mal folgendes gesehen, also einen Zeiger auf das erste Element im Array -- weiß nur nicht, ob das einen Unterschied macht:

Delphi-Quellcode:

SendMessage(Child, WM_GETTEXT, 1024{bei Unicode: 2048}, Integer(@buffer[0]));

Oder hast es schon mal mit der Methode hier getestet?

[EWeiss]

Mit dem von dir verlinkten Codeschnipsel ist die textlänge immer 0
Mit dem doppelten buffer bekomme ich so was..

Hmm seltsames verhalten mal wieder.

gruss

[himitsu]

Bei einem dynamischen Array gibt es dazwischen noch einen Zeiger.
Aber bei statischen Array liegt der Arrayspeicher direkt in der Variable, womit @buf und @buf[0] auf die selbe Adresse zeigen. (aber [0] ist wenigstens konsequent/einheitlich)

Was ist DrawTextToDC und was sagt der Debugger zum Inhalt in Buffer/Text?

SizeOf(Buffer) ist definitiv falsch, denn ließ mal nach, was WM_GETTEXT verlangt.
"Characters" und nicht "Bytes", also Length(Buffer) :!:

PS:

Delphi-Quellcode:

buffer: array[0..1024] of Char;
Text: PWideChar;

Char und PWideChar?
Das paßt nicht wirklich zusammen.
Und passend zum SendMessage, sollte es also PChar heißen, wobei der Pointer eigentlich nicht unbedingt nötig ist und man überall auch direkt auf Buffer zugreifen könnte.

[mkinzler]

Zitat:

Char und PWideChar?
Das paßt nicht wirklich zusammen.

In neueren Delphiversionen schon.

[EWeiss]

Ok hat sich erledigt..
Hatte wirklich was am Kopf.
Wenn man die Messagen einer gesubclassed Edit nicht weiterleitet kann das nicht gehen.

implementation

Delphi-Quellcode:

{ TSkinEdit }

procedure TSkinEdit.ClientWndProc(var Message: TMessage);
begin
  with Message do
  begin
    case Msg of
      WM_ERASEBKGND:
        Result := EditProc(Handle, integer(Msg), Message.WParam, Message.LParam);
      WM_PAINT:
        Result := EditProc(Handle, integer(Msg), Message.WParam, Message.LParam);
      WM_GETTEXT:
        Result := EditProc(Handle, integer(Msg), Message.WParam, Message.LParam);
      WM_GETTEXTLENGTH:
        Result := EditProc(Handle, integer(Msg), Message.WParam, Message.LParam);
    end;
  end;
end;

Danke für deine Hilfe das hat mich erst darauf gebracht.
Muss jetzt noch schaun wie ich die Eingabe von Hand tätigen muss.

Also dieser abgewandelte Schnipsel geht so schon mit 2010!

Delphi-Quellcode:

function GetWindowText(WinHandle: HWND): PWideChar;
 var
   TextLength: Integer;
   Text: PWideChar;
 begin
   Result := '';
   if wnd = 0 then
     Exit;
   TextLength := SendMessageW(WinHandle, WM_GETTEXTLENGTH, 0, 0);
   if TextLength <> 0 then
   begin
     GetMem(Text, sizeof(Text) + 1);
     SendMessageW(wnd, WM_GETTEXT, TextLength + 1, Integer(Text));
     Result := Text;
     FreeMem(Text);
   end;
 end;

Zitat:

sollte es also PChar heißen

PChar wird automatisch nach PWideChar gecastet warum dann nicht direkt?


gruss

[s.h.a.r.k]

So, hab jetzt mal meinen Kollegen geschlagen nett gebeten, sodass er sein Notebook mal rausgerückt hat :stupid: Hatte das gleiche Problem, wie du es hast. ABER wie folgt hat es dann doch funktioniert:

Delphi-Quellcode:

SendMessage(WinHandle, WM_GETTEXT, Length(buffer), Integer(@buffer));

Habe das sizeof durch Length ersetzt. Und WM_GETTEXTLENGTH hat bei mir dann auch funktioniert.

[EWeiss]

Zitat:

Zitat von s.h.a.r.k (Beitrag 1179280)

So, hab jetzt mal meinen Kollegen geschlagen nett gebeten, sodass er sein Notebook mal rausgerückt hat :stupid: Hatte das gleiche Problem, wie du es hast. ABER wie folgt hat es dann doch funktioniert:

Delphi-Quellcode:

SendMessage(WinHandle, WM_GETTEXT, Length(buffer), Integer(@buffer));

Habe das sizeof durch Length ersetzt. Und WM_GETTEXTLENGTH hat bei mir dann auch funktioniert.

Danke für deine Mühe ..
Mit dem verlinkten Schnipsel ging es dann auch nachdem ich die Messagen weitergeleitet habe.


gruss

[himitsu]

Zitat:

Zitat von mkinzler (Beitrag 1179276)

In neueren Delphiversionen schon.

Noch ... wer weiß wann wir UCS4 bekommen. :roll:

Zitat:

Delphi-Quellcode:

GetMem(Text, sizeof(Text) + 1);

Ein bissl wenig Speicher?

Delphi-Quellcode:

TextLength * SizeOf(WideChar)

oder

Delphi-Quellcode:

(TextLength + 1) * SizeOf(WideChar)

, jenachdem ob die #0 in TextLength schon mit enthalten ist :!:

[EWeiss]

Zitat:

Zitat von himitsu (Beitrag 1179294)

Zitat:

Zitat von mkinzler (Beitrag 1179276)

In neueren Delphiversionen schon.

Noch ... wer weiß wann wir UCS4 bekommen. :roll:

Zitat:

Delphi-Quellcode:

GetMem(Text, sizeof(Text) + 1);

Ein bissl wenig Speicher?

Delphi-Quellcode:

TextLength * SizeOf(WideChar)

oder

Delphi-Quellcode:

(TextLength + 1) * SizeOf(WideChar)

, jenachdem ob die #0 in TextLength schon mit enthalten ist :!:

Hmm SizeOf(WideChar). Ich hatte es so von Assarbad interpretiert das er SizeOf(Text) meinte.
Das man aber direkt SizeOf(WideChar) verwenden kann/muss war mir neu.

Wieder was dazu gelernt.
Habe es geändert.

Danke.

gruss

[DeddyH]

Ich persönlich habe mir angewöhnt, alle API-Funktionen, die mit Strings arbeiten, sicherheitshalber im MSDN nachzuschlagen. Teilweise erwarten sie die Textlänge, teilweise hingegen die Größe in Byte. Das spielt bei ANSI ja keine Rolle, bei Unicode hingegen schon, da man dann ggf. mit SizeOf(Char) multiplizieren muss, sofern man die Typen String, PChar und Char benutzt.

[EWeiss]

Zitat:

Zitat von DeddyH (Beitrag 1179303)

Ich persönlich habe mir angewöhnt, alle API-Funktionen, die mit Strings arbeiten, sicherheitshalber im MSDN nachzuschlagen. Teilweise erwarten sie die Textlänge, teilweise hingegen die Größe in Byte. Das spielt bei ANSI ja keine Rolle, bei Unicode hingegen schon, da man dann ggf. mit SizeOf(Char) multiplizieren muss, sofern man die Typen String, PChar und Char benutzt.

Ist eine alternative zum Forum denn alles kann man nicht wissen.
Unicode ist auch nicht so mein Ding auch wenn ich versuche zwangsmäßig bedingt durch D2010 alles dahingehend umzusetzen.
Aber so recht will das auch nicht zumindest nicht was die koreanische Sprache angeht.

gruss

[himitsu]

Zitat:

Zitat von EWeiss (Beitrag 1179300)

Das man aber direkt SizeOf(WideChar) verwenden kann/muss war mir neu.

GetMem will Bytes und wenn du darin x WideChars abspeichern willst, dann muß das "Chars" in "Bytes" umgerechnet werden,

Also entweder mit

Delphi-Quellcode:

Chars * SizeOf(EinZeichen)

oder, da man hier direkt weiß, daß es nur WideChar sein kann, direkt mit

Delphi-Quellcode:

Chars * 2

,
aber da es dem Compiler egal ist und er aus Beidem das Selbe macht ... ich finde nur, daß SizeOf(WideChar) eben genau zeigt, was man eigentlich rechnen will, wobei man bei der 2 schon nachdenken muß, was das soll.

[EWeiss]

Zitat:

Zitat von himitsu (Beitrag 1179309)

Zitat:

Zitat von EWeiss (Beitrag 1179300)

Das man aber direkt SizeOf(WideChar) verwenden kann/muss war mir neu.

GetMem will Bytes und wenn du darin x WideChars abspeichern willst, dann muß das "Chars" in "Bytes" umgerechnet werden,

Also entweder mit

Delphi-Quellcode:

Chars * SizeOf(EinZeichen)

oder, da man hier direkt weiß, daß es nur WideChar sein kann, direkt mit

Delphi-Quellcode:

Chars * 2

,
aber da es dem Compiler egal ist und er aus Beidem das Selbe macht ... ich finde nur, daß SizeOf(WideChar) eben genau zeigt, was man eigentlich rechnen will, wobei man bei der 2 schon nachdenken muß, was das soll.

Das ist verständlich war mir nur so nicht geläufig.

gruss

[Bernhard Geyer]

Zitat:

Zitat von himitsu (Beitrag 1179294)

Zitat:

Zitat von mkinzler (Beitrag 1179276)

In neueren Delphiversionen schon.

Noch ... wer weiß wann wir UCS4 bekommen. :roll:

Ich Tipp auf: Niemals! Die ganze Welt (.NET/Java/Windows/...) hat sich auf UTF-16 eingeschossen (Ok, Ich weiß es gibt eine kleine Enklave die UTF-8 als das native Format für Strings im Speicher auserkoren hat). Der Vorteil von UCS4 des einfachen Zeichenzugriffs ist nicht mehr so groß als das MS/Apple/Oracle/... anfangen würden eine UCS4-API aufzubauen welche Jahre parallel zur UTF-16-API bestehen würde.

[EWeiss]

Hab doch noch ein probleme bzg. des Subclassing.

Delphi-Quellcode:

constructor TSkinEdit.Create(hOwner: HWND; Visible: Bool; x, y, xW, yH, EditID: Integer);
begin

  if Visible then
  begin
    LStyle := WS_VISIBLE or WS_CHILD or ES_NOHIDESEL;
  end else
  LStyle := WS_CHILD or ES_NOHIDESEL;

  FHEdit := CreateWindowEx(WS_EX_TRANSPARENT or WS_EX_CLIENTEDGE, 'EDIT',
    'Was nun? Nur ein Test!', LStyle, x, y, xW, yH, hOwner, EditID,
    hInstance, nil);

  if FHEdit <> 0 then
  begin
    SubClass(Handle);

  end;
end;

Delphi-Quellcode:

procedure TSkinEdit.SubClass(WinHandle: HWND);
begin

  FClientInstance := MakeObjectInstance(ClientWndProc);

  FPrevClientProc := Pointer(GetWindowLong(WinHandle, GWL_WNDPROC));
  SetWindowLong(WinHandle, GWL_WNDPROC, Integer(FClientInstance));
end;

Messagen die zur zeit GeSubclassed werden

Delphi-Quellcode:

procedure TSkinEdit.ClientWndProc(var Message: TMessage);
begin
  with Message do
  begin
    case Msg of
      WM_ERASEBKGND:
        Result := EditProc(Handle, integer(Msg), Message.WParam, Message.LParam);
      WM_PAINT:
        Result := EditProc(Handle, integer(Msg), Message.WParam, Message.LParam);
      WM_GETTEXT:
        Result := EditProc(Handle, integer(Msg), Message.WParam, Message.LParam);
      WM_GETTEXTLENGTH:
        Result := EditProc(Handle, integer(Msg), Message.WParam, Message.LParam);
    end;
  end;
end;

Probleme die ich nun habe
1. Kein Focus auf das Edit
2. Kein Rechter Mausclick wird ausgelöst
3. Edit läßt sich nicht editieren

Deaktiviere ich die Subclass dann sind alle die genannten Functionen so wie sie sein sollen.
Dann ist sie allerdings nicht mehr transparent und ohne OwnerdrawText.

Was fehlt?
Hab mich im NET mal dumm und dusselig gesucht finde nicht die
passenden WM Messagen oder was auch immer um die probleme zu beheben.

Edit:
Ok werde wohl mal ne Standard Edit mit Winspector überwachen.
Und prüfen welche Messagen ausgelöst werden.

gruss

[EWeiss]

Alle Messagen geprüft
mit keiner kann ich die letzten geposteten Probleme beheben.

Jemand ne idee?

gruss

[EWeiss]

Oh nein sollte das jetzt doch noch funktionieren ;)

Thema erledigt problem gelößt.

gruss