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

fixed typo dont

Browse Source 
git-svn-id: trunk@27304 -
This commit is contained in:
mattias 2010-09-11 14:05:21 +00:00
parent 163408b6f1
commit 369aa3055c
49 changed files with 79 additions and 79 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/directorycacher.pas
View File

@ -739,7 +739,7 @@ function TCTDirectoryCache.FindFile(const ShortFilename: string;
procedure RaiseDontKnow;
begin
raise Exception.Create('dont know FileCase '+IntToStr(ord(FileCase)));
raise Exception.Create('do not know FileCase '+IntToStr(ord(FileCase)));
end;
var

2
components/jcf2/Process/Returns/LongLineBreaker.pas
View File

@ -270,7 +270,7 @@ begin
bad to break just before one }
if IsUnaryOperator(pcToken) then
begin
{ dont break between unary operator and operand }
{ do not break between unary operator and operand }
piScoreAfter := BAD4;
end
else

2
components/jcf2/Process/Spacing/NoSpaceBefore.pas
View File

@ -67,7 +67,7 @@ begin
if pt = nil then
exit;
{ dont apply this rule just after a conditional compilation directive }
{ do not apply this rule just after a conditional compilation directive }
lcPrev := pt.PriorTokenWithExclusions([ttWhiteSpace, ttReturn]);
if (lcPrev <> nil) and (lcPrev.TokenType = ttComment) and (lcPrev.CommentStyle = eCompilerDirective) then
exit;

2
components/synedit/synpluginsyncronizededitbase.pp
View File

@ -510,7 +510,7 @@ begin
(Cells[i].LogStart.y < aRow) ) and
( ((Cells[i].LogEnd.y = aRow) and (Cells[i].LogEnd.x > Col)) or
(Cells[i].LogEnd.y > aRow) ) and
(Cells[i].Group >= 0) // dont't display negative groups
(Cells[i].Group >= 0) // do not't display negative groups
then begin
if i = CurrentCell then
Result := MarkupInfoCurrent

2
debugger/callstackdlg.pp
View File

@ -270,7 +270,7 @@ begin
Item.ImageIndex := GetImageIndex(Entry);
Item.SubItems[0] := IntToStr(Entry.Index);
Source := Entry.Source;
if Source = '' then // we dont have a source file => just show an adress
if Source = '' then // we do not have a source file => just show an adress
Source := ':' + IntToHex(Entry.Adress, 8);
Item.SubItems[1] := Source;
Item.SubItems[2] := IntToStr(Entry.Line);

38
debugger/fpdebug/dbgdisasx86.pp
View File

