paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 23:36:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented TMemo.SelLength, improved OI hints

Browse Source 
git-svn-id: trunk@2098 -
This commit is contained in:
mattias 2002-08-17 23:40:56 +00:00
parent 11d8176992
commit 3d9c75633e
1 changed files with 34 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2286,48 +2286,52 @@ begin
Result:= PGtkEntry(PGtkCombo(Handle)^.entry)^.text_max_length;
end;
end;
LM_SETSELSTART :
LM_SETSELSTART:
begin
if (Sender is TControl) then begin
case TControl(Sender).fCompStyle of
csComboBox:
gtk_editable_set_position(PGtkEditable(PGtkCombo(Handle)^.entry),
Integer(Data));
csEdit, csMemo:
begin
Widget:= GetWidgetInfo(Pointer(Handle), true)^.ImplementationWidget;
gtk_editable_set_position(PGtkEditable(Widget), Integer(Data));
end;
end;
csComboBox:
Widget:=PGtkCombo(Handle)^.entry;
csEdit, csMemo:
Widget:=GetWidgetInfo(Pointer(Handle), true)^.ImplementationWidget;
else
Widget:=nil;
end;
if Widget<>nil then begin
gtk_editable_set_position(PGtkEditable(Widget), Integer(Data));
end;
end;
end;
LM_SETSELLEN :
begin
if (Sender is TControl) then begin
case TControl(Sender).fCompStyle of
csComboBox:
begin
gtk_editable_select_region(PGtkEditable(PGtkCombo(Handle)^.entry),
gtk_editable_get_position(PGtkEditable(PGtkCombo(Handle)^.entry)),
gtk_editable_get_position(PGtkEditable(PGtkCombo(Handle)^.entry))
+ Integer(Data));
end;
csEdit:
begin
gtk_editable_select_region(PGtkEditable(Handle),
gtk_editable_get_position(PGtkEditable(Handle)),
gtk_editable_get_position(PGtkEditable(Handle)) + Integer(Data));
end;
csComboBox:
Widget:=PGtkCombo(Handle)^.entry;
csEdit, csMemo:
Widget:=GetWidgetInfo(Pointer(Handle), true)^.ImplementationWidget;
else
Widget:=nil;
end;
if Widget<>nil then begin
gtk_editable_select_region(PGtkEditable(Widget),
gtk_editable_get_position(PGtkEditable(Widget)),
gtk_editable_get_position(PGtkEditable(Widget)) + Integer(Data));
end;
end;
end;
LM_GetLineCount :
begin
writeln('ToDo: LM_GetLineCount');
end;
LM_GETSELCOUNT :
@ -7063,6 +7067,9 @@ end;
{ =============================================================================
$Log$
Revision 1.340 2003/03/25 13:00:39 mattias
implemented TMemo.SelLength, improved OI hints
Revision 1.339 2003/03/25 10:45:41 mattias
reduced focus handling and improved focus setting