paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 22:19:20 +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

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

@ -2287,19 +2287,23 @@ begin
end; end;
end; end;
LM_SETSELSTART : LM_SETSELSTART:
begin begin
if (Sender is TControl) then begin if (Sender is TControl) then begin
case TControl(Sender).fCompStyle of case TControl(Sender).fCompStyle of
csComboBox: csComboBox:
gtk_editable_set_position(PGtkEditable(PGtkCombo(Handle)^.entry), Widget:=PGtkCombo(Handle)^.entry;
Integer(Data));
csEdit, csMemo: csEdit, csMemo:
begin Widget:=GetWidgetInfo(Pointer(Handle), true)^.ImplementationWidget;
Widget:= GetWidgetInfo(Pointer(Handle), true)^.ImplementationWidget;
gtk_editable_set_position(PGtkEditable(Widget), Integer(Data)); else
end; Widget:=nil;
end; end;
if Widget<>nil then begin
gtk_editable_set_position(PGtkEditable(Widget), Integer(Data));
end;
end; end;
end; end;
@ -2307,27 +2311,27 @@ begin
begin begin
if (Sender is TControl) then begin if (Sender is TControl) then begin
case TControl(Sender).fCompStyle of case TControl(Sender).fCompStyle of
csComboBox: csComboBox:
begin Widget:=PGtkCombo(Handle)^.entry;
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: csEdit, csMemo:
begin Widget:=GetWidgetInfo(Pointer(Handle), true)^.ImplementationWidget;
gtk_editable_select_region(PGtkEditable(Handle),
gtk_editable_get_position(PGtkEditable(Handle)), else
gtk_editable_get_position(PGtkEditable(Handle)) + Integer(Data)); Widget:=nil;
end; 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; end;
end; end;
LM_GetLineCount : LM_GetLineCount :
begin begin
writeln('ToDo: LM_GetLineCount');
end; end;
LM_GETSELCOUNT : LM_GETSELCOUNT :
@ -7063,6 +7067,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.339 2003/03/25 10:45:41 mattias
reduced focus handling and improved focus setting reduced focus handling and improved focus setting