Transparent Edit

[himitsu]

Zitat von mkinzler:

In neueren Delphiversionen schon.

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

Zitat:

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

Ein bissl wenig Speicher?

TextLength * SizeOf(WideChar) oder (TextLength + 1) * SizeOf(WideChar) , jenachdem ob die #0 in TextLength schon mit enthalten ist

[EWeiss]

Zitat von himitsu:

Zitat von mkinzler:

In neueren Delphiversionen schon.

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

Zitat:

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

Ein bissl wenig Speicher?

TextLength * SizeOf(WideChar) oder (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 von 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.

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 von EWeiss:

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 Chars * SizeOf(EinZeichen) oder, da man hier direkt weiß, daß es nur WideChar sein kann, direkt mit 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 von himitsu:

Zitat von EWeiss:

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 Chars * SizeOf(EinZeichen) oder, da man hier direkt weiß, daß es nur WideChar sein kann, direkt mit 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 von himitsu:

Zitat von mkinzler:

In neueren Delphiversionen schon.

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

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