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

* Commenting removed messages

Browse Source 
* Can someone please verify they can be removed please?

git-svn-id: trunk@5943 -
This commit is contained in:
mazen 2004-09-08 16:20:24 +00:00
parent 89483df42f
commit e12ee5a465
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/interfaces/gtk2/gtk2object.inc
View File

@ -566,7 +566,7 @@ begin
end;
end;
end;
{
LM_GETSELSTART :
begin
if (Sender is TControl) then begin
@ -593,7 +593,7 @@ begin
else
Result:= 0;
end;
}
LM_GETSELCOUNT :
begin
case (Sender as TControl).fCompStyle of
@ -614,7 +614,7 @@ begin
end;
end;
end;
{
LM_GETSELLEN :
begin
if (Sender is TControl) then begin
@ -641,7 +641,7 @@ begin
end;
end;
end;
}
LM_SETBORDER:
begin
if (Sender is TWinControl) then
@ -711,7 +711,7 @@ begin
end;
end;
end;
(*
LM_SETSELSTART:
begin
if (Sender is TControl) then begin
@ -742,8 +742,8 @@ begin
else
Result:= 0;
end;
LM_SETSELLEN :
*)
(* LM_SETSELLEN :
begin
if (Sender is TControl) then begin
case TControl(Sender).fCompStyle of
@ -773,7 +773,7 @@ begin
end;
end;
end;
*)
LM_SORT:
begin
if (Sender is TControl) and assigned (data) then
@ -1375,6 +1375,10 @@ end;
{ =============================================================================
$Log$
Revision 1.16 2004/09/08 16:20:24 mazen
* Commenting removed messages
* Can someone please verify they can be removed please?
Revision 1.15 2004/09/02 09:17:00 mattias
improved double byte char fonts for gtk1, started synedit UTF8 support