@ -662,60 +662,60 @@ var
procedure AddM;
begin
AddModRM([modMem], OperandSize32, reg0 {dont care});
AddModRM([modMem], OperandSize32, reg0 {do not care});
end;
procedure AddMa;
begin
AddModRM([modMem], OperandSize32, reg0 {dont care});
AddModRM([modMem], OperandSize32, reg0 {do not care});
end;
procedure AddMb;
begin
AddModRM([modMem], os8, reg0 {dont care});
AddModRM([modMem], os8, reg0 {do not care});
end;
procedure AddMd;
begin
AddModRM([modMem], os32, reg0 {dont care});
AddModRM([modMem], os32, reg0 {do not care});
end;
procedure AddMd_q;
begin
if flagRex in Flags
then AddModRM([modMem], os64, reg0 {dont care})
else AddModRM([modMem], os32, reg0 {dont care});
then AddModRM([modMem], os64, reg0 {do not care})
else AddModRM([modMem], os32, reg0 {do not care});
end;
procedure AddMdq;
begin
AddModRM([modMem], os128, reg0 {dont care})
AddModRM([modMem], os128, reg0 {do not care})
end;
procedure AddMp;
begin
if OperandSize32 = os16 //XXXX:XXXX
then AddModRM([modMem], os32, reg0 {dont care})
else AddModRM([modMem], os48, reg0 {dont care});
then AddModRM([modMem], os32, reg0 {do not care})
else AddModRM([modMem], os48, reg0 {do not care});
end;
procedure AddMq;
begin
AddModRM([modMem], os64, reg0 {dont care});
AddModRM([modMem], os64, reg0 {do not care});
end;
procedure AddMs;
begin
if A64Bit
then AddModRM([modMem], os80, reg0 {dont care})
else AddModRM([modMem], os48, reg0 {dont care});
then AddModRM([modMem], os80, reg0 {do not care})
else AddModRM([modMem], os48, reg0 {do not care});
end;
procedure AddMw_Rv;
begin
if Code[ModRMIdx] shr 6 = 3 // mode = 3 -> reg
then AddModRM([modReg], OperandSize32, OPERAND_REG[OperandSize32])
else AddModRM([modMem], os16, reg0 {dont care});
else AddModRM([modMem], os16, reg0 {do not care});
end;
procedure AddOb;
@ -923,32 +923,32 @@ var
procedure AddMem14_28Env;
begin
AddModRM([modMem], OperandSize32, reg0 {dont care});
AddModRM([modMem], OperandSize32, reg0 {do not care});
end;
procedure AddMem98_108Env;
begin
AddModRM([modMem], OperandSize32, reg0 {dont care});
AddModRM([modMem], OperandSize32, reg0 {do not care});
end;
procedure AddMem16;
begin
AddModRM([modMem], os16, reg0 {dont care});
AddModRM([modMem], os16, reg0 {do not care});
end;
procedure AddMem32;
begin
AddModRM([modMem], os32, reg0 {dont care});
AddModRM([modMem], os32, reg0 {do not care});
end;
procedure AddMem64;
begin
AddModRM([modMem], os64, reg0 {dont care});
AddModRM([modMem], os64, reg0 {do not care});
end;
procedure AddMem80;
begin
AddModRM([modMem], os80, reg0 {dont care});
AddModRM([modMem], os80, reg0 {do not care});
end;
procedure AddReg(AIndex: Byte);

8
debugger/gdbmidebugger.pp
View File

@ -705,7 +705,7 @@ begin
if Map = nil then Exit(0);
ID.Line := ALine;
// since we dont have column info we map all on column 0
// since we do not have column info we map all on column 0
// ID.Column := AColumn;
ID.Column := 0;
if (Map = nil) then Exit(0);
@ -2775,7 +2775,7 @@ begin
then begin
Map := TMap(FSourceNames.Objects[idx]);
ID.Line := ALine;
// since we dont have column info we map all on column 0
// since we do not have column info we map all on column 0
// ID.Column := AColumn;
ID.Column := 0;
Result := (Map <> nil);
@ -3316,7 +3316,7 @@ begin
if StrToIntDef('$'+S, 0) <> ATag then Exit;
// we're stopped in our thread
if FPauseWaitState = pwsInternal then Exit; // internal, dont care
if FPauseWaitState = pwsInternal then Exit; // internal, do not care
S := '';
if not ExecuteCommand('-thread-list-ids', [cfIgnoreError], R) then Exit;
@ -4100,7 +4100,7 @@ function TGDBMIDebugger.StartDebugging(const AContinueCommand: String): Boolean;
// We are here in 2 cases
// 1) there are no symbols at all
// We dont have to know the calling convention
// We do not have to know the calling convention
// 2) target is compiled with an earlier version than 1.9.2
// params are passes by stack
Exclude(FTargetFlags, tfRTLUsesRegCall);

2
docs/html/build_lcl_docs.lpr
View File

@ -159,7 +159,7 @@ procedure AddFilesToList(Dir: String; Ext: String; List: TStrings);
var
FRec: TSearchRec;
Res: Longint;
SubDirs: String; // we dont want the PasSrcDir in this string but the subfolders only
SubDirs: String; // we do not want the PasSrcDir in this string but the subfolders only
begin
Res := FindFirst(Dir+'*', faAnyFile, FRec);
while Res = 0 do begin

2
examples/codepageconverter/filefind/filefind.pas
View File

@ -212,7 +212,7 @@ begin
// drh 4/6/98:
// the following was moved here from end of "ScanDir", just in
// case multiple searches are being carried out (dont want
// case multiple searches are being carried out (do not want
// multiple end of search events being fired).
if Assigned( fFinishEvent ) then
fFinishEvent( Self ); // notify user that searching is complete.

2
ide/editoroptions.pp
View File

