Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Problem mit von CustomEdit abgeleiteten Eingabefeld (https://www.delphipraxis.net/54214-problem-mit-von-customedit-abgeleiteten-eingabefeld.html)

LH_Freak 29. Sep 2005 23:09

Re: Problem mit von CustomEdit abgeleiteten Eingabefeld
 
ich glaube ich komme der Lösung näher. ich habe jetzt per:

Delphi-Quellcode:
procedure TMUH_Edit.WMNCCalcSize (var Message: TWMNCCalcSize);
begin
  inherited;
  InflateRect(Message.CalcSize_Params^.rgrc[0],-3,-3);
end;
das ganze in die Mitte zu kriegen.
Nachteil: Jetzt zeichnet er den Rahmen auch in die Mitte :(

Hansa 29. Sep 2005 23:45

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)

Luckie 30. Sep 2005 01:10

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:
http://www.delphi-forum.de/topic_Eig...tet_49062.html
Insbesondere diesen Hinweis: http://www.delphi-forum.de/viewtopic...=297211#297211 in Zusammenhang mit diesem: http://www.delphi-forum.de/viewtopic...=297571#297571

Hansa 30. Sep 2005 01:17

Re: Problem mit von CustomEdit abgeleiteten Eingabefeld
 
Hier gehts weiter :

http://www.delphi-forum.de/viewtopic...df1e698#297580

:mrgreen:

Luckie 30. Sep 2005 02:06

Re: Problem mit von CustomEdit abgeleiteten Eingabefeld
 
Delphi-Quellcode:
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);
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.
Delphi-Quellcode:
FCanvas.FillRect(Rect(0,0,Width,Height))
:wall:

LH_Freak 30. Sep 2005 13:24

Re: Problem mit von CustomEdit abgeleiteten Eingabefeld
 
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:

Luckie, das da hat so keinen Zweck. Habe vorhin in der DP noch was dazu geschrieben. Der soll sich mal zuerst überlegen, wo eine zusammenhängende Antwort zustande kommt. Das Stückwerk ist allerdings offensichtlich bereits eröffnet. 8)
Gut, dann schaut euch das Prob besser an. Und damit es nicht heißt das nützt euch wenig, kleich noch Quellcode der Kompo dazu :x

Luckie 30. Sep 2005 13:38

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.

LH_Freak 30. Sep 2005 13:45

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.
Seite 2 von 2     12   

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