paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 06:38:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixes to MaxLength. TCustomMemo now has MaxLength, too.

Browse Source 
git-svn-id: trunk@1285 -
This commit is contained in:
mbukovjan 2002-02-09 01:48:13 +00:00
parent c444873f84
commit 5b0f9093b8
1 changed files with 29 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
lcl/interfaces/gtk/gtkobject.inc
View File

@ -2815,7 +2815,7 @@ begin
LM_INSERTTEXT : LM_INSERTTEXT :
begin begin
ConnectSenderSignal(gObject, 'insert-text', @gtkinserttext); ConnectSenderSignal(gCore, 'insert-text', @gtkinserttext);
end; end;
LM_DELETETEXT : LM_DELETETEXT :
@ -3205,17 +3205,27 @@ begin
SetCallback(LM_CHANGED,Sender); SetCallback(LM_CHANGED,Sender);
End; End;
csEdit,csMemo: csEdit:
begin begin
SetCallback(LM_CHANGED,Sender); SetCallback(LM_CHANGED, Sender);
SetCallback(LM_ACTIVATE, Sender); SetCallback(LM_ACTIVATE, Sender);
SetCallback(LM_CUTTOCLIP,Sender); SetCallback(LM_CUTTOCLIP, Sender);
SetCallback(LM_COPYTOCLIP,Sender); SetCallback(LM_COPYTOCLIP, Sender);
SetCallback(LM_PASTEFROMCLIP,Sender); SetCallback(LM_PASTEFROMCLIP, Sender);
End; end;
csMemo:
begin
SetCallback(LM_CHANGED, Sender);
SetCallback(LM_ACTIVATE, Sender);
SetCallback(LM_CUTTOCLIP, Sender);
SetCallback(LM_COPYTOCLIP, Sender);
SetCallback(LM_PASTEFROMCLIP, Sender);
SetCallback(LM_INSERTTEXT, Sender);
end;
csFixed : csFixed :
Begin begin
SetCallback(LM_HSCROLL,Sender); SetCallback(LM_HSCROLL,Sender);
SetCallback(LM_VSCROLL,Sender); SetCallback(LM_VSCROLL,Sender);
end; end;
@ -5542,7 +5552,7 @@ begin
begin begin
ImplWidget:= GetWidgetInfo(Widget, true)^.ImplementationWidget; ImplWidget:= GetWidgetInfo(Widget, true)^.ImplementationWidget;
gtk_text_set_editable (PGtkText(ImplWidget), not (Sender as TMemo).ReadOnly); gtk_text_set_editable (PGtkText(ImplWidget), not (Sender as TCustomMemo).ReadOnly);
{$IfNDef Win32} {$IfNDef Win32}
gtk_text_set_line_wrap(PGtkText(ImplWidget), Integer((Sender as TCustomMemo).WordWrap)); gtk_text_set_line_wrap(PGtkText(ImplWidget), Integer((Sender as TCustomMemo).WordWrap));
{$EndIf} {$EndIf}
@ -5558,6 +5568,13 @@ begin
else else
gtk_scrolled_window_set_policy(PGtkScrolledWindow(Widget), GTK_POLICY_NEVER, GTK_POLICY_NEVER); gtk_scrolled_window_set_policy(PGtkScrolledWindow(Widget), GTK_POLICY_NEVER, GTK_POLICY_NEVER);
end; end;
if (TCustomMemo(Sender).MaxLength >= 0) then begin
i:= gtk_text_get_length(PGtkText(ImplWidget));
if i > TCustomMemo(Sender).MaxLength then begin
gtk_editable_delete_text(PGtkEditable(ImplWidget), TCustomMemo(Sender).MaxLength, i);
end;
end;
end; end;
csSpinEdit: csSpinEdit:
@ -6614,6 +6631,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.288 2002/11/16 11:22:57 mbukovjan
Fixes to MaxLength. TCustomMemo now has MaxLength, too.
Revision 1.287 2002/11/15 23:52:06 mbukovjan Revision 1.287 2002/11/15 23:52:06 mbukovjan
Fix keydown & keypress for TMemo and hopefully not break others. Fix keydown & keypress for TMemo and hopefully not break others.