@ -4424,7 +4424,7 @@ begin
end
else begin
if (Defaults <> Self) and (Defaults <> nil) then begin
// dont copy (Stored)Name or Features ...
// do not copy (Stored)Name or Features ...
Background := Defaults.Background;
Foreground := Defaults.Foreground;
FrameColor := Defaults.FrameColor;

2
ideintf/listviewpropedit.pp
View File

@ -24,7 +24,7 @@
22/01/2006 TG - Dialog converted to lfm.
ToDo :
Select the first item on show editor ... dont work :o(
Select the first item on show editor ... do not work :o(
}
unit ListViewPropEdit;

2
ideintf/menuintf.pas
View File

@ -1614,7 +1614,7 @@ end;
procedure TIDEMenuCommand.MenuItemClick(Sender: TObject);
begin
inherited MenuItemClick(Sender);
// dont execute if something is already executed
// do not execute if something is already executed
//debugln(['TIDEMenuCommand.MenuItemClick ',Assigned(OnClick),' ',Assigned(OnClickProc),' ',Assigned(Command),' ',(Command<>nil) and (Command.OnExecuteProc<>nil)]);
if (not Assigned(OnClick)) and (not Assigned(OnClickProc))
and Assigned(Command) then

2
lcl/comctrls.pp
View File

@ -79,7 +79,7 @@ type
procedure SetText(const Value: string);
procedure SetWidth(Value: Integer);
protected
// field to use by interface. dont use it in the LCL
// field to use by interface. do not use it in the LCL
FIntfFlag: Integer;
function GetDisplayName: string; override;
procedure PanelChanged(const Parts: TPanelParts);

2
lcl/graphics.pp
View File

@ -301,7 +301,7 @@ const
clMenuBar = TColor(SYS_COLOR_BASE or COLOR_MENUBAR);
clForm = TColor(SYS_COLOR_BASE or COLOR_FORM);
// synonims: dont show them in color lists
// synonims: do not show them in color lists
clColorDesktop = TColor(SYS_COLOR_BASE or COLOR_DESKTOP);
cl3DFace = TColor(SYS_COLOR_BASE or COLOR_3DFACE);
cl3DShadow = TColor(SYS_COLOR_BASE or COLOR_3DSHADOW);

2
lcl/include/bitbtn.inc
View File

@ -233,7 +233,7 @@ end;
{ Return the caption associated with the akind value.
This function replaces BitBtnCaption const because the localizing
dont work with an const array }
do not work with an const array }
function TCustomBitBtn.GetCaptionOfKind(AKind: TBitBtnKind): String;
begin
Result := GetButtonCaption(BitBtnImages[Kind]);

2
lcl/include/buttoncontrol.inc
View File

@ -52,7 +52,7 @@ end;
procedure TButtonControl.CMWantSpecialKey(var Message: TLMessage);
begin
// button controls dont want any special keys
// button controls do not want any special keys
Message.Result := 0;
end;

2
lcl/include/canvas.inc
View File

@ -194,7 +194,7 @@ begin
if (OldHandle <> HBRUSH(Brush.Reference.Handle)) and (FSavedBrushHandle=0) then
FSavedBrushHandle := OldHandle;
Include(FState, csBrushValid);
// dont use color for hatched brushes. windows cannot draw hatches when SetBkColor is called
// do not use color for hatched brushes. windows cannot draw hatches when SetBkColor is called
if ([Brush.Style] * HatchBrushes) = [] then
SetBkColor(FHandle, Brush.Color);
if Brush.Style = bsSolid then

2
lcl/include/controlcanvas.inc
View File

@ -87,7 +87,7 @@ begin
debugln(['TControlCanvas.CreateHandle WARNING: accessing the canvas of '+DbgSName(FControl)+' is not supported outside of paint message']);
if FDeviceContext = 0 then
begin
// store the handle locally since we need it to check (and dont
// store the handle locally since we need it to check (and do not
// want to fire creation events)
FDeviceContext := FControl.GetDeviceContext(FWindowHandle);
end;

2
lcl/include/custombitmap.inc
View File

@ -402,7 +402,7 @@ end;
function TCustomBitmap.UpdateHandles(ABitmap, AMask: HBITMAP): Boolean;
begin
// Update sets the handles corresponding to our rawimage and/or savestream, so
// we dont free them here.
// we do not free them here.
Result := False;

2
lcl/include/listitems.inc
View File

@ -621,7 +621,7 @@ begin
for I := 0 to Count - 1 do
begin
ListItem := Item[I];
// dont force subitem creation
// do not force subitem creation
if ListItem.FSubItems = nil then Continue;
for J := 0 to ListItem.SubItems.Count - 1 do
begin

2
lcl/include/rasterimage.inc
View File

@ -213,7 +213,7 @@ begin
ImgHandle := CreateDefaultBitmapHandle(DevDesc);
end;
// if we dont have new mask then either use old one or use none
// if we do not have new mask then either use old one or use none
if SkipMask and MaskHandleAllocated
then UpdateHandles(ImgHandle, MaskHandle)
else UpdateHandles(ImgHandle, ImgMaskHandle);

2
lcl/interfaces/gtk/gtkdebug.pp
View File

@ -42,7 +42,7 @@ procedure DbgDumpBitmap(ABitmap: PGdkBitmap; ATitle: String = ''; AWidth: Intege
procedure DbgDumpPixmap(APixmap: PGdkPixmap; ATitle: String = ''; AWidth: Integer = -1; AHeight: Integer = -1);
procedure DbgDumpPixbuf(APixbuf: PGdkPixbuf; ATitle: String = ''; AWidth: Integer = -1; AHeight: Integer = -1);
{$ifndef gtk1}
// dont debug images on gtk1, we cannot ref, unref them and thus we cannot rely that they will not be destroyed
// do not debug images on gtk1, we cannot ref, unref them and thus we cannot rely that they will not be destroyed
procedure DbgDumpImage(AImage: PGdkImage; ATitle: String = ''; AWidth: Integer = -1; AHeight: Integer = -1);
{$endif}

2
lcl/interfaces/gtk/gtkwidgetset.inc
View File

@ -1864,7 +1864,7 @@ begin
Depth := gdk_drawable_get_depth(ADrawable);
{$endif}
Visual := gdk_window_get_visual(ADrawable);
// pixmaps and bitmaps dont have a visual, but for pixmaps we need one
// pixmaps and bitmaps do not have a visual, but for pixmaps we need one
if Visual = nil
then Visual := gdk_visual_get_best_with_depth(Depth);
IsBitmap := Depth = 1;

4
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -1224,7 +1224,7 @@ begin
Result := 0;
pNewDC := NewDC;
// dont copy
// do not copy
// In a compatible DC you have to select a bitmap into it
(*
if IsValidDC(DC) then
@ -7798,7 +7798,7 @@ begin
FreeGDIColor(aDC.CurrentBackColor);}
try
{ On root window, we don't allocate a graphics context and so we dont free}
{ On root window, we don't allocate a graphics context and so we do not free}
if aDC.HasGC then
begin
gdk_gc_unref(aDC.GC);

2
lcl/interfaces/gtk/gtkwinapiwindow.pp
View File

@ -588,7 +588,7 @@ begin
// DO NOT supress further processing. The next one who changes that please do the debugging too.
// just dont.
// just do not.
{$ifdef gtk2}
Result := gtk_False;

2
lcl/interfaces/gtk/gtkwsbuttons.pp
View File

@ -462,7 +462,7 @@ begin
{$IFDEF gtk1}
AInfo^.SpaceWidget := gtk_invisible_new;
{$ELSE}
// dont use gtk_invisible_new - it cannot have parent
// do not use gtk_invisible_new - it cannot have parent
AInfo^.SpaceWidget := gtk_image_new;
{$ENDIF}
UpdateLayout(AInfo, ALayout, AMargin);

2
lcl/interfaces/gtk2/gtk2debug.pp
View File

@ -37,7 +37,7 @@ uses
procedure DbgDumpBitmap(ABitmap: PGdkBitmap; ATitle: String = ''; AWidth: Integer = -1; AHeight: Integer = -1);
procedure DbgDumpPixmap(APixmap: PGdkPixmap; ATitle: String = ''; AWidth: Integer = -1; AHeight: Integer = -1);
procedure DbgDumpPixbuf(APixbuf: PGdkPixbuf; ATitle: String = ''; AWidth: Integer = -1; AHeight: Integer = -1);
// dont debug images on gtk1, we cannot ref, unref them and thus we cannot rely that they will not be destroyed
// do not debug images on gtk1, we cannot ref, unref them and thus we cannot rely that they will not be destroyed
procedure DbgDumpImage(AImage: PGdkImage; ATitle: String = ''; AWidth: Integer = -1; AHeight: Integer = -1);
implementation

2
lcl/interfaces/gtk2/gtk2privatewidget.inc
View File

@ -102,6 +102,6 @@ begin
Window := PGTkNotebook(Widget)^.event_window;
if Window <> nil then
SetWindowCursor(Window, AInfo^.ControlCursor, False);
// dont know how to set cursor under tabs
// do not know how to set cursor under tabs
end;

2
lcl/interfaces/gtk2/gtk2widgetset.inc
View File

@ -2908,7 +2908,7 @@ begin
gdk_drawable_get_size(ADrawable, @Width, @Height);
Depth := gdk_drawable_get_depth(ADrawable);
Visual := gdk_window_get_visual(ADrawable);
// pixmaps and bitmaps dont have a visual, but for pixmaps we need one
// pixmaps and bitmaps do not have a visual, but for pixmaps we need one
if Visual = nil
then Visual := gdk_visual_get_best_with_depth(Depth);
IsBitmap := Depth = 1;

4
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -1222,7 +1222,7 @@ begin
Result := 0;
pNewDC := NewDC;
// dont copy
// do not copy
// In a compatible DC you have to select a bitmap into it
(*
if IsValidDC(DC) then
@ -7038,7 +7038,7 @@ begin
FreeGDIColor(aDC.CurrentBackColor);}
try
{ On root window, we don't allocate a graphics context and so we dont free}
{ On root window, we don't allocate a graphics context and so we do not free}
if aDC.HasGC then
begin
gdk_gc_unref(aDC.GC);

2
lcl/interfaces/gtk2/gtk2winapiwindow.pp
View File

@ -420,7 +420,7 @@ function GTKAPIWidgetClient_KeyPress(Widget: PGTKWidget;
begin
if (Widget=nil) or (Event=nil) then ;
// DO NOT supress further processing. The next one who changes that please do the debugging too.
// just dont.
// just do not.
Result := gtk_False;
end;

2
lcl/interfaces/gtk2/gtk2wsbuttons.pp
View File

@ -455,7 +455,7 @@ begin
if (AInfo^.SpaceWidget = nil)
and (ALayout in [blGlyphRight, blGlyphBottom]) then
begin
// dont use gtk_invisible_new - it cannot have parent
// do not use gtk_invisible_new - it cannot have parent
AInfo^.SpaceWidget := gtk_image_new;
UpdateLayout(AInfo, ALayout, AMargin);
end else

2
lcl/interfaces/gtk2/gtk2wscustomlistview.inc
View File

@ -635,7 +635,7 @@ begin
//set clickable
gtk_tree_view_column_set_clickable (GTK_TREE_VIEW_COLUMN (column), TRUE);
// dont set these here, it will be set by the lcl
// do not set these here, it will be set by the lcl
(*
// set title
gtk_tree_view_column_set_title(column, PChar(AColumn.Caption));

2
lcl/interfaces/qt/qtwinapi.inc
View File

@ -5554,7 +5554,7 @@ begin
begin
inc(X, dx); // shift destination
dec(Width, dx); // substract width
dec(SrcWidth, dx); // and dont forget about SrcWidth or we will get unneeded stretching
dec(SrcWidth, dx); // and do not forget about SrcWidth or we will get unneeded stretching
end;
if dy <> 0 then

2
lcl/interfaces/qt/qtwsarrow.pp
View File

@ -116,7 +116,7 @@ begin
StyleOption := QStyleOption_create(1, integer(QStyleOptionSO_Default));
try
// I dont know the reason, but under windows down arrow size is very small
// I do not know the reason, but under windows down arrow size is very small
// and is not dependent on passed ARect.
// There is nothing in qt source that can cause such bad painting.
// Other styles draw down arrow very well.

2
lcl/interfaces/qt/qtwsforms.pp
View File

@ -455,7 +455,7 @@ begin
Setting modal flags is done in TQtWSCustomControl.ShowHide
Since that flags has effect only when Widget is not visible
We can of course hide widget, set flags here and then show it, but we dont
We can of course hide widget, set flags here and then show it, but we do not
want window flickering :)
}
end;

2
lcl/interfaces/win32/win32callback.inc
View File

@ -1242,7 +1242,7 @@ begin
// to handle checkbox state ourselves, according to msdn state
// sequence goes from checked->cleared->grayed etc.
Flags := SendMessage(lWinControl.Handle, BM_GETCHECK, 0, 0);
//dont update the check state if is TRadioButton and is already checked
//do not update the check state if is TRadioButton and is already checked
if (Flags <> BST_CHECKED) or not (lWinControl is TRadioButton) then
begin
if (Flags=BST_CHECKED) then

2
lcl/interfaces/win32/win32wscustomlistview.inc
View File

@ -300,7 +300,7 @@ begin
if not WSCheckHandleAllocated(ALV, 'ColumnGetWidth')
then Exit;
// dont use ListView_GetColumnWidth since we cant detect errors
// do not use ListView_GetColumnWidth since we cant detect errors
lvc.Mask := LVCF_WIDTH;
if ListView_GetColumn(ALV.Handle, AIndex, lvc) <> 0
then Result := lvc.cx;

2
lcl/interfaces/win32/win32wsextdlgs.pp
View File

@ -130,7 +130,7 @@ begin
with ARect do
begin
Left := Right;
Top := 30; // dont know how to get relative coord
Top := 30; // do not know how to get relative coord
Right := ADialogRect.Right - 4;
Bottom := ADialogRect.Bottom;
end;

2
lcl/interfaces/win32/win32wsforms.pp
View File

@ -556,7 +556,7 @@ begin
H := SizeRect.Bottom - SizeRect.Top;
// we are calling setbounds in TWinControl.Initialize
// if position is default it will be changed to designed. We dont want this.
// if position is default it will be changed to designed. We do not want this.
if wcfInitializing in TWinControlAccess(AWinControl).FWinControlFlags then
begin
if GetWindowRect(AForm.Handle, CurRect) then

10
lcl/interfaces/wince/wincecallback.inc
View File

@ -143,7 +143,7 @@ Result := true;
Result := (-3 <= moveX) and (moveX <= 3) and (-3 <= moveY) and (moveY <= 3);}
end;
//roozbeh...any need for this?as we dont have opaque in wince!
//roozbeh...any need for this?as we do not have opaque in wince!
function GetNeedParentPaint(AWindowInfo: PWindowInfo; AWinControl: TWinControl): boolean;
begin
Result := AWindowInfo^.needParentPaint
@ -769,7 +769,7 @@ Var
end;
end;
//roozbeh : we dont have these in wince!
//roozbeh : we do not have these in wince!
{ SC_MINIMIZE:
begin
@ -1164,7 +1164,7 @@ begin
// to handle checkbox state ourselves, according to msdn state
// sequence goes from checked->cleared->grayed etc.
Flags := SendMessage(lWinControl.Handle, BM_GETCHECK, 0, 0);
//dont update the check state if is TRadioButton and is already checked
//do not update the check state if is TRadioButton and is already checked
if (Flags <> BST_CHECKED) or not (lWinControl is TRadioButton) then
begin
if (Flags=BST_CHECKED) then
@ -1191,7 +1191,7 @@ begin
BN_KILLFOCUS: LMessage.Msg := LM_EXIT;
end
// TCustomMemo and TCustomFloatSpinEdit are also TCustomEdit
// so dont check first only for TCustomEdit
// so do not check first only for TCustomEdit
// Fixes bug http://bugs.freepascal.org/view.php?id=14378
else if (lWinControl is TCustomEdit) then
begin
@ -2099,7 +2099,7 @@ begin
end;
end;
//roozbeh : dont have these on ce!
//roozbeh : do not have these on ce!
{WM_ENDSESSION:
begin
if (Application<>nil) and (TWinCEWidgetSet(WidgetSet).AppHandle=Window) and

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

@ -277,7 +277,7 @@ var
MouseDownWindow: HWND = 0;
MouseDownFocusWindow: HWND;
MouseDownFocusStatus: TMouseDownFocusStatus = mfNone;
ComboBoxHandleSizeWindow: HWND = 0;//just dont know the use yet
ComboBoxHandleSizeWindow: HWND = 0;//just do not know the use yet
IgnoreNextCharWindow: HWND = 0; // ignore next WM_(SYS)CHAR message
OnClipBoardRequest: TClipboardRequestEvent = nil;

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

@ -1592,7 +1592,7 @@ begin
if lpH.biWidth mod nPadWidth <> 0 then
pad := nPadWidth - lpH.biWidth mod nPadWidth;
// there are problems with padding. i dont know the rules
// there are problems with padding. i do not know the rules
// anymore...
pad := 0;
// This is wrong when the infoheader is followed by color data...
@ -2192,7 +2192,7 @@ begin
if not Result then Exit;
// No special handling for maximized windows
// they dont exist in wince anyway, they are
// they do not exist in wince anyway, they are
// emulated by calculating the desktop size
Width := R.Right - R.Left;
Height := R.Bottom - R.Top;

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

@ -100,7 +100,7 @@ begin
if not WSCheckHandleAllocated(ALV, 'ColumnGetWidth')
then Exit;
// dont use ListView_GetColumnWidth since we cant detect errors
// do not use ListView_GetColumnWidth since we cant detect errors
lvc.Mask := LVCF_WIDTH;
if LongInt(ListView_GetColumn(ALV.Handle, AIndex, lvc)) <> 0 then Result := lvc.cx;
end;

2
lcl/intfgraphics.pas
View File

@ -5683,7 +5683,7 @@ begin
// Paul: if we have a mask in the description then we need to set it manually
// by Masked[x, y] := Color.Alpha = AlphaTransparent, but to do that we must
// read format ourself. fpReaders set alpha instead - they dont have Masked[].
// read format ourself. fpReaders set alpha instead - they do not have Masked[].
// So if we want true description with mask we must teach our SetInternalColor
// method to handle Alpha if mask needed (or do it any other way). In other words
// this is now unimplemented and we'll get randomly masked image.

2
lcl/ldocktree.pas
View File

@ -441,7 +441,7 @@ class procedure TDockHeader.Draw(ACanvas: TCanvas; ACaption: String; DockBtnImag
var
BtnRect: TRect;
DrawRect: TRect;
// LCL dont handle orientation in TFont
// LCL do not handle orientation in TFont
OldFont, RotatedFont: HFONT;
OldMode: Integer;
ALogFont: TLogFont;

2
lcl/lresources.pp
View File

@ -1462,7 +1462,7 @@ begin
if P >= 0 then
begin
// Since we can have many resources that have the same name but different type
// we should look before and after found position (dont forget that we are searching
// we should look before and after found position (do not forget that we are searching
// them by dividing intervals)
// look before position

6
lcl/pairsplitter.pas
View File

@ -326,10 +326,10 @@ end;
function TCustomPairSplitter.GetCursor: TCursor;
begin
// Paul Ishenin: I dont know another method to tell internal splitter about
// Paul Ishenin: I do not know another method to tell internal splitter about
// cursor changes
// if widgetset class dont want to get cursor (has no internal splitter) then
// if widgetset class do not want to get cursor (has no internal splitter) then
// use default lcl handler
if not TWSCustomPairSplitterClass(WidgetSetClass).GetSplitterCursor(Self, Result) then
Result := inherited GetCursor;
@ -340,7 +340,7 @@ begin
FLoadCursor := Value;
if not HandleAllocated then
Exit;
// if widgetset class dont want to set cursor (has no internal splitter) then
// if widgetset class do not want to set cursor (has no internal splitter) then
// use default lcl handler
if not TWSCustomPairSplitterClass(WidgetSetClass).SetSplitterCursor(Self, Value) then
inherited SetCursor(Value);

2
lcl/themes.pas
View File

@ -1859,7 +1859,7 @@ end;
function TThemeServices.GetDetailSize(Details: TThemedElementDetails): TSize;
begin
// default values here
// -1 mean that we dont know size of detail
// -1 mean that we do not know size of detail
Result := Size(-1, -1);
case Details.Element of
teButton: