paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-23 19:46:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Keith: Fixed Win32 compilation problems

Browse Source 
git-svn-id: trunk@1230 -
This commit is contained in:
lazarus 2002-02-09 01:48:08 +00:00
parent dd14f6a5fd
commit caec2bc4ad
2 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/win32/interfaces.pp
View File

@ -46,5 +46,6 @@ Application.Free;
Application := Nil; Application := Nil;
InterfaceObject.Free; InterfaceObject.Free;
InterfaceObject := Nil;
End. End.

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

@ -2391,6 +2391,10 @@ Begin
TLMCalendar(Data^).Date := StrToDate(IntToStr(WMonth) + '/' + IntToStr(WDay) + '/' + IntToStr(WYear)); TLMCalendar(Data^).Date := StrToDate(IntToStr(WMonth) + '/' + IntToStr(WDay) + '/' + IntToStr(WYear));
End; End;
End; End;
csSpinEdit:
Begin
Integer(Data^) := SendMessage(Handle, UDM_GETPOS, 0, 0);
End;
Else Else
Assert (True, Format('WARNING:[TWin32Object.GetValue]] failed for %S', [Sender.ClassName])); Assert (True, Format('WARNING:[TWin32Object.GetValue]] failed for %S', [Sender.ClassName]));
End; End;
@ -2542,9 +2546,9 @@ begin
With LVC Do With LVC Do
Begin Begin
Mask := LVCF_FMT Or LVCF_TEXT Or LVCF_WIDTH; Mask := LVCF_FMT Or LVCF_TEXT Or LVCF_WIDTH;
Fmt := Integer(Columns.Item[I].Alignment); Fmt := Integer(Columns.Items[I].Alignment);
CX := Columns.Item[I].Width; CX := Columns.Items[I].Width;
PSzText := PChar(Columns.Item[I].Caption); PSzText := PChar(Columns.Items[I].Caption);
End; End;
ListView_SetColumn(Handle, I, LVC); ListView_SetColumn(Handle, I, LVC);
End; End;
@ -2553,8 +2557,8 @@ begin
//ListView_SortItems(Handle, @CompareFunc, 0); //ListView_SortItems(Handle, @CompareFunc, 0);
If MultiSelect Then If MultiSelect Then
SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) And Not LVS_SINGLESEL); SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) And Not LVS_SINGLESEL);
If Images <> Nil Then If SmallImages <> Nil Then
ListView_SetImageList(Handle, Images.Handle, LVSIL_NORMAL); ListView_SetImageList(Handle, SmallImages.Handle, LVSIL_NORMAL);
End; End;
End; End;
csProgressBar: csProgressBar:
@ -2606,6 +2610,10 @@ begin
End; End;
Assert(False, 'Trace:TODO: [TWin32Object.SetProperties] Set up step and page increments for csScrollBar'); Assert(False, 'Trace:TODO: [TWin32Object.SetProperties] Set up step and page increments for csScrollBar');
End; End;
csSpinEdit:
Begin
SendMessage(Handle, UDM_SETPOS, 0, MakeLong(Trunc(TSpinEdit(Sender).Value), 0));
End;
csTrackbar: csTrackbar:
With(TTrackBar(Sender)) Do With(TTrackBar(Sender)) Do
Begin Begin
@ -3101,6 +3109,9 @@ End;
{ {
$Log$ $Log$
Revision 1.17 2002/03/17 21:36:52 lazarus
Keith: Fixed Win32 compilation problems
Revision 1.16 2002/02/07 08:35:12 lazarus Revision 1.16 2002/02/07 08:35:12 lazarus
Keith: Fixed persistent label captions and a few less noticable things Keith: Fixed persistent label captions and a few less noticable things