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

remove obsolete LM_SETFILTER and LM_SETFILENAME messages

Browse Source 
git-svn-id: trunk@5971 -
This commit is contained in:
micha 2004-09-11 15:01:22 +00:00
parent 9331f9ce12
commit 7d7aae1d39
3 changed files with 9 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3242,33 +3242,6 @@ begin
end;
LM_SETFILTER :
begin
{ ToDo:
if Sender is TFileDialog then begin
pStr := StrAlloc(length(TFileDialog(Sender).Filter) + 1);
try
StrPCopy(pStr, TFileDialog(Sender).Filter);
gtk_file_selection_complete(PGtkFileSelection(Handle), pstr);
finally
StrDispose(pStr);
end;
end;}
end;
LM_SETFILENAME :
begin
if Sender is TFileDialog then begin
pStr := StrAlloc(length(TFileDialog(Sender).Filename) + 1);
try
StrPCopy(pStr, TFileDialog(Sender).Filename);
gtk_file_selection_set_filename( PGtkFileSelection(Handle), pStr);
finally
StrDispose(pStr);
end;
end;
end;
LM_SETFOCUS:
begin
//DebugLn('[TGtkWidgetSet.IntSendMessage3] LM_SETFOCUS ',TObject(Sender).ClassName);
@ -8636,6 +8609,9 @@ end;
{ =============================================================================
$Log$
Revision 1.553 2004/09/11 15:01:22 micha
remove obsolete LM_SETFILTER and LM_SETFILENAME messages
Revision 1.552 2004/09/11 14:54:01 micha
convert LM_BTNDEFAULT_CHANGED message to interface method

27
lcl/interfaces/win32/win32object.inc
View File

@ -360,30 +360,6 @@ activate_time : the time at which the activation event occurred.
TrackPopupMenuEx(TPopupMenu(Sender).Handle, TPM_LEFTALIGN or TPM_LEFTBUTTON or TPM_RIGHTBUTTON,
TPoint(Data^).x, TPoint(Data^).y, FAppHandle, Nil);
End;
LM_SETFILTER:
Begin
//The filter is processed/set inside Execute/CreateCommonDialog
//not to say that the code is buggy
{PStr := StrAlloc(Length(TFileDialog(Sender).Filter) + 1);
Try
StrPCopy(PStr, TFileDialog(Sender).Filter);
LPOpenFileName(@Sender)^.LPStrFilter := PStr; <- Invalid Typecast
Finally
StrDispose(pStr);
End; }
End;
LM_SETFILENAME:
Begin
//The filename is processed/set inside Execute/CreateCommonDialog
//not to say that the code is buggy
{PStr := StrAlloc(Length(TFileDialog(Sender).FileName) + 1);
Try
StrPCopy(PStr, TFileDialog(Sender).FileName);
LPOpenFileName(@Sender)^.LPStrFile := PStr; <- Invalid Typecast
Finally
StrDispose(pStr);
End; }
End;
LM_SETFOCUS:
Begin
If Handle <> 0 Then
@ -2566,6 +2542,9 @@ End;
{
$Log$
Revision 1.245 2004/09/11 15:01:22 micha
remove obsolete LM_SETFILTER and LM_SETFILENAME messages
Revision 1.244 2004/09/11 14:54:01 micha
convert LM_BTNDEFAULT_CHANGED message to interface method

7
lcl/lmessages.pp
View File

@ -163,8 +163,6 @@ const
//LM_DRAW = LM_User+32; //LM_DRAW and LM_PAINT are the same.
LM_PAINT = LM_User+32;
LM_SHOWMODAL = LM_USER+33;
LM_SETFILTER = LM_USER+34;
LM_SETFILENAME = LM_USER+35;
LM_OK_CLICKED = LM_USER+36;
LM_CANCEL_CLICKED = LM_USER+37;
//LM_KEYDOWN = LM_User+38; // Windows Compatability
@ -959,8 +957,6 @@ begin
//LM_DRAW :Result:='LM_DRAW';
LM_PAINT :Result:='LM_PAINT';
LM_SHOWMODAL :Result:='LM_SHOWMODAL';
LM_SETFILTER :Result:='LM_SETFILTER';
LM_SETFILENAME :Result:='LM_SETFILENAME';
LM_OK_CLICKED :Result:='LM_OK_CLICKED';
LM_CANCEL_CLICKED :Result:='LM_CANCEL_CLICKED';
//LM_KEYDOWN :Result:='LM_KEYDOWN';
@ -1011,6 +1007,9 @@ end.
{
$Log$
Revision 1.87 2004/09/11 15:01:22 micha
remove obsolete LM_SETFILTER and LM_SETFILENAME messages
Revision 1.86 2004/09/11 14:54:01 micha
convert LM_BTNDEFAULT_CHANGED message to interface method