From 369aa3055ce79c46f237c4789b8a54c1252f975b Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 11 Sep 2010 14:05:21 +0000 Subject: [PATCH] fixed typo dont git-svn-id: trunk@27304 - --- components/codetools/directorycacher.pas | 2 +- .../jcf2/Process/Returns/LongLineBreaker.pas | 2 +- .../jcf2/Process/Spacing/NoSpaceBefore.pas | 2 +- .../synedit/synpluginsyncronizededitbase.pp | 2 +- debugger/callstackdlg.pp | 2 +- debugger/fpdebug/dbgdisasx86.pp | 38 +++++++++---------- debugger/gdbmidebugger.pp | 8 ++-- docs/html/build_lcl_docs.lpr | 2 +- .../codepageconverter/filefind/filefind.pas | 2 +- ide/editoroptions.pp | 2 +- ideintf/listviewpropedit.pp | 2 +- ideintf/menuintf.pas | 2 +- lcl/comctrls.pp | 2 +- lcl/graphics.pp | 2 +- lcl/include/bitbtn.inc | 2 +- lcl/include/buttoncontrol.inc | 2 +- lcl/include/canvas.inc | 2 +- lcl/include/controlcanvas.inc | 2 +- lcl/include/custombitmap.inc | 2 +- lcl/include/listitems.inc | 2 +- lcl/include/rasterimage.inc | 2 +- lcl/interfaces/gtk/gtkdebug.pp | 2 +- lcl/interfaces/gtk/gtkwidgetset.inc | 2 +- lcl/interfaces/gtk/gtkwinapi.inc | 4 +- lcl/interfaces/gtk/gtkwinapiwindow.pp | 2 +- lcl/interfaces/gtk/gtkwsbuttons.pp | 2 +- lcl/interfaces/gtk2/gtk2debug.pp | 2 +- lcl/interfaces/gtk2/gtk2privatewidget.inc | 2 +- lcl/interfaces/gtk2/gtk2widgetset.inc | 2 +- lcl/interfaces/gtk2/gtk2winapi.inc | 4 +- lcl/interfaces/gtk2/gtk2winapiwindow.pp | 2 +- lcl/interfaces/gtk2/gtk2wsbuttons.pp | 2 +- lcl/interfaces/gtk2/gtk2wscustomlistview.inc | 2 +- lcl/interfaces/qt/qtwinapi.inc | 2 +- lcl/interfaces/qt/qtwsarrow.pp | 2 +- lcl/interfaces/qt/qtwsforms.pp | 2 +- lcl/interfaces/win32/win32callback.inc | 2 +- .../win32/win32wscustomlistview.inc | 2 +- lcl/interfaces/win32/win32wsextdlgs.pp | 2 +- lcl/interfaces/win32/win32wsforms.pp | 2 +- lcl/interfaces/wince/wincecallback.inc | 10 ++--- lcl/interfaces/wince/winceint.pp | 2 +- lcl/interfaces/wince/wincewinapi.inc | 4 +- .../wince/wincewscustomlistview.inc | 2 +- lcl/intfgraphics.pas | 2 +- lcl/ldocktree.pas | 2 +- lcl/lresources.pp | 2 +- lcl/pairsplitter.pas | 6 +-- lcl/themes.pas | 2 +- 49 files changed, 79 insertions(+), 79 deletions(-) diff --git a/components/codetools/directorycacher.pas b/components/codetools/directorycacher.pas index 21fae1d8c0..b5b4559293 100644 --- a/components/codetools/directorycacher.pas +++ b/components/codetools/directorycacher.pas @@ -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 diff --git a/components/jcf2/Process/Returns/LongLineBreaker.pas b/components/jcf2/Process/Returns/LongLineBreaker.pas index 8aef0d4ec0..698986dfc3 100644 --- a/components/jcf2/Process/Returns/LongLineBreaker.pas +++ b/components/jcf2/Process/Returns/LongLineBreaker.pas @@ -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 diff --git a/components/jcf2/Process/Spacing/NoSpaceBefore.pas b/components/jcf2/Process/Spacing/NoSpaceBefore.pas index af5fa0bb67..c35213b23f 100644 --- a/components/jcf2/Process/Spacing/NoSpaceBefore.pas +++ b/components/jcf2/Process/Spacing/NoSpaceBefore.pas @@ -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; diff --git a/components/synedit/synpluginsyncronizededitbase.pp b/components/synedit/synpluginsyncronizededitbase.pp index 5baf464f51..f943f6a7d0 100644 --- a/components/synedit/synpluginsyncronizededitbase.pp +++ b/components/synedit/synpluginsyncronizededitbase.pp @@ -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 diff --git a/debugger/callstackdlg.pp b/debugger/callstackdlg.pp index c0d80fd3f9..9ade3790da 100644 --- a/debugger/callstackdlg.pp +++ b/debugger/callstackdlg.pp @@ -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); diff --git a/debugger/fpdebug/dbgdisasx86.pp b/debugger/fpdebug/dbgdisasx86.pp index fdf0653a9a..d392c7d031 100644 --- a/debugger/fpdebug/dbgdisasx86.pp +++ b/debugger/fpdebug/dbgdisasx86.pp @@ -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); diff --git a/debugger/gdbmidebugger.pp b/debugger/gdbmidebugger.pp index a34e4b5127..e4cc724461 100644 --- a/debugger/gdbmidebugger.pp +++ b/debugger/gdbmidebugger.pp @@ -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); diff --git a/docs/html/build_lcl_docs.lpr b/docs/html/build_lcl_docs.lpr index 71a1237879..b21995a892 100644 --- a/docs/html/build_lcl_docs.lpr +++ b/docs/html/build_lcl_docs.lpr @@ -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 diff --git a/examples/codepageconverter/filefind/filefind.pas b/examples/codepageconverter/filefind/filefind.pas index a5b83374a0..f102c71b5c 100644 --- a/examples/codepageconverter/filefind/filefind.pas +++ b/examples/codepageconverter/filefind/filefind.pas @@ -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. diff --git a/ide/editoroptions.pp b/ide/editoroptions.pp index 8780866205..e39e507f2e 100644 --- a/ide/editoroptions.pp +++ b/ide/editoroptions.pp @@ -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; diff --git a/ideintf/listviewpropedit.pp b/ideintf/listviewpropedit.pp index eb20671aad..16632de26a 100644 --- a/ideintf/listviewpropedit.pp +++ b/ideintf/listviewpropedit.pp @@ -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; diff --git a/ideintf/menuintf.pas b/ideintf/menuintf.pas index b91e3324e8..f8a34b46ac 100644 --- a/ideintf/menuintf.pas +++ b/ideintf/menuintf.pas @@ -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 diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp index 5bfc90f5df..97c47b7d28 100644 --- a/lcl/comctrls.pp +++ b/lcl/comctrls.pp @@ -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); diff --git a/lcl/graphics.pp b/lcl/graphics.pp index 005d047e2e..da4539831c 100644 --- a/lcl/graphics.pp +++ b/lcl/graphics.pp @@ -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); diff --git a/lcl/include/bitbtn.inc b/lcl/include/bitbtn.inc index b11b0a59cb..fea905f3ea 100644 --- a/lcl/include/bitbtn.inc +++ b/lcl/include/bitbtn.inc @@ -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]); diff --git a/lcl/include/buttoncontrol.inc b/lcl/include/buttoncontrol.inc index 0b8aad6b49..16259d2f08 100644 --- a/lcl/include/buttoncontrol.inc +++ b/lcl/include/buttoncontrol.inc @@ -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; diff --git a/lcl/include/canvas.inc b/lcl/include/canvas.inc index fe67add0a4..c09e13d188 100644 --- a/lcl/include/canvas.inc +++ b/lcl/include/canvas.inc @@ -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 diff --git a/lcl/include/controlcanvas.inc b/lcl/include/controlcanvas.inc index e801ad9f82..473c94713c 100644 --- a/lcl/include/controlcanvas.inc +++ b/lcl/include/controlcanvas.inc @@ -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; diff --git a/lcl/include/custombitmap.inc b/lcl/include/custombitmap.inc index a459a2a1b7..45ec4f6c0a 100644 --- a/lcl/include/custombitmap.inc +++ b/lcl/include/custombitmap.inc @@ -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; diff --git a/lcl/include/listitems.inc b/lcl/include/listitems.inc index fe4df47015..ad7c86a8e8 100644 --- a/lcl/include/listitems.inc +++ b/lcl/include/listitems.inc @@ -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 diff --git a/lcl/include/rasterimage.inc b/lcl/include/rasterimage.inc index 341f891b14..f54efeddc0 100644 --- a/lcl/include/rasterimage.inc +++ b/lcl/include/rasterimage.inc @@ -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); diff --git a/lcl/interfaces/gtk/gtkdebug.pp b/lcl/interfaces/gtk/gtkdebug.pp index 5ad0e1ea4e..afe75a12a4 100644 --- a/lcl/interfaces/gtk/gtkdebug.pp +++ b/lcl/interfaces/gtk/gtkdebug.pp @@ -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} diff --git a/lcl/interfaces/gtk/gtkwidgetset.inc b/lcl/interfaces/gtk/gtkwidgetset.inc index 564ad53243..c667d049bf 100644 --- a/lcl/interfaces/gtk/gtkwidgetset.inc +++ b/lcl/interfaces/gtk/gtkwidgetset.inc @@ -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; diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc index 433852f1c5..f7b456d282 100644 --- a/lcl/interfaces/gtk/gtkwinapi.inc +++ b/lcl/interfaces/gtk/gtkwinapi.inc @@ -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); diff --git a/lcl/interfaces/gtk/gtkwinapiwindow.pp b/lcl/interfaces/gtk/gtkwinapiwindow.pp index 30ae220d5d..699ffa2ed2 100644 --- a/lcl/interfaces/gtk/gtkwinapiwindow.pp +++ b/lcl/interfaces/gtk/gtkwinapiwindow.pp @@ -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; diff --git a/lcl/interfaces/gtk/gtkwsbuttons.pp b/lcl/interfaces/gtk/gtkwsbuttons.pp index b1f8fdae3e..8292e93edc 100644 --- a/lcl/interfaces/gtk/gtkwsbuttons.pp +++ b/lcl/interfaces/gtk/gtkwsbuttons.pp @@ -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); diff --git a/lcl/interfaces/gtk2/gtk2debug.pp b/lcl/interfaces/gtk2/gtk2debug.pp index cd49451ed9..75246321d1 100644 --- a/lcl/interfaces/gtk2/gtk2debug.pp +++ b/lcl/interfaces/gtk2/gtk2debug.pp @@ -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 diff --git a/lcl/interfaces/gtk2/gtk2privatewidget.inc b/lcl/interfaces/gtk2/gtk2privatewidget.inc index 301c361f33..982fc25cdd 100644 --- a/lcl/interfaces/gtk2/gtk2privatewidget.inc +++ b/lcl/interfaces/gtk2/gtk2privatewidget.inc @@ -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; diff --git a/lcl/interfaces/gtk2/gtk2widgetset.inc b/lcl/interfaces/gtk2/gtk2widgetset.inc index f94182c053..daa1ef1387 100644 --- a/lcl/interfaces/gtk2/gtk2widgetset.inc +++ b/lcl/interfaces/gtk2/gtk2widgetset.inc @@ -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; diff --git a/lcl/interfaces/gtk2/gtk2winapi.inc b/lcl/interfaces/gtk2/gtk2winapi.inc index dd243ea036..a7c9a1b37c 100644 --- a/lcl/interfaces/gtk2/gtk2winapi.inc +++ b/lcl/interfaces/gtk2/gtk2winapi.inc @@ -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); diff --git a/lcl/interfaces/gtk2/gtk2winapiwindow.pp b/lcl/interfaces/gtk2/gtk2winapiwindow.pp index 61257e90ec..7b398c2292 100644 --- a/lcl/interfaces/gtk2/gtk2winapiwindow.pp +++ b/lcl/interfaces/gtk2/gtk2winapiwindow.pp @@ -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; diff --git a/lcl/interfaces/gtk2/gtk2wsbuttons.pp b/lcl/interfaces/gtk2/gtk2wsbuttons.pp index 19227eb003..1837f819d1 100644 --- a/lcl/interfaces/gtk2/gtk2wsbuttons.pp +++ b/lcl/interfaces/gtk2/gtk2wsbuttons.pp @@ -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 diff --git a/lcl/interfaces/gtk2/gtk2wscustomlistview.inc b/lcl/interfaces/gtk2/gtk2wscustomlistview.inc index 4ce5a832c7..bbb8a85620 100644 --- a/lcl/interfaces/gtk2/gtk2wscustomlistview.inc +++ b/lcl/interfaces/gtk2/gtk2wscustomlistview.inc @@ -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)); diff --git a/lcl/interfaces/qt/qtwinapi.inc b/lcl/interfaces/qt/qtwinapi.inc index bbece79775..90ae6bd86e 100644 --- a/lcl/interfaces/qt/qtwinapi.inc +++ b/lcl/interfaces/qt/qtwinapi.inc @@ -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 diff --git a/lcl/interfaces/qt/qtwsarrow.pp b/lcl/interfaces/qt/qtwsarrow.pp index 8315eb5b4f..c8ff8b5138 100644 --- a/lcl/interfaces/qt/qtwsarrow.pp +++ b/lcl/interfaces/qt/qtwsarrow.pp @@ -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. diff --git a/lcl/interfaces/qt/qtwsforms.pp b/lcl/interfaces/qt/qtwsforms.pp index 786cde9dca..85b26c307d 100644 --- a/lcl/interfaces/qt/qtwsforms.pp +++ b/lcl/interfaces/qt/qtwsforms.pp @@ -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; diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc index 5a29bd406b..25570787af 100644 --- a/lcl/interfaces/win32/win32callback.inc +++ b/lcl/interfaces/win32/win32callback.inc @@ -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 diff --git a/lcl/interfaces/win32/win32wscustomlistview.inc b/lcl/interfaces/win32/win32wscustomlistview.inc index 5cfaf3afe4..a6a7ebd7a6 100644 --- a/lcl/interfaces/win32/win32wscustomlistview.inc +++ b/lcl/interfaces/win32/win32wscustomlistview.inc @@ -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; diff --git a/lcl/interfaces/win32/win32wsextdlgs.pp b/lcl/interfaces/win32/win32wsextdlgs.pp index f7996caf4f..1fdc4940ee 100644 --- a/lcl/interfaces/win32/win32wsextdlgs.pp +++ b/lcl/interfaces/win32/win32wsextdlgs.pp @@ -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; diff --git a/lcl/interfaces/win32/win32wsforms.pp b/lcl/interfaces/win32/win32wsforms.pp index 63e097aaa9..5d24dbe570 100644 --- a/lcl/interfaces/win32/win32wsforms.pp +++ b/lcl/interfaces/win32/win32wsforms.pp @@ -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 diff --git a/lcl/interfaces/wince/wincecallback.inc b/lcl/interfaces/wince/wincecallback.inc index e6d2017ad5..0ef6cb6099 100644 --- a/lcl/interfaces/wince/wincecallback.inc +++ b/lcl/interfaces/wince/wincecallback.inc @@ -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 diff --git a/lcl/interfaces/wince/winceint.pp b/lcl/interfaces/wince/winceint.pp index d11d93ae2f..d0e7e88b36 100644 --- a/lcl/interfaces/wince/winceint.pp +++ b/lcl/interfaces/wince/winceint.pp @@ -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; diff --git a/lcl/interfaces/wince/wincewinapi.inc b/lcl/interfaces/wince/wincewinapi.inc index 4f725f36cf..7661c91b62 100644 --- a/lcl/interfaces/wince/wincewinapi.inc +++ b/lcl/interfaces/wince/wincewinapi.inc @@ -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; diff --git a/lcl/interfaces/wince/wincewscustomlistview.inc b/lcl/interfaces/wince/wincewscustomlistview.inc index 77de7d1a7c..109120d7f8 100644 --- a/lcl/interfaces/wince/wincewscustomlistview.inc +++ b/lcl/interfaces/wince/wincewscustomlistview.inc @@ -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; diff --git a/lcl/intfgraphics.pas b/lcl/intfgraphics.pas index 36cd0141f0..dbd26acf33 100644 --- a/lcl/intfgraphics.pas +++ b/lcl/intfgraphics.pas @@ -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. diff --git a/lcl/ldocktree.pas b/lcl/ldocktree.pas index a0c8fd37ee..df57f43cfd 100644 --- a/lcl/ldocktree.pas +++ b/lcl/ldocktree.pas @@ -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; diff --git a/lcl/lresources.pp b/lcl/lresources.pp index 8a3cc74bf1..8a63f8a195 100644 --- a/lcl/lresources.pp +++ b/lcl/lresources.pp @@ -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 diff --git a/lcl/pairsplitter.pas b/lcl/pairsplitter.pas index b8120275b4..ec7d98e763 100644 --- a/lcl/pairsplitter.pas +++ b/lcl/pairsplitter.pas @@ -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); diff --git a/lcl/themes.pas b/lcl/themes.pas index ec7fbd9ea8..eb2ddb1e74 100644 --- a/lcl/themes.pas +++ b/lcl/themes.pas @@ -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: