[Delphi] EM_SETMARGINS op een TCustomEdit

[_Thanatos_]

Ik probeer een TCustomEdit descendant te maken die aan de rechterkant een knopje weergeeft. Op internet zijn er al enkele controls die dat doen, maar ze hebben allemaal een probleem: op verschillende momenten worden de margins gereset, zodat het knopje weer wit wordt. Ik heb dit weten af te vangen, door in de volgende methoden/notifications de margins te forceren naar wat ik wilde:

• CreateWnd
• DoEnter
• DoExit
• MouseDown
• MouseMove
• CreateHandle
• WM_CAPTURECHANGED
• WM_SETFOCUS
• WM_MOUSEACTIVATE
• WM_SIZE

Zoals je ziet, dat zijn er nogal wat. Maar in al deze methoden/notifications kunnen de margins gereset worden, zodat ik ze weer opnieuw moet instellen. Dit heeft tot gevolg dat de control twee keer getekend wordt, en dat leidt weer tot een knipperend effect.

Weet iemand waardoor deze margins gereset worden? Is dit op een normale (en betrouwbare) manier op te vangen? Of zijn de margins op een andere manier in te stellen waardoor de control ze wel "onthoudt"?

Ohja, wat code nog. De code om de margins in te stellen is vrij eenvoudig:

Delphi:

with ClientRect
do Perform(EM_SETMARGINS, EC_RIGHTMARGIN, (Bottom - Top) shl 16);

[LordLarry]

Bij mijn weten hoef je die code alleen te zetten in de WM_SIZE en in de CreateWnd. Heb je een stukje code waar uit blijkt dat dat niet genoeg is?

[_Thanatos_]

ff quick & (heel erg) dirty dan:

Delphi:

unit MarginEdit;

interface

uses
  Windows, Messages, Classes, Graphics, Controls, StdCtrls;

type
  TMarginEdit = class(TCustomEdit)
  private
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
    procedure WMSize(var Message: TWMSize); message WM_SIZE;
  public
    procedure CreateWnd; override;
  end;

implementation

procedure TMarginEdit.CreateWnd;
begin
inherited CreateWnd;
with ClientRect
do Perform(EM_SETMARGINS, EC_RIGHTMARGIN, (Bottom - Top) shl 16);
end;

procedure TMarginEdit.WMPaint(var Message: TWMPaint);
begin
inherited;
with ClientRect
do DrawFrameControl(GetDC(Handle),
      Rect(Right - (Bottom - Top), Top, Right, Bottom),
      DFC_BUTTON, DFCS_BUTTONPUSH);
end;

procedure TMarginEdit.WMSize(var Message: TWMSize);
begin
inherited;
with ClientRect
do Perform(EM_SETMARGINS, EC_RIGHTMARGIN, (Bottom - Top) shl 16);
end;

end.

Zet zo'n ding in je form met...

Delphi:

InsertControl(TMarginEdit.Create(Self));

En geef em maar es focus. De margin wordt dan gereset. Bij mij tenminste.

/edit
een heel component in 42 regels, dat moet toch een soort van record zijn

[ Voor 5% gewijzigd door _Thanatos_ op 03-01-2004 00:01 ]

[LordLarry]

Werkt perfect hier. Ik gebruik precies de code die hier staat en maak m ook precies zo aan. Op het form staat nog een gewonte TEdit die standaard de focus heeft. Als ik dan met de muis jouw component de focus geef en ik begin te typen is de marge no intakt. Ik loop niet door de button heen. Geprobeerd in D5 win2k en D7 winXP. Voor de lol heb ik het ook nog onder D8 for .Net geprobeerd en de code draaide zonder wijzigingen en zonder problemen onder winXP.

PS:

Applications should not need to call InsertControl directly... At runtime, use the Parent property of the child control...
bron: Delphi help

Normaal zet je de Parent property van de TMarginEdit instantie, bijvoorbeeld op Self (het Form).

Je zou ook een TSpeedButton kunnen gebruiken ipv het hele button gedrag zelf te gaan maken.

[_Thanatos_]

Dat is wel erg weird. Misschien kan het aan een overblijfsel van dat vervloekte MouseWare liggen (had ik ook nooit moeten installeren), maar het lijkt me wel sterk.

btw, ik gebruik juist geen speedbutton omdat ik de knop ín de edit wil en niet ernaast. Een speedbutton in de edit kan wel, maar dan komt de tekst er nog steeds overheen. Bovendien wil ik meer dan alleen maar 1 knopje. Het moet uiteindelijk een spinedit à la coreldraw worden (waarin je de waarde dus kunt wijzigen door te slepen).

edit: net ff op een kale win98 geprobeerd en het werkt perfect. Maar nu rest nog steeds dus de vraag waardoor in hemelsnaam dan die margins gereset kunnen worden...

[ Voor 15% gewijzigd door _Thanatos_ op 03-01-2004 15:57 ]

[LordLarry]

Ja, vreemd, maar we mogen wel concluderen dat het niet door Delphi komt, maar door een stukje vreemde software aan jouw kant.

Ik bedoelde niet dat je speedbutton kon gebruiken op de manier dat jij voorsteld, maar gewoon precies zoals je nu hebt. Met de margins, maar dan in het gedeelte wat overblijft 1 (of twee) speedbutton(s) zetten en niet zelf gaan tekenen met DrawFrameControl enz.

[_Thanatos_]

Hmm, ik heb vanalles geprobeerd, zelfs andere machines waarop ik vrijwel dezelfde software geinstalleerd heb. Daarop werkt dit allemaal, behalve dus mijn PC. Ik kan veilig concluderen dat het aan de volgende dingen niet ligt:

• Een driver (in veilige modus gaat het ook fout)
• Videokaart/driver (in een remote desktop session gaat het ook fout)
• Norton Antivirus (heb ik gedeïnstalleerd)
• MouseWare (heb ik op een andere PC geïnstalleerd en zorgde niet voor dit effect)

Ik ben er via Winspector achter gekomen dat er wel heel erg vaak WM_APP+15667 naar de control gepompt wordt, maar ook zo nu en dan (kan niet precies achterhalen wanneer, het lijkt nogal random) WM_APP+12314 en WM_APP+12315.

Die eerste wordt op PC's waar dit op werkt ook verzonden, maar slechts één keer. De andere heb ik nog nooit van m'n leven gezien.

/edit
Zucht, ik heb gevonden wat dit veroorzaakt. In Windows XP (en 2000?) kun je ondersteuning voor van-rechts-naar-links talen en aziatische talen installeren. Dat heb ik dus. Op een PC waarop dit werkte heb ik die twee vinkjes ook aangezet, in configuratiescherm -> landinstellingen dus, en toen liep mijn control de mist in

Met deze info kan een van u misschien helpen met een oplossing? Want er zijn vast meer gebruikers die chinese letters mooier vinden dan vierkantjes.

[ Voor 23% gewijzigd door _Thanatos_ op 04-01-2004 00:19 ]

[LordLarry]

Als ik het goed bereken vind ik het volgende:

WM_APP+15667 = CN_CTLCOLOREDIT
WM_APP+12314 = CM_ENTER
WM_APP+12315 = CM_EXIT

Dit zijn Delphi's eigen windows messages die soms verstuurd worden tussen de componenten. Ik kan niets in de VCL vinden dat reageert op CN_CTLCOLOREDIT. CN_CTLCOLOREDIT's windows equivalent is WM_CTLCOLOREDIT, maar ook die wordt niet gebruikt in de VCL. Normaal wordt deze gebruikt om de achtergrond kleur aan te kunnen geven van een edit control. Ik zie niet in waarom dat wat te maken heeft met je Chinese tekens, maar misschien is het genoeg om de margins te zetten na het ontvangen van deze message.

[_Thanatos_]

Maar dan gaat ie dus ontzettend knipperen, en dat ziet er natuurlijk niet zo profi uit. Ik heb al ontdekt dat als ik er een multiline edit van maak, in CreateParams dus, en EM_SETRECTNP gebruik om de "marges" in te stellen, het opeens stukken beter werkt. Ik kan niet testen of het met rechts-naar-links schriften ook werkt, maar daar ging het ook niet om (ik heb ze alleen maar geinstalleerd, ik gebruik ze verder niet nu).

Nu roep ik die EM_SETRECTNP dus aan in SetBounds, MouseDown en KeyDown (en op het moment dat de marges moeten veranderen uiteraard). Dat lijkt voldoende te zijn en het knippert totaal niet.

[Tomatoman]

Offtopic:
Maar meteen even een vraag ertussendoor die met marges en alignment te maken heeft: weet iemand hoe je right-to-left alignment in werking kunt zien zonder Windows in te stellen op een of andere Arabische taal? Ik heb geen idee hoe ik in mijn controls kan testen of right-to-left alignment naar behoren werkt.

[_Thanatos_]

Dat doen de BiDiMode/ImeMode properties toch?