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

change TWin32... to TWinCE... in comments, asserts and other possible places

Browse Source 
git-svn-id: trunk@13712 -
This commit is contained in:
paul 2008-01-10 08:55:52 +00:00
parent 3ebf0dbd28
commit dfebf63be4
7 changed files with 31 additions and 30 deletions

2
lcl/interfaces/wince/wincelistsl.inc
View File

@ -2,7 +2,7 @@
{******************************************************************************
win32listsl.inc
TWin32ListStringList and TWin32CListStringList
TWinCEListStringList and TWinCECListStringList
******************************************************************************

2
lcl/interfaces/wince/wincelistslh.inc
View File

@ -2,7 +2,7 @@
{******************************************************************************
win32listslh.inc
TWin32ListStringList and TWin32CListStringList
TWinCEListStringList and TWinCECListStringList
******************************************************************************

34
lcl/interfaces/wince/winceobject.inc
View File

@ -50,7 +50,7 @@ begin
WinCEWidgetSet := Self;
end;
{------------------------------------------------------------------------------
Method: TWin32WidgetSet.Destroy
Method: TWinCEWidgetSet.Destroy
Params: None
Returns: Nothing
@ -61,12 +61,12 @@ var
n: integer;
TimerInfo : PWinCETimerInfo;
Begin
Assert(False, 'Trace:TWin32WidgetSet is being destroyed');
Assert(False, 'Trace:TWinCEWidgetSet is being destroyed');
n := FTimerData.Count;
if (n > 0) then
begin
DebugLn(Format('[TWin32WidgetSet.Destroy] WARNING: There are %d TimerInfo structures left, I''ll free them' ,[n]));
DebugLn(Format('[TWinCEWidgetSet.Destroy] WARNING: There are %d TimerInfo structures left, I''ll free them' ,[n]));
while (n > 0) do
begin
dec(n);
@ -103,7 +103,7 @@ Begin
End;
{------------------------------------------------------------------------------
Method: TWin32WidgetSet.AppInit
Method: TWinCEWidgetSet.AppInit
Params: None
Returns: Nothing
@ -204,7 +204,7 @@ end;
{------------------------------------------------------------------------------
Method: TWin32WidgetSet.AppBringToFront
Method: TWinCEWidgetSet.AppBringToFront
Params: None
Returns: Nothing
@ -370,7 +370,7 @@ begin
end;
{------------------------------------------------------------------------------
Method: TWin32WidgetSet.AppWaitMessage
Method: TWinCEWidgetSet.AppWaitMessage
Params: None
Returns: Nothing
@ -382,7 +382,7 @@ var
timeout,retVal: dword;
begin
RedrawMenus;
Assert(False, 'Trace:TWin32WidgetSet.WaitMessage - Start');
Assert(False, 'Trace:TWinCEWidgetSet.WaitMessage - Start');
if FWaitPipeHandlers <> nil then
timeout := 100
else
@ -399,7 +399,7 @@ begin
End;
{------------------------------------------------------------------------------
Method: TWin32WidgetSet.AppTerminate
Method: TWinCEWidgetSet.AppTerminate
Params: None
Returns: Nothing
@ -408,7 +408,7 @@ End;
procedure TWinCEWidgetSet.AppTerminate;
begin
Assert(False, 'Trace:TWin32WidgetSet.AppTerminate - Start');
Assert(False, 'Trace:TWinCEWidgetSet.AppTerminate - Start');
// roozbeh
// not existed in win32
// AppTerminated := True;
@ -509,7 +509,7 @@ end;
{ Private methods (in no significant order) }
{------------------------------------------------------------------------------
Method: TWin32WidgetSet.WinRegister
Method: TWinCEWidgetSet.WinRegister
Params: None
Returns: If the window was successfully regitered
@ -563,7 +563,7 @@ Begin
// Handle := ParentPanel;
If TControl(Sender).HandleObjectShouldBeVisible Then
Begin
Assert(False, 'Trace: [TWin32WidgetSet.ShowHide] Showing the window');
Assert(False, 'Trace: [TWinCEWidgetSet.ShowHide] Showing the window');
if TControl(Sender).FCompStyle = csHintWindow then
begin
Windows.SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW or SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE or SWP_NOOWNERZORDER);
@ -585,13 +585,13 @@ Begin
End
Else
Begin
Assert(False, 'TRACE: [TWin32WidgetSet.ShowHide] Hiding the window');
Assert(False, 'TRACE: [TWinCEWidgetSet.ShowHide] Hiding the window');
ShowWindow(Handle, SW_HIDE);
End;
End;
{------------------------------------------------------------------------------
Method: TWin32WidgetSet.DCReDraw
Method: TWinCEWidgetSet.DCReDraw
Params: CanvasHandle - HDC to redraw
Returns: Nothing
@ -600,14 +600,14 @@ End;
procedure TWinCEWidgetSet.DCRedraw(CanvasHandle: HDC);
begin
// TODO: implement me!
Assert(False, 'TRACE:[TWin32WidgetSet.ReDraw] Redrawing...');
Assert(False, 'TRACE:[TWinCEWidgetSet.ReDraw] Redrawing...');
Assert(False, 'TRACE:Invalidating the window');
Assert(False, 'TRACE:Updating the window');
Assert(False, 'TRACE:[TWin32WidgetSet.ReDraw] Finished redrawing');
Assert(False, 'TRACE:[TWinCEWidgetSet.ReDraw] Finished redrawing');
end;
{------------------------------------------------------------------------------
Method: TWin32WidgetSet.SetPixel
Method: TWinCEWidgetSet.SetPixel
Params: Canvas - canvas to set color on
X, Y - position
AColor - new color for specified position
@ -621,7 +621,7 @@ begin
end;
{------------------------------------------------------------------------------
Method: TWin32WidgetSet.GetPixel
Method: TWinCEWidgetSet.GetPixel
Params: Canvas - canvas to get color from
X, Y - position
Returns: Color at specified point

6
lcl/interfaces/wince/wincewinapi.inc
View File

@ -757,9 +757,9 @@ End;
------------------------------------------------------------------------------}
Function TWinCEWidgetSet.DrawEdge(DC: HDC; Var ARect: TRect; Edge: Cardinal; GrfFlags: Cardinal): Boolean;
Begin
Assert(False, Format('trace:> [TWin32WidgetSet.DrawEdge] DC:0x%x, Rect = %d,%d,%d,%d', [DC, ARect.Left, ARect.Top, ARect.Right, ARect.Bottom]));
Assert(False, Format('trace:> [TWinCEWidgetSet.DrawEdge] DC:0x%x, Rect = %d,%d,%d,%d', [DC, ARect.Left, ARect.Top, ARect.Right, ARect.Bottom]));
Result := Boolean(Windows.DrawEdge(DC, @ARect, edge, grfFlags));
Assert(False, Format('trace:< [TWin32WidgetSet.DrawEdge] DC:0x%x, Rect = %d,%d,%d,%d', [DC, ARect.Left, ARect.Top, ARect.Right, ARect.Bottom]));
Assert(False, Format('trace:< [TWinCEWidgetSet.DrawEdge] DC:0x%x, Rect = %d,%d,%d,%d', [DC, ARect.Left, ARect.Top, ARect.Right, ARect.Bottom]));
End;
{------------------------------------------------------------------------------
@ -823,7 +823,7 @@ End;
------------------------------------------------------------------------------}
Function TWinCEWidgetSet.EnableWindow(hWnd: HWND; bEnable: Boolean): Boolean;
Begin
Assert(False, Format('Trace:[TWin32WidgetSet.EnableWindow] HWnd: 0x%x, BEnable: %s', [HWnd, BoolToStr(BEnable)]));
Assert(False, Format('Trace:[TWinCEWidgetSet.EnableWindow] HWnd: 0x%x, BEnable: %s', [HWnd, BoolToStr(BEnable)]));
Result := Boolean(Windows.EnableWindow(HWnd, BEnable));
End;

2
lcl/interfaces/wince/wincewsextctrls.pp
View File

@ -624,6 +624,6 @@ initialization
// RegisterWSComponent(TLabeledEdit, TWinCEWSLabeledEdit);
RegisterWSComponent(TCustomPanel, TWinCEWSCustomPanel);
// RegisterWSComponent(TPanel, TWinCEWSPanel);
// RegisterWSComponent(TCustomTrayIcon, TWin32WSCustomTrayIcon);
// RegisterWSComponent(TCustomTrayIcon, TWinCEWSCustomTrayIcon);
////////////////////////////////////////////////////
end.

8
lcl/interfaces/wince/wincewsmenus.pp
View File

@ -54,7 +54,7 @@ type
class function SetRightJustify(const AMenuItem: TMenuItem; const Justified: boolean): boolean; override;
end;
{ TWin32WSMenu }
{ TWinCEWSMenu }
TWinCEWSMenu = class(TWSMenu)
private
@ -63,7 +63,7 @@ type
class function CreateHandle(const AMenu: TMenu): HMENU; override;
end;
{ TWin32WSMainMenu }
{ TWinCEWSMainMenu }
TWinCEWSMainMenu = class(TWSMainMenu)
private
@ -71,7 +71,7 @@ type
public
end;
{ TWin32WSPopupMenu }
{ TWinCEWSPopupMenu }
TWinCEWSPopupMenu = class(TWSPopupMenu)
private
@ -813,7 +813,7 @@ initialization
////////////////////////////////////////////////////
RegisterWSComponent(TMenuItem, TWinCEWSMenuItem);
RegisterWSComponent(TMenu, TWinCEWSMenu);
// RegisterWSComponent(TMainMenu, TWin32WSMainMenu);
// RegisterWSComponent(TMainMenu, TWinCEWSMainMenu);
RegisterWSComponent(TPopupMenu, TWinCEWSPopupMenu);
////////////////////////////////////////////////////
finalization

7
lcl/interfaces/wince/wincewsstdctrls.pp
View File

@ -682,7 +682,7 @@ begin
Result := SendMessage(ACustomComboBox.Handle, CB_GETCURSEL, 0, 0);
if Result = LB_ERR Then
Begin
Assert(False, 'Trace:[TWin32WidgetSet.IntSendMessage3] Could not retrieve item index '+
Assert(False, 'Trace:[TWinCEWidgetSet.IntSendMessage3] Could not retrieve item index '+
'via LM_GETITEMINDEX; try selecting an item first');
Result := -1;
End;
@ -748,7 +748,7 @@ var
Handle: HWND;
pwAText : pWideChar;
begin
Assert(False, Format('Trace:TWin32WSCustomComboBox.SetText --> %S', [AText]));
Assert(False, Format('Trace:TWinCEWSCustomComboBox.SetText --> %S', [AText]));
Handle := AWinControl.Handle;
pwAText := StringToPWideChar(AText);
if TCustomComboBox(AWinControl).ReadOnly then
@ -1011,7 +1011,8 @@ begin
// can not apply on the fly: needs window recreate
RecreateWnd(ACustomStaticText);
end;
{ TWin32WSButtonControl }
{ TWinCEWSButtonControl }
class procedure TWinCEWSButtonControl.GetPreferredSize(const AWinControl: TWinControl;
var PreferredWidth, PreferredHeight: integer; WithThemeSpace: Boolean);