![]() |
Re: Problem mit von CustomEdit abgeleiteten Eingabefeld
ich glaube ich komme der Lösung näher. ich habe jetzt per:
Delphi-Quellcode:
das ganze in die Mitte zu kriegen.
procedure TMUH_Edit.WMNCCalcSize (var Message: TWMNCCalcSize);
begin inherited; InflateRect(Message.CalcSize_Params^.rgrc[0],-3,-3); end; Nachteil: Jetzt zeichnet er den Rahmen auch in die Mitte :( |
Re: Problem mit von CustomEdit abgeleiteten Eingabefeld
Beispiel ? Ne, leider habe ich noch nicht versucht, Teile der VCL nachzubauen. Zuerst mußt du mal sagen, was dir an dem normalen TEdit nicht paßt. An dieser Stelle muß dann angesetzt werden. Also Methode überschreiben oder hinzufügen. Momentan bist du dabei nicht einem Rad ein anderes Profil zu geben, sondern es komplett neu zu erfinden. 8)
|
Re: Problem mit von CustomEdit abgeleiteten Eingabefeld
Sehr schön. Wenn du schon in zwei Foren postest und hier nicht erwähnst, was wir bereits diskutiert haben, dann verlinke wemfalls die Beiträge. :evil:
![]() Insbesondere diesen Hinweis: ![]() ![]() |
Re: Problem mit von CustomEdit abgeleiteten Eingabefeld
|
Re: Problem mit von CustomEdit abgeleiteten Eingabefeld
Delphi-Quellcode:
Minimier das Fenster mal und maximier es wieder, dann siehst du das Problem: Es wird nicht neu gezeichnet bei der Texteingabe. Und ich würde dir empfehlen den Text zum Schluss auszugeben und nicht wieder drüber zu pinseln.
procedure TMUH_Edit.Paint;
var Points : array[0..8] of TPoint; rec: TRect; begin FCanvas.Brush.Color := Bckrnd; FCanvas.Rectangle(Rect(0, 0, Width, Height)); FCanvas.Brush.Color := BorderCol; FCanvas.FrameRect(Rect(0, 0, Width, Height)); FCanvas.Pen.Color := BorderCol2; FCanvas.MoveTo(1, Height - 2); FCanvas.LineTo(1, 1); FCanvas.LineTo(Width - 1, 1); rec := FCanvas.ClipRect; DrawText(FCanvas.Handle, PChar(Text), length(Text), rec, DT_VCENTER or DT_SINGLELINE);
Delphi-Quellcode:
:wall:
FCanvas.FillRect(Rect(0,0,Width,Height))
|
Re: Problem mit von CustomEdit abgeleiteten Eingabefeld
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:
|
Re: Problem mit von CustomEdit abgeleiteten Eingabefeld
Ich habe das Gefühl meine Hilfe wird hier völlig ignoriert. Nachdem ich dir den Hinweis mit DrawText gegeben habe, muss sich sehen, dass du es in dem hier gepostetetn Quelltext immer noch nicht ausprobiert hattest, zu mindest war im Quelltext davon nichts zu erkennen. Desweiteren habe ich dir in meinem letzten Post gesagt, warum es nicht richtig klappt. Und habe dir gesagt, was für ein Problem du lösen musst.
So langsam verliere ich die Lust zu helfen. |
Re: Problem mit von CustomEdit abgeleiteten Eingabefeld
Stimmt nicht. ich hab bis jetzt immer ausprobiert was du geschrieben hast.
Ist auch komisch, ich hab das geändert und abgespeichert bevor ich das hochgeladen hab. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:42 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