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

remove obsolete LM_LOADXPM message

Browse Source 
git-svn-id: trunk@5578 -
This commit is contained in:
micha 2004-06-18 20:15:06 +00:00
parent 47ee7b1b10
commit 3426a8ad59
2 changed files with 6 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -406,7 +406,6 @@ End;
------------------------------------------------------------------------------}
Function TWin32WidgetSet.IntSendMessage3(LM_Message: Integer; Sender: TObject; Data: Pointer): Integer;
Var
XPMFIle : TFileStream;
//Bitmap: HBITMAP; // Pixel map type image
//CBI: COMBOBOXINFO;
DC: HDC;
@ -468,29 +467,6 @@ Begin
PLMScreenInit(Data)^.ColorDepth := GetDeviceCaps(DC, BitsPixel);
ReleaseDC(Handle, DC);
End;
LM_LOADXPM:
Begin
If (Sender is TBitmap) Then
Begin
//Until CreateBitmap supports setting Data
//GTK requires the Bitmap loading to be done
//by the interface, aka here, so a hack...
XPMFile := TFileStream.Create(String(Data), fmOpenRead);
Try
(Sender as TBitmap).LoadFromStream(XPMFile);
Finally
XPMFile.Free;
end;
{Assert(False, Format('Trace:Bitmap name: %S', [StrPas(Data)]));
//SData := String(Data);
NormalizeIconName(Data);
//Data := PChar(SData);
Bitmap := LoadImage(0, LPCTSTR(Data), IMAGE_ICON, 0, 0, LR_DefaultSize Or LR_LoadFromFile);
Assert(False, 'Trace:1');
If Bitmap = HBITMAP(Nil) Then
Assert(False, 'Trace:BITMAP NOT LOADED!');}
End;
End;
Else
Begin
Handle := ObjectToHWND(Sender);
@ -3294,6 +3270,9 @@ End;
{
$Log$
Revision 1.208 2004/06/18 20:15:06 micha
remove obsolete LM_LOADXPM message
Revision 1.207 2004/06/18 19:55:43 micha
fix xp themes drawing image on bitbtn

7
lcl/lmessages.pp
View File

@ -86,8 +86,6 @@ const
LM_LAYOUTCHANGED = LM_ComUser+50;
LM_BTNDEFAULT_CHANGED = LM_ComUser+51;
LM_LOADXPM = LM_ComUser+52;
LM_DRAGINFOCHANGED = LM_COMUSER+53;
//LM_SETENABLED = LM_COMUSER+54;
@ -920,8 +918,6 @@ begin
LM_LAYOUTCHANGED :Result:='LM_LAYOUTCHANGED';
LM_BTNDEFAULT_CHANGED :Result:='LM_BTNDEFAULT_CHANGED';
LM_LOADXPM :Result:='LM_LOADXPM';
LM_DRAGINFOCHANGED :Result:='LM_DRAGINFOCHANGED';
//LM_SETENABLED :Result:='LM_SETENABLED';
@ -1082,6 +1078,9 @@ end.
{
$Log$
Revision 1.65 2004/06/18 20:15:06 micha
remove obsolete LM_LOADXPM message
Revision 1.64 2004/06/14 12:54:02 micha
fix designer cursor to not set Form.Cursor directly