From 7f6fa27b29f7cb4d43cce395a469aaf0cc2261c0 Mon Sep 17 00:00:00 2001 From: blikblum Date: Fri, 17 Jun 2011 21:12:21 +0000 Subject: [PATCH] * converted source files to utf-8 git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1693 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../spktoolbar/SpkGUITools/SpkGUITools.pas | 220 +++++----- .../SpkGraphTools/SpkGraphTools.pas | 16 +- components/spktoolbar/SpkMath/SpkMath.pas | 44 +- .../spktoolbar/SpkToolbar/SpkToolbar.pas | 378 +++++++++--------- .../spktoolbar/SpkToolbar/spkt_Appearance.pas | 16 +- .../spktoolbar/SpkToolbar/spkt_BaseItem.pas | 8 +- .../spktoolbar/SpkToolbar/spkt_Buttons.pas | 132 +++--- .../spktoolbar/SpkToolbar/spkt_Const.pas | 88 ++-- .../spktoolbar/SpkToolbar/spkt_Dispatch.pas | 6 +- .../spktoolbar/SpkToolbar/spkt_Exceptions.pas | 6 +- .../spktoolbar/SpkToolbar/spkt_Items.pas | 10 +- .../spktoolbar/SpkToolbar/spkt_Pane.pas | 94 ++--- components/spktoolbar/SpkToolbar/spkt_Tab.pas | 48 +-- .../spktoolbar/SpkToolbar/spkt_Tools.pas | 18 +- .../spktoolbar/SpkToolbar/spkt_Types.pas | 28 +- 15 files changed, 556 insertions(+), 556 deletions(-) diff --git a/components/spktoolbar/SpkGUITools/SpkGUITools.pas b/components/spktoolbar/SpkGUITools/SpkGUITools.pas index 35a2524ff..46a9ed877 100644 --- a/components/spktoolbar/SpkGUITools/SpkGUITools.pas +++ b/components/spktoolbar/SpkGUITools/SpkGUITools.pas @@ -1,10 +1,10 @@ -unit SpkGuiTools; +unit SpkGuiTools; {$DEFINE SPKGUITOOLS} interface -{$MESSAGE HINT 'W tym module konsekwentnie każdy rect opisuje dokładny prostokąt (a nie, jak w przypadku WINAPI - bez dolnej i prawej krawędzi)'} +{$MESSAGE HINT 'W tym module konsekwentnie kaÂżdy rect opisuje dokÂładny prostokÂąt (a nie, jak w przypadku WINAPI - bez dolnej i prawej krawĂŞdzi)'} uses Windows, Graphics, SysUtils, Math, Classes, Controls, ImgList, SpkGraphTools, SpkMath; @@ -387,9 +387,9 @@ var BufferRect, BitmapRect : T2DIntRect; begin if (ABuffer.PixelFormat<>pf24bit) or (ABitmap.PixelFormat<>pf24bit) then - raise exception.create('TSpkGUITools.CopyRoundCorner: Tylko 24-bitowe bitmapy są akceptowane!'); + raise exception.create('TSpkGUITools.CopyRoundCorner: Tylko 24-bitowe bitmapy sÂą akceptowane!'); -// Sprawdzanie poprawności +// Sprawdzanie poprawnoĹ“ci if Radius<1 then exit; @@ -417,7 +417,7 @@ Offset:=DstPoint - SrcPoint; if not(OrgSrcRect.IntersectsWith(OrgDstRect - Offset, SrcRect)) then exit; -// Ustalamy pozycję środka łuku +// Ustalamy pozycjĂŞ Ĺ“rodka Âłuku case CornerPos of cpLeftTop: Center:=T2DIntVector.create(SrcPoint.x + radius - 1, SrcPoint.y + Radius - 1); cpRightTop: Center:=T2DIntVector.create(SrcPoint.x, SrcPoint.y + Radius - 1); @@ -476,9 +476,9 @@ class procedure TGUITools.CopyRoundRect(ABuffer, ABitmap: TBitmap; SrcPoint, begin if (ABuffer.PixelFormat<>pf24bit) or (ABitmap.PixelFormat<>pf24bit) then - raise exception.create('TSpkGUITools.CopyBackground: Tylko 24-bitowe bitmapy są akceptowane!'); + raise exception.create('TSpkGUITools.CopyBackground: Tylko 24-bitowe bitmapy sÂą akceptowane!'); -// Sprawdzamy poprawność +// Sprawdzamy poprawnoϾ if Radius<0 then exit; @@ -487,8 +487,8 @@ if (Radius>Width div 2) or (Radius>Height div 2) then exit; if (ABuffer.width=0) or (ABuffer.height=0) or (ABitmap.width=0) or (ABitmap.height=0) then exit; -{$REGION 'Wypełniamy prostokąty'} -// Góra +{$REGION 'WypeÂłniamy prostokÂąty'} +// GĂłra CopyRectangle(ABuffer, ABitmap, T2DIntPoint.create(SrcPoint.x + radius, SrcPoint.y), @@ -496,7 +496,7 @@ CopyRectangle(ABuffer, width - 2*radius, radius, ClipRect); -// Dół +// Dó³ CopyRectangle(ABuffer, ABitmap, T2DIntPoint.create(SrcPoint.x + radius, SrcPoint.y + height - radius), @@ -504,7 +504,7 @@ CopyRectangle(ABuffer, width - 2*radius, radius, ClipRect); -// Środek +// Ĺ’rodek CopyRectangle(ABuffer, ABitmap, T2DIntPoint.create(SrcPoint.x, SrcPoint.y + radius), @@ -514,9 +514,9 @@ CopyRectangle(ABuffer, ClipRect); {$ENDREGION} -// Wypełniamy narożniki +// WypeÂłniamy naroÂżniki -{$REGION 'Lewy górny'} +{$REGION 'Lewy gĂłrny'} if LeftTopRound then TGUITools.CopyRoundCorner(ABuffer, ABitmap, @@ -535,7 +535,7 @@ else ClipRect); {$ENDREGION} -{$REGION 'Prawy górny'} +{$REGION 'Prawy gĂłrny'} if RightTopRound then TGUITools.CopyRoundCorner(ABuffer, ABitmap, @@ -599,9 +599,9 @@ class procedure TGUITools.CopyRoundRect(ABuffer : TBitmap; ABitmap: TBitmap; Src begin if (ABuffer.PixelFormat<>pf24bit) or (ABitmap.PixelFormat<>pf24bit) then - raise exception.create('TSpkGUITools.CopyBackground: Tylko 24-bitowe bitmapy są akceptowane!'); + raise exception.create('TSpkGUITools.CopyBackground: Tylko 24-bitowe bitmapy sÂą akceptowane!'); -// Sprawdzamy poprawność +// Sprawdzamy poprawnoϾ if Radius<0 then exit; @@ -610,22 +610,22 @@ if (Radius>Width div 2) or (Radius>Height div 2) then exit; if (ABuffer.width=0) or (ABuffer.height=0) or (ABitmap.width=0) or (ABitmap.height=0) then exit; -{$REGION 'Wypełniamy prostokąty'} -// Góra +{$REGION 'WypeÂłniamy prostokÂąty'} +// GĂłra CopyRectangle(ABuffer, ABitmap, T2DIntPoint.create(SrcPoint.x + radius, SrcPoint.y), T2DIntPoint.create(DstPoint.x + radius, DstPoint.y), width - 2*radius, radius); -// Dół +// Dó³ CopyRectangle(ABuffer, ABitmap, T2DIntPoint.create(SrcPoint.x + radius, SrcPoint.y + height - radius), T2DIntPoint.create(DstPoint.x + radius, DstPoint.y + height - radius), width - 2*radius, radius); -// Środek +// Ĺ’rodek CopyRectangle(ABuffer, ABitmap, T2DIntPoint.create(SrcPoint.x, SrcPoint.y + radius), @@ -634,8 +634,8 @@ CopyRectangle(ABuffer, height - 2*radius); {$ENDREGION} -// Wypełniamy narożniki -{$REGION 'Lewy górny'} +// WypeÂłniamy naroÂżniki +{$REGION 'Lewy gĂłrny'} if LeftTopRound then TGUITools.CopyRoundCorner(ABuffer, ABitmap, @@ -652,7 +652,7 @@ else Radius); {$ENDREGION} -{$REGION 'Prawy górny'} +{$REGION 'Prawy gĂłrny'} if RightTopRound then TGUITools.CopyRoundCorner(ABuffer, ABitmap, @@ -717,16 +717,16 @@ var BufferRect, BitmapRect : T2DIntRect; begin if (ABuffer.PixelFormat<>pf24bit) or (ABitmap.PixelFormat<>pf24bit) then - raise exception.create('TSpkGUITools.CopyRoundCorner: Tylko 24-bitowe bitmapy są akceptowane!'); + raise exception.create('TSpkGUITools.CopyRoundCorner: Tylko 24-bitowe bitmapy sÂą akceptowane!'); -// Sprawdzanie poprawności +// Sprawdzanie poprawnoĹ“ci if (Width<1) or (Height<1) then exit; if (ABuffer.width=0) or (ABuffer.height=0) or (ABitmap.width=0) or (ABitmap.height=0) then exit; -// Przycinamy źródłowy rect do obszaru źródłowej bitmapy +// Przycinamy ŸrĂłdÂłowy rect do obszaru ŸrĂłdÂłowej bitmapy BufferRect:=T2DIntRect.create(0, 0, ABuffer.width-1, ABuffer.height-1); if not(BufferRect.IntersectsWith(T2DIntRect.create(SrcPoint.x, @@ -743,14 +743,14 @@ if not(BitmapRect.IntersectsWith(T2DIntRect.create(DstPoint.x, DstPoint.y+Height-1), DstRect)) then exit; -// Liczymy offset źródłowego do docelowego recta +// Liczymy offset ŸrĂłdÂłowego do docelowego recta Offset:=DstPoint - SrcPoint; -// Sprawdzamy, czy nałożone na siebie recty: źródłowy i docelowy przesunięty o -// offset mają jakąś część wspólną +// Sprawdzamy, czy naÂłoÂżone na siebie recty: ŸrĂłdÂłowy i docelowy przesuniĂŞty o +// offset majÂą jak¹œ czêœæ wspĂłlnÂą if not(SrcRect.IntersectsWith(DstRect - Offset, ClippedSrcRect)) then exit; -// Jeśli jest cokolwiek do przetworzenia, wykonaj operację +// JeĹ“li jest cokolwiek do przetworzenia, wykonaj operacjĂŞ if (ClippedSrcRect.left<=ClippedSrcRect.right) and (ClippedSrcRect.top<=ClippedSrcRect.bottom) then for y := ClippedSrcRect.top to ClippedSrcRect.bottom do begin @@ -791,12 +791,12 @@ var BufferRect, BitmapRect : T2DIntRect; begin if (ABuffer.PixelFormat<>pf24bit) or (ABitmap.PixelFormat<>pf24bit) then - raise exception.create('TSpkGUITools.CopyRoundCorner: Tylko 24-bitowe bitmapy są akceptowane!'); + raise exception.create('TSpkGUITools.CopyRoundCorner: Tylko 24-bitowe bitmapy sÂą akceptowane!'); if (AMask.PixelFormat<>pf8bit) then - raise exception.create('TSpkGUITools.CopyRoundCorner: Tylko 8-bitowe maski są akceptowane!'); + raise exception.create('TSpkGUITools.CopyRoundCorner: Tylko 8-bitowe maski sÂą akceptowane!'); -// Sprawdzanie poprawności +// Sprawdzanie poprawnoĹ“ci if (Width<1) or (Height<1) then exit; @@ -806,7 +806,7 @@ if (ABuffer.width=0) or (ABuffer.height=0) or if (ABuffer.Width<>AMask.Width) or (ABuffer.Height<>AMask.Height) then exit; -// Przycinamy źródłowy rect do obszaru źródłowej bitmapy +// Przycinamy ŸrĂłdÂłowy rect do obszaru ŸrĂłdÂłowej bitmapy BufferRect:=T2DIntRect.create(0, 0, ABuffer.width-1, ABuffer.height-1); if not(BufferRect.IntersectsWith(T2DIntRect.create(SrcPoint.x, @@ -823,14 +823,14 @@ if not(BitmapRect.IntersectsWith(T2DIntRect.create(DstPoint.x, DstPoint.y+Height-1), DstRect)) then exit; -// Liczymy offset źródłowego do docelowego recta +// Liczymy offset ŸrĂłdÂłowego do docelowego recta Offset:=DstPoint - SrcPoint; -// Sprawdzamy, czy nałożone na siebie recty: źródłowy i docelowy przesunięty o -// offset mają jakąś część wspólną +// Sprawdzamy, czy naÂłoÂżone na siebie recty: ŸrĂłdÂłowy i docelowy przesuniĂŞty o +// offset majÂą jak¹œ czêœæ wspĂłlnÂą if not(SrcRect.IntersectsWith(DstRect - Offset, ClippedSrcRect)) then exit; -// Jeśli jest cokolwiek do przetworzenia, wykonaj operację +// JeĹ“li jest cokolwiek do przetworzenia, wykonaj operacjĂŞ if (ClippedSrcRect.left<=ClippedSrcRect.right) and (ClippedSrcRect.top<=ClippedSrcRect.bottom) then for y := ClippedSrcRect.top to ClippedSrcRect.bottom do begin @@ -871,11 +871,11 @@ var BufferRect, BitmapRect : T2DIntRect; begin if (ABuffer.PixelFormat<>pf24bit) or (ABitmap.PixelFormat<>pf24bit) then - raise exception.create('TSpkGUITools.CopyMaskRectangle: Tylko 24-bitowe bitmapy są akceptowane!'); + raise exception.create('TSpkGUITools.CopyMaskRectangle: Tylko 24-bitowe bitmapy sÂą akceptowane!'); if AMask.PixelFormat<>pf8bit then - raise exception.create('TSpkGUITools.CopyMaskRectangle: Tylko 8-bitowe maski są akceptowane!'); + raise exception.create('TSpkGUITools.CopyMaskRectangle: Tylko 8-bitowe maski sÂą akceptowane!'); -// Sprawdzanie poprawności +// Sprawdzanie poprawnoĹ“ci if (Width<1) or (Height<1) then exit; @@ -884,9 +884,9 @@ if (ABuffer.width=0) or (ABuffer.height=0) or if (ABuffer.Width<>AMask.Width) or (ABuffer.Height<>AMask.Height) then - raise exception.create('TSpkGUITools.CopyMaskRectangle: Maska ma nieprawidłowe rozmiary!'); + raise exception.create('TSpkGUITools.CopyMaskRectangle: Maska ma nieprawidÂłowe rozmiary!'); -// Przycinamy źródłowy rect do obszaru źródłowej bitmapy +// Przycinamy ŸrĂłdÂłowy rect do obszaru ŸrĂłdÂłowej bitmapy BufferRect:=T2DIntRect.create(0, 0, ABuffer.width-1, ABuffer.height-1); if not(BufferRect.IntersectsWith(T2DIntRect.create(SrcPoint.x, SrcPoint.y, @@ -906,14 +906,14 @@ if not(BitmapRect.IntersectsWith(T2DIntRect.create(DstPoint.x, if not(DstRect.IntersectsWith(ClipRect, ClippedDstRect)) then Exit; -// Liczymy offset źródłowego do docelowego recta +// Liczymy offset ŸrĂłdÂłowego do docelowego recta Offset:=DstPoint - SrcPoint; -// Sprawdzamy, czy nałożone na siebie recty: źródłowy i docelowy przesunięty o -// offset mają jakąś część wspólną +// Sprawdzamy, czy naÂłoÂżone na siebie recty: ŸrĂłdÂłowy i docelowy przesuniĂŞty o +// offset majÂą jak¹œ czêœæ wspĂłlnÂą if not(SrcRect.IntersectsWith(ClippedDstRect - Offset, ClippedSrcRect)) then exit; -// Jeśli jest cokolwiek do przetworzenia, wykonaj operację +// JeĹ“li jest cokolwiek do przetworzenia, wykonaj operacjĂŞ if (ClippedSrcRect.left<=ClippedSrcRect.right) and (ClippedSrcRect.top<=ClippedSrcRect.bottom) then for y := ClippedSrcRect.top to ClippedSrcRect.bottom do begin @@ -951,16 +951,16 @@ var BufferRect, BitmapRect : T2DIntRect; begin if (ABuffer.PixelFormat<>pf24bit) or (ABitmap.PixelFormat<>pf24bit) then - raise exception.create('TSpkGUITools.CopyRoundCorner: Tylko 24-bitowe bitmapy są akceptowane!'); + raise exception.create('TSpkGUITools.CopyRoundCorner: Tylko 24-bitowe bitmapy sÂą akceptowane!'); -// Sprawdzanie poprawności +// Sprawdzanie poprawnoĹ“ci if (Width<1) or (Height<1) then exit; if (ABuffer.width=0) or (ABuffer.height=0) or (ABitmap.width=0) or (ABitmap.height=0) then exit; -// Przycinamy źródłowy rect do obszaru źródłowej bitmapy +// Przycinamy ŸrĂłdÂłowy rect do obszaru ŸrĂłdÂłowej bitmapy BufferRect:=T2DIntRect.create(0, 0, ABuffer.width-1, ABuffer.height-1); if not(BufferRect.IntersectsWith(T2DIntRect.create(SrcPoint.x, SrcPoint.y, @@ -980,14 +980,14 @@ if not(BitmapRect.IntersectsWith(T2DIntRect.create(DstPoint.x, if not(DstRect.IntersectsWith(ClipRect, ClippedDstRect)) then Exit; -// Liczymy offset źródłowego do docelowego recta +// Liczymy offset ŸrĂłdÂłowego do docelowego recta Offset:=DstPoint - SrcPoint; -// Sprawdzamy, czy nałożone na siebie recty: źródłowy i docelowy przesunięty o -// offset mają jakąś część wspólną +// Sprawdzamy, czy naÂłoÂżone na siebie recty: ŸrĂłdÂłowy i docelowy przesuniĂŞty o +// offset majÂą jak¹œ czêœæ wspĂłlnÂą if not(SrcRect.IntersectsWith(ClippedDstRect - Offset, ClippedSrcRect)) then exit; -// Jeśli jest cokolwiek do przetworzenia, wykonaj operację +// JeĹ“li jest cokolwiek do przetworzenia, wykonaj operacjĂŞ if (ClippedSrcRect.left<=ClippedSrcRect.right) and (ClippedSrcRect.top<=ClippedSrcRect.bottom) then for y := ClippedSrcRect.top to ClippedSrcRect.bottom do begin @@ -1018,9 +1018,9 @@ var BufferRect, BitmapRect : T2DIntRect; begin if (ABuffer.PixelFormat<>pf24bit) or (ABitmap.PixelFormat<>pf24bit) then - raise exception.create('TSpkGUITools.CopyRoundCorner: Tylko 24-bitowe bitmapy są akceptowane!'); + raise exception.create('TSpkGUITools.CopyRoundCorner: Tylko 24-bitowe bitmapy sÂą akceptowane!'); -// Sprawdzanie poprawności +// Sprawdzanie poprawnoĹ“ci if Radius<1 then exit; @@ -1045,7 +1045,7 @@ Offset:=DstPoint - SrcPoint; if not(OrgSrcRect.IntersectsWith(OrgDstRect - Offset, SrcRect)) then exit; -// Ustalamy pozycję środka łuku +// Ustalamy pozycjĂŞ Ĺ“rodka Âłuku case CornerPos of cpLeftTop: Center:=T2DIntVector.create(SrcPoint.x + radius - 1, SrcPoint.y + Radius - 1); @@ -1114,30 +1114,30 @@ var CornerRect : T2DIntRect; begin if ABitmap.PixelFormat<>pf24bit then - raise exception.create('TSpkGUITools.DrawAARoundCorner: Bitmapa musi być w trybie 24-bitowym!'); + raise exception.create('TSpkGUITools.DrawAARoundCorner: Bitmapa musi byæ w trybie 24-bitowym!'); -// Sprawdzamy poprawność +// Sprawdzamy poprawnoϾ if Radius<1 then exit; if (ABitmap.width=0) or (ABitmap.height=0) then exit; -// Źródłowy rect... +// ÂŹrĂłdÂłowy rect... OrgCornerRect:=T2DIntRect.create(Point.x, Point.y, Point.x + radius - 1, Point.y + radius - 1); -// ...przycinamy do rozmiarów bitmapy +// ...przycinamy do rozmiarĂłw bitmapy BitmapRect:=T2DIntRect.create(0, 0, ABitmap.width-1, ABitmap.height-1); if not(BitmapRect.intersectsWith(OrgCornerRect, CornerRect)) then exit; -// Jeśli nie ma czego rysować, wychodzimy +// JeĹ“li nie ma czego rysowaæ, wychodzimy if (CornerRect.left>CornerRect.right) or (CornerRect.top>CornerRect.bottom) then exit; -// Szukamy środka łuku - zależnie od rodzaju narożnika +// Szukamy Ĺ“rodka Âłuku - zaleÂżnie od rodzaju naroÂżnika case CornerPos of cpLeftTop: Center:=T2DIntVector.create(Point.x + radius - 1, Point.y + Radius - 1); cpRightTop: Center:=T2DIntVector.create(Point.x, Point.y + Radius - 1); @@ -1185,21 +1185,21 @@ var CornerRect : T2DIntRect; begin if ABitmap.PixelFormat<>pf24bit then - raise exception.create('TSpkGUITools.DrawAARoundCorner: Bitmapa musi być w trybie 24-bitowym!'); + raise exception.create('TSpkGUITools.DrawAARoundCorner: Bitmapa musi byæ w trybie 24-bitowym!'); -// Sprawdzamy poprawność +// Sprawdzamy poprawnoϾ if Radius<1 then exit; if (ABitmap.width=0) or (ABitmap.height=0) then exit; -// Źródłowy rect... +// ÂŹrĂłdÂłowy rect... OrgCornerRect:=T2DIntRect.create(Point.x, Point.y, Point.x + radius - 1, Point.y + radius - 1); -// ...przycinamy do rozmiarów bitmapy +// ...przycinamy do rozmiarĂłw bitmapy BitmapRect:=T2DIntRect.create(0, 0, ABitmap.width-1, ABitmap.height-1); if not(BitmapRect.intersectsWith(OrgCornerRect, UnClippedCornerRect)) then exit; @@ -1208,11 +1208,11 @@ if not(BitmapRect.intersectsWith(OrgCornerRect, UnClippedCornerRect)) then if not(UnClippedCornerRect.IntersectsWith(ClipRect, CornerRect)) then exit; -// Jeśli nie ma czego rysować, wychodzimy +// JeĹ“li nie ma czego rysowaæ, wychodzimy if (CornerRect.left>CornerRect.right) or (CornerRect.top>CornerRect.bottom) then exit; -// Szukamy środka łuku - zależnie od rodzaju narożnika +// Szukamy Ĺ“rodka Âłuku - zaleÂżnie od rodzaju naroÂżnika case CornerPos of cpLeftTop: Center:=T2DIntVector.create(Point.x + radius - 1, Point.y + Radius - 1); cpRightTop: Center:=T2DIntVector.create(Point.x, Point.y + Radius - 1); @@ -1253,17 +1253,17 @@ var Center : T2DIntVector; CornerRect: T2DIntRect; begin -// Sprawdzamy poprawność +// Sprawdzamy poprawnoϾ if Radius<1 then exit; -// Źródłowy rect... +// ÂŹrĂłdÂłowy rect... CornerRect:=T2DIntRect.create(Point.x, Point.y, Point.x + radius - 1, Point.y + radius - 1); -// Szukamy środka łuku - zależnie od rodzaju narożnika +// Szukamy Ĺ“rodka Âłuku - zaleÂżnie od rodzaju naroÂżnika case CornerPos of cpLeftTop: Center:=T2DIntVector.create(Point.x + radius - 1, Point.y + Radius - 1); cpRightTop: Center:=T2DIntVector.create(Point.x, Point.y + Radius - 1); @@ -1296,7 +1296,7 @@ var UseOrgClipRgn : boolean; OrgRgn : HRGN; begin -// Zapamiętywanie oryginalnego ClipRgn i ustawianie nowego +// ZapamiĂŞtywanie oryginalnego ClipRgn i ustawianie nowego SaveClipRgn(ACanvas.Handle, UseOrgClipRgn, OrgRgn); ClipRgn:=CreateRectRgn(ClipRect.left, ClipRect.Top, ClipRect.Right+1, ClipRect.Bottom+1); @@ -1307,7 +1307,7 @@ SelectClipRgn(ACanvas.Handle, ClipRgn); DrawAARoundCorner(ACanvas, Point, Radius, CornerPos, Color); -// Przywracanie poprzedniego ClipRgn i usuwanie wykorzystanych regionów +// Przywracanie poprzedniego ClipRgn i usuwanie wykorzystanych regionĂłw RestoreClipRgn(ACanvas.Handle, UseOrgClipRgn, OrgRgn); DeleteObject(ClipRgn); end; @@ -1316,7 +1316,7 @@ class procedure TGUITools.DrawAARoundFrame(ABitmap: TBitmap; Rect: T2DIntRect; Radius: integer; Color: TColor; ClipRect: T2DIntRect); begin if ABitmap.PixelFormat<>pf24bit then - raise exception.create('TGUITools.DrawAARoundFrame: Bitmapa musi być w trybie 24-bitowym!'); + raise exception.create('TGUITools.DrawAARoundFrame: Bitmapa musi byæ w trybie 24-bitowym!'); if (Radius<1) then exit; @@ -1333,7 +1333,7 @@ DrawAARoundCorner(ABitmap, T2DIntVector.create(Rect.Right - Radius + 1, Rect.Bot ABitmap.Canvas.Pen.color:=Color; ABitmap.Canvas.pen.style:=psSolid; -// Draw*Line są zabezpieczone przed rysowaniem poza obszarem +// Draw*Line sÂą zabezpieczone przed rysowaniem poza obszarem DrawVLine(ABitmap, Rect.left, rect.top + Radius, rect.bottom - Radius, Color, ClipRect); DrawVLine(ABitmap, Rect.right, rect.top + Radius, rect.bottom - Radius, Color, ClipRect); DrawHLine(ABitmap, Rect.left + Radius, Rect.right - Radius, rect.top, Color, ClipRect); @@ -1345,7 +1345,7 @@ class procedure TGUITools.DrawAARoundFrame(ABitmap: TBitmap; Rect: T2DIntRect; begin if ABitmap.PixelFormat<>pf24bit then - raise exception.create('TGUITools.DrawAARoundFrame: Bitmapa musi być w trybie 24-bitowym!'); + raise exception.create('TGUITools.DrawAARoundFrame: Bitmapa musi byæ w trybie 24-bitowym!'); if (Radius<1) then exit; @@ -1362,7 +1362,7 @@ DrawAARoundCorner(ABitmap, T2DIntVector.create(Rect.Right - Radius + 1, Rect.Bot ABitmap.canvas.Pen.color:=Color; ABitmap.canvas.pen.style:=psSolid; -// Draw*Line są zabezpieczone przed rysowaniem poza obszarem +// Draw*Line sÂą zabezpieczone przed rysowaniem poza obszarem DrawVLine(ABitmap, Rect.left, rect.top + Radius, rect.bottom - Radius, Color); DrawVLine(ABitmap, Rect.right, rect.top + Radius, rect.bottom - Radius, Color); DrawHLine(ABitmap, Rect.left + Radius, Rect.right - Radius, rect.top, Color); @@ -1380,7 +1380,7 @@ with ABitmap.Canvas do begin s:=AText; tw:=TextWidth(s); - // Jeśli tekst się zmieści, rysujemy + // JeĹ“li tekst siĂŞ zmieĹ“ci, rysujemy if tw<=(x2-x1+1) then case Align of taLeftJustify : TextOut(x1,y,AText); @@ -1426,7 +1426,7 @@ var UseOrgClipRgn : boolean; OrgRgn : HRGN; begin -// Zapamiętywanie oryginalnego ClipRgn i ustawianie nowego +// ZapamiĂŞtywanie oryginalnego ClipRgn i ustawianie nowego SaveClipRgn(ACanvas.Handle, UseOrgClipRgn, OrgRgn); ClipRgn:=CreateRectRgn(ClipRect.left, ClipRect.Top, ClipRect.Right+1, ClipRect.Bottom+1); @@ -1437,7 +1437,7 @@ SelectClipRgn(ACanvas.Handle, ClipRgn); DrawHLine(ACanvas, x1, x2, y, Color); -// Przywracanie poprzedniego ClipRgn i usuwanie wykorzystanych regionów +// Przywracanie poprzedniego ClipRgn i usuwanie wykorzystanych regionĂłw RestoreClipRgn(ACanvas.Handle, UseOrgClipRgn, OrgRgn); DeleteObject(ClipRgn); end; @@ -1463,7 +1463,7 @@ var UseOrgClipRgn: Boolean; ClipRgn: HRGN; begin -// Zapamiętywanie oryginalnego ClipRgn i ustawianie nowego +// ZapamiĂŞtywanie oryginalnego ClipRgn i ustawianie nowego SaveClipRgn(ACanvas.Handle, UseOrgClipRgn, OrgRgn); ClipRgn:=CreateRectRgn(ClipRect.left, ClipRect.Top, ClipRect.Right+1, ClipRect.Bottom+1); @@ -1486,7 +1486,7 @@ var UseOrgClipRgn: Boolean; ClipRgn: HRGN; begin -// Zapamiętywanie oryginalnego ClipRgn i ustawianie nowego +// ZapamiĂŞtywanie oryginalnego ClipRgn i ustawianie nowego SaveClipRgn(ACanvas.Handle, UseOrgClipRgn, OrgRgn); ClipRgn:=CreateRectRgn(ClipRect.left, ClipRect.Top, ClipRect.Right+1, ClipRect.Bottom+1); @@ -1536,7 +1536,7 @@ while MarkPos>0 do begin if MarkPos>1 then begin - // Rysowanie tekstu przed wyróżnionym + // Rysowanie tekstu przed wyró¿nionym ACanvas.Font.Style:=ACanvas.Font.Style - [fsBold]; s:=copy(DrawText, 1, MarkPos-1); @@ -1547,7 +1547,7 @@ while MarkPos>0 do delete(BaseText, 1, MarkPos-1); end; - // Rysowanie wyróżnionego tekstu + // Rysowanie wyró¿nionego tekstu ACanvas.Font.Style:=ACanvas.Font.Style + [fsBold]; s:=copy(DrawText, 1, MarkTextLength); @@ -1628,7 +1628,7 @@ var LineRect : T2DIntRect; begin if ABitmap.PixelFormat<>pf24bit then - raise exception.create('TGUITools.DrawHLine: Bitmapa musi być w trybie 24-bitowym!'); + raise exception.create('TGUITools.DrawHLine: Bitmapa musi byæ w trybie 24-bitowym!'); if x2pf24bit then - raise exception.create('TGUITools.DrawHLine: Bitmapa musi być w trybie 24-bitowym!'); + raise exception.create('TGUITools.DrawHLine: Bitmapa musi byæ w trybie 24-bitowym!'); if x2Rect.width) or (Radius*2>Rect.height) then exit; -// Zapamiętywanie oryginalnego ClipRgn i ustawianie nowego +// ZapamiĂŞtywanie oryginalnego ClipRgn i ustawianie nowego SaveClipRgn(ACanvas.Handle, UseOrgClipRgn, OrgRgn); if not(LeftTopRound) and not(RightTopRound) and not(LeftBottomRound) and not (RightBottomRound) then @@ -1862,7 +1862,7 @@ ColorTo:=ColorToRGB(ColorTo); FillGradientRectangle(ACanvas, Rect, ColorFrom, ColorTo, GradientKind); -// Przywracanie poprzedniego ClipRgn i usuwanie wykorzystanych regionów +// Przywracanie poprzedniego ClipRgn i usuwanie wykorzystanych regionĂłw RestoreClipRgn(ACanvas.Handle, UseOrgClipRgn, OrgRgn); DeleteObject(RoundRgn); end; @@ -1914,7 +1914,7 @@ with ABitmap.Canvas do begin s:=AText; tw:=TextWidth(s) + 2; - // Jeśli tekst się zmieści, rysujemy + // JeĹ“li tekst siĂŞ zmieĹ“ci, rysujemy if tw<=(x2-x1+1) then case Align of taLeftJustify : TGUITools.DrawOutlinedText(ABitmap,x1, y, AText, TextColor, OutlineColor); @@ -1946,7 +1946,7 @@ with ACanvas do begin s:=AText; tw:=TextWidth(s) + 2; - // Jeśli tekst się zmieści, rysujemy + // JeĹ“li tekst siĂŞ zmieĹ“ci, rysujemy if tw<=(x2-x1+1) then case Align of taLeftJustify : TGUITools.DrawOutlinedText(ACanvas,x1, y, AText, TextColor, OutlineColor); @@ -2069,7 +2069,7 @@ with ACanvas do begin s:=AText; tw:=TextWidth(s); - // Jeśli tekst się zmieści, rysujemy + // JeĹ“li tekst siĂŞ zmieĹ“ci, rysujemy if tw<=(x2-x1+1) then case Align of taLeftJustify : TextOut(x1,y,AText); @@ -2096,12 +2096,12 @@ var TempRect : T2DIntRect; begin if ABuffer.PixelFormat<>pf24bit then - raise exception.create('TGUITools.RenderBackground: Bitmapa musi być w trybie 24-bitowym!'); + raise exception.create('TGUITools.RenderBackground: Bitmapa musi byæ w trybie 24-bitowym!'); if (rect.left>rect.right) or (rect.top>rect.bottom) then exit; -// Zarówno metoda FillRect jak i WinAPI'owe rysowanie gradientów jest -// zabezpieczone przed rysowaniem poza obszarem płótna. +// ZarĂłwno metoda FillRect jak i WinAPI'owe rysowanie gradientĂłw jest +// zabezpieczone przed rysowaniem poza obszarem p³ótna. case BackgroundKind of bkSolid: begin ABuffer.Canvas.brush.Color:=Color1; @@ -2180,7 +2180,7 @@ var LineRect : T2DIntRect; begin if ABitmap.PixelFormat<>pf24bit then - raise exception.create('TGUITools.DrawHLine: Bitmapa musi być w trybie 24-bitowym!'); + raise exception.create('TGUITools.DrawHLine: Bitmapa musi byæ w trybie 24-bitowym!'); if y2pf24bit then - raise exception.create('TGUITools.DrawHLine: Bitmapa musi być w trybie 24-bitowym!'); + raise exception.create('TGUITools.DrawHLine: Bitmapa musi byæ w trybie 24-bitowym!'); if y2=B) then diff --git a/components/spktoolbar/SpkMath/SpkMath.pas b/components/spktoolbar/SpkMath/SpkMath.pas index d22df2f8d..479b61a49 100644 --- a/components/spktoolbar/SpkMath/SpkMath.pas +++ b/components/spktoolbar/SpkMath/SpkMath.pas @@ -4,7 +4,7 @@ unit SpkMath; interface -{TODO: Zastanowić się, czy wszystkie niejawne casty mają sens} +{TODO: Zastanowiæ siĂŞ, czy wszystkie niejawne casty majÂą sens} uses Windows, Math, SysUtils; @@ -12,7 +12,7 @@ const NUM_ZERO = 1e-12; type TRectCorner = (rcLeftTop, rcRightTop, rcLeftBottom, rcRightBottom); -type // Dwuwymiarowy wektor o całkowitych współrzędnych +type // Dwuwymiarowy wektor o caÂłkowitych wspó³rzĂŞdnych T2DIntVector = record x, y : integer; public @@ -38,10 +38,10 @@ type // Dwuwymiarowy wektor o ca function DistanceTo(AVector : T2DIntVector) : double; end; -type // Punkt w przestrzeni dwuwymiarowej o całkowitych współrzędnych +type // Punkt w przestrzeni dwuwymiarowej o caÂłkowitych wspó³rzĂŞdnych T2DIntPoint = T2DIntVector; -type // Prostokąt w przestrzeni dwuwymiarowej o całkowitych współrzędnych +type // ProstokÂąt w przestrzeni dwuwymiarowej o caÂłkowitych wspó³rzĂŞdnych T2DIntRect = record public constructor Create(ALeft, ATop, ARight, ABottom : integer); overload; @@ -75,7 +75,7 @@ type // Prostok 1 : (TopLeft : T2DIntVector; BottomRight : T2DIntVector); end; -type // Wektor w przestrzeni dwuwymiarowej o rzeczywistych współrzędnych +type // Wektor w przestrzeni dwuwymiarowej o rzeczywistych wspó³rzĂŞdnych T2DVector = record x, y : extended; public @@ -115,10 +115,10 @@ type // Wektor w przestrzeni dwuwymiarowej o rzeczywistych wsp function DistanceFromAxis(APoint : T2DVector; AVector : T2DVector) : extended; end; -type // Punkt w przestrzeni dwuwymiarowej o rzeczywistych współrzędnych +type // Punkt w przestrzeni dwuwymiarowej o rzeczywistych wspó³rzĂŞdnych T2DPoint = T2DVector; -type // Prostokąt w przestrzeni dwuwymiarowej o rzeczywistych współrzędnych +type // ProstokÂąt w przestrzeni dwuwymiarowej o rzeczywistych wspó³rzĂŞdnych T2DRect = record public constructor Create(ALeft, ATop, ARight, ABottom : extended); overload; @@ -152,7 +152,7 @@ type // Prostok 1 : (TopLeft : T2DVector; BottomRight : T2DVector); end; -type // Wektor w przestrzeni trójwymiarowej o rzeczywistych współrzędnych +type // Wektor w przestrzeni trĂłjwymiarowej o rzeczywistych wspó³rzĂŞdnych T3DVector = record x, y, z : extended; public @@ -356,7 +356,7 @@ var len : extended; begin len:=self.Length; if len0 then begin @@ -474,7 +474,7 @@ var len : extended; begin len:=self.Length; if len0 then begin @@ -634,7 +634,7 @@ result.y:=-(self.x * vector.z - self.z * vector.x); result.z:=self.x * vector.y - self.y * vector.x; len:=result.Length; if lenTyp opisujący regiony toolbara, które są używane podczas - /// obsługi interakcji z myszą +type /// Typ opisujÂący regiony toolbara, ktĂłre sÂą uÂżywane podczas + /// obsÂługi interakcji z myszÂą TSpkMouseToolbarElement = (teNone, teToolbarArea, teTabs, teTabContents); type TSpkToolbar = class; - /// Klasa dyspozytora służąca do bezpiecznego przyjmowania - /// informacji oraz żądań od pod-elementów + /// Klasa dyspozytora sÂłu¿¹ca do bezpiecznego przyjmowania + /// informacji oraz ¿¹dañ od pod-elementĂłw TSpkToolbarDispatch = class(TSpkBaseToolbarDispatch) private - /// Komponent toolbara, który przyjmuje informacje i żądania - /// od pod-elementów + /// Komponent toolbara, ktĂłry przyjmuje informacje i ¿¹dania + /// od pod-elementĂłw FToolbar : TSpkToolbar; protected public @@ -44,29 +44,29 @@ type TSpkToolbar = class; // *** Implementacja abstrakcyjnych metod TSpkBaseToolbarDispatch *** // ****************************************************************** - /// Metoda wywoływana, gdy zmieni się zawartość obiektu wyglądu - /// zawierającego kolory i czcionki używane do rysowania toolbara. + /// Metoda wywoÂływana, gdy zmieni siĂŞ zawartoϾ obiektu wyglÂądu + /// zawierajÂącego kolory i czcionki uÂżywane do rysowania toolbara. /// procedure NotifyAppearanceChanged; override; - /// Metoda wywoływana, gdy zmieni się lista pod-elementów jednego - /// z elementów toolbara + /// Metoda wywoÂływana, gdy zmieni siĂŞ lista pod-elementĂłw jednego + /// z elementĂłw toolbara procedure NotifyItemsChanged; override; - /// Metoda wywoływana, gdy zmieni się rozmiar lub położenie - /// (metryka) jednego z elementów toolbara + /// Metoda wywoÂływana, gdy zmieni siĂŞ rozmiar lub poÂłoÂżenie + /// (metryka) jednego z elementĂłw toolbara procedure NotifyMetricsChanged; override; - /// Metoda wywoływana, gdy zmieni się wygląd jednego z elementów - /// toolbara, nie wymagający jednak przebudowania metryk. + /// Metoda wywoÂływana, gdy zmieni siĂŞ wyglÂąd jednego z elementĂłw + /// toolbara, nie wymagajÂący jednak przebudowania metryk. procedure NotifyVisualsChanged; override; - /// Metoda żąda dostarczenia przez toolbar pomocniczej - /// bitmapy używanej - przykładowo - do obliczania rozmiarów renderowanego + /// Metoda ¿¹da dostarczenia przez toolbar pomocniczej + /// bitmapy uÂżywanej - przykÂładowo - do obliczania rozmiarĂłw renderowanego /// tekstu function GetTempBitmap : TBitmap; override; - /// Metoda przelicza współrzędne toolbara na współrzędne - /// ekranu, co umożliwia - na przykład - rozwinięcie popup menu. + /// Metoda przelicza wspó³rzĂŞdne toolbara na wspó³rzĂŞdne + /// ekranu, co umoÂżliwia - na przykÂład - rozwiniĂŞcie popup menu. function ClientToScreen(Point : T2DIntPoint) : T2DIntPoint; override; end; - /// Rozszerzony pasek narzędzi inspirowany Microsoft Fluent + /// Rozszerzony pasek narzĂŞdzi inspirowany Microsoft Fluent /// UI TSpkToolbar = class(TCustomControl) private @@ -74,81 +74,81 @@ type TSpkToolbar = class; /// toolbara FToolbarDispatch : TSpkToolbarDispatch; - /// Bufor w którym rysowany jest toolbar + /// Bufor w ktĂłrym rysowany jest toolbar FBuffer : TBitmap; - /// Pomocnicza bitmapa przekazywana na życzenie elementom + /// Pomocnicza bitmapa przekazywana na Âżyczenie elementom /// toolbara FTemporary : TBitmap; - /// Tablica rectów "uchwytów" zakładek + /// Tablica rectĂłw "uchwytĂłw" zakÂładek FTabRects : array of T2DIntRect; - /// Cliprect obszaru "uchwytów" zakładek + /// Cliprect obszaru "uchwytĂłw" zakÂładek FTabClipRect : T2DIntRect; - /// Cliprect obszaru zawartości zakładki + /// Cliprect obszaru zawartoĹ“ci zakÂładki FTabContentsClipRect : T2DIntRect; - /// Element toolbara znajdujący się obecnie pod myszką + /// Element toolbara znajdujÂący siĂŞ obecnie pod myszkÂą FMouseHoverElement : TSpkMouseToolbarElement; - /// Element toolbara mający obecnie wyłączność na otrzymywanie - /// komunikatów od myszy + /// Element toolbara majÂący obecnie wy³¹cznoϾ na otrzymywanie + /// komunikatĂłw od myszy FMouseActiveElement : TSpkMouseToolbarElement; - /// "Uchwyt" zakładki, nad którym znajduje się obecnie mysz + /// "Uchwyt" zakÂładki, nad ktĂłrym znajduje siĂŞ obecnie mysz /// FTabHover : integer; - /// Flaga informująca o tym, czy metryki toolbara i jego elementów - /// są aktualne + /// Flaga informujÂąca o tym, czy metryki toolbara i jego elementĂłw + /// sÂą aktualne FMetricsValid : boolean; - /// Flaga informująca o tym, czy zawartość bufora jest aktualna + /// Flaga informujÂąca o tym, czy zawartoϾ bufora jest aktualna /// FBufferValid : boolean; /// Flaga InternalUpdating pozwala na zablokowanie walidacji - /// metryk i bufora w momencie, gdy komponent przebudowuje swoją zawartość. - /// FInternalUpdating jest zapalana i gaszona wewnętrznie, przez komponent. + /// metryk i bufora w momencie, gdy komponent przebudowuje swojÂą zawartoϾ. + /// FInternalUpdating jest zapalana i gaszona wewnĂŞtrznie, przez komponent. /// FInternalUpdating : boolean; /// Flaga IUpdating pozwala na zablokowanie walidacji - /// metryk i bufora w momencie, gdy użytkownik przebudowuje zawartość - /// komponentu. FUpdating jest sterowana przez użytkownika. + /// metryk i bufora w momencie, gdy uÂżytkownik przebudowuje zawartoϾ + /// komponentu. FUpdating jest sterowana przez uÂżytkownika. FUpdating : boolean; protected - /// Instancja obiektu wyglądu, przechowującego kolory i czcionki - /// używane podczas renderowania komponentu + /// Instancja obiektu wyglÂądu, przechowujÂącego kolory i czcionki + /// uÂżywane podczas renderowania komponentu FAppearance : TSpkToolbarAppearance; - /// Zakładki toolbara + /// ZakÂładki toolbara FTabs : TSpkTabs; - /// Indeks wybranej zakładki + /// Indeks wybranej zakÂładki FTabIndex : integer; - /// Lista małych obrazków elementów toolbara + /// Lista maÂłych obrazkĂłw elementĂłw toolbara FImages : TImageList; - /// Lista małych obrazków w stanie "disabled". Jeśli nie jest - /// przypisana, obrazki w stanie "disabled" będą generowane automatycznie. + /// Lista maÂłych obrazkĂłw w stanie "disabled". JeĹ“li nie jest + /// przypisana, obrazki w stanie "disabled" bĂŞdÂą generowane automatycznie. /// FDisabledImages : TImageList; - /// Lista dużych obrazków elementów toolbara + /// Lista duÂżych obrazkĂłw elementĂłw toolbara FLargeImages : TImageList; - /// Lista dużych obrazków w stanie "disabled". Jeśli nie jest - /// przypisana, obrazki w stanie "disabled" będą generowane automatycznie. + /// Lista duÂżych obrazkĂłw w stanie "disabled". JeĹ“li nie jest + /// przypisana, obrazki w stanie "disabled" bĂŞdÂą generowane automatycznie. /// FDisabledLargeImages : TImageList; // ******************************************* - // *** Zarządzanie stanem metryki i bufora *** + // *** ZarzÂądzanie stanem metryki i bufora *** // ******************************************* /// Metoda gasi flagi: FMetricsValid oraz FBufferValid procedure SetMetricsInvalid; - /// Metoda gasi flagę FBufferValid + /// Metoda gasi flagĂŞ FBufferValid procedure SetBufferInvalid; - /// Metoda waliduje metryki toolbara i jego elementów + /// Metoda waliduje metryki toolbara i jego elementĂłw procedure ValidateMetrics; - /// Metoda waliduje zawartość bufora + /// Metoda waliduje zawartoϾ bufora procedure ValidateBuffer; - /// Metoda włącza tryb wewnętrznej przebudowy - zapala flagę + /// Metoda w³¹cza tryb wewnĂŞtrznej przebudowy - zapala flagĂŞ /// FInternalUpdating procedure InternalBeginUpdate; - /// Metoda wyłącza tryb wewnętrznej przebudowy - gasi flagę + /// Metoda wy³¹cza tryb wewnĂŞtrznej przebudowy - gasi flagĂŞ /// FInternalUpdating procedure InternalEndUpdate; @@ -158,43 +158,43 @@ type TSpkToolbar = class; /// Zmiana rozmiaru komponentu procedure Resize; override; - /// Metoda wywoływana po opuszczeniu obszaru komponentu przez - /// wskaźnik myszy + /// Metoda wywoÂływana po opuszczeniu obszaru komponentu przez + /// wskaŸnik myszy procedure MouseLeave; - /// Metoda wywoływana po wciśnięciu przycisku myszy + /// Metoda wywoÂływana po wciĹ“niĂŞciu przycisku myszy procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; - /// Metoda wywoływana, gdy nad komponentem przesunie się wskaźnik + /// Metoda wywoÂływana, gdy nad komponentem przesunie siĂŞ wskaŸnik /// myszy procedure MouseMove(Shift: TShiftState; X, Y: Integer); override; - /// Metoda wywoływana po puszczeniu przycisku myszy + /// Metoda wywoÂływana po puszczeniu przycisku myszy procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; - /// Metoda wywoływana, gdy cały komponent wczyta się z DFMa + /// Metoda wywoÂływana, gdy caÂły komponent wczyta siĂŞ z DFMa /// procedure Loaded; override; - /// Metoda wywoływana, gdy komponent staje się Ownerem innego - /// komponentu, bądź gdy jeden z jego pod-komponentów jest zwalniany + /// Metoda wywoÂływana, gdy komponent staje siĂŞ Ownerem innego + /// komponentu, bÂądŸ gdy jeden z jego pod-komponentĂłw jest zwalniany /// procedure Notification(AComponent: TComponent; Operation: TOperation); override; // ****************************************** - // *** Obsługa zdarzeń myszy dla zakładek *** + // *** ObsÂługa zdarzeñ myszy dla zakÂładek *** // ****************************************** - /// Metoda wywoływana po opuszczeniu przez wskaźnik myszy obszaru - /// "uchwytów" zakładek + /// Metoda wywoÂływana po opuszczeniu przez wskaŸnik myszy obszaru + /// "uchwytĂłw" zakÂładek procedure TabMouseLeave; - /// Metoda wywoływana po wciśnięciu przycisku myszy, gdy wskaźnik - /// jest nad obszarem zakładek + /// Metoda wywoÂływana po wciĹ“niĂŞciu przycisku myszy, gdy wskaŸnik + /// jest nad obszarem zakÂładek procedure TabMouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); - /// Metoda wywoływana, gdy mysz przesunie się ponad obszarem - /// "uchwytów" zakładek + /// Metoda wywoÂływana, gdy mysz przesunie siĂŞ ponad obszarem + /// "uchwytĂłw" zakÂładek procedure TabMouseMove(Shift: TShiftState; X, Y: Integer); - /// Metoda wywoływana, gdy jeden z przycisków myszy zostanie - /// puszczony, gdy obszar zakładek był aktywnym elementem toolbara + /// Metoda wywoÂływana, gdy jeden z przyciskĂłw myszy zostanie + /// puszczony, gdy obszar zakÂładek byÂł aktywnym elementem toolbara /// procedure TabMouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); @@ -203,66 +203,66 @@ type TSpkToolbar = class; // *** Pomocnicze *** // ****************** - /// Metoda sprawdza, czy choć jedna zakładka ma ustawioną flagę - /// widoczności (Visible) + /// Metoda sprawdza, czy choæ jedna zakÂładka ma ustawionÂą flagĂŞ + /// widocznoĹ“ci (Visible) function AtLeastOneTabVisible : boolean; // *************************** - // *** Obsługa komunikatów *** + // *** ObsÂługa komunikatĂłw *** // *************************** - /// Komunikat odbierany, gdy mysz opuści obszar komponentu + /// Komunikat odbierany, gdy mysz opuĹ“ci obszar komponentu /// procedure CMMouseLeave(var msg : TMessage); message CM_MOUSELEAVE; // ******************************** - // *** Obsługa designtime i DFM *** + // *** ObsÂługa designtime i DFM *** // ******************************** - /// Metoda zwraca elementy, które mają zostać zapisane jako + /// Metoda zwraca elementy, ktĂłre majÂą zostaæ zapisane jako /// pod-elementy komponentu procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override; /// Metoda pozwala na zapisanie lub odczytanie dodatkowych - /// własności komponentu + /// wÂłasnoĹ“ci komponentu procedure DefineProperties(Filer : TFiler); override; // ************************* // *** Gettery i settery *** // ************************* - /// Getter dla własności Height + /// Getter dla wÂłasnoĹ“ci Height function GetHeight: integer; - /// Setter dla własności Appearance + /// Setter dla wÂłasnoĹ“ci Appearance procedure SetAppearance(const Value: TSpkToolbarAppearance); - /// Getter dla własności Color + /// Getter dla wÂłasnoĹ“ci Color function GetColor: TColor; - /// Setter dla własności Color + /// Setter dla wÂłasnoĹ“ci Color procedure SetColor(const Value: TColor); - /// Setter dla własności TabIndex + /// Setter dla wÂłasnoĹ“ci TabIndex procedure SetTabIndex(const Value: integer); - /// Setter dla własności Images + /// Setter dla wÂłasnoĹ“ci Images procedure SetImages(const Value: TImageList); - /// Setter dla własności DisabledImages + /// Setter dla wÂłasnoĹ“ci DisabledImages procedure SetDisabledImages(const Value : TImageList); - /// Setter dla własności LargeImages + /// Setter dla wÂłasnoĹ“ci LargeImages procedure SetLargeImages(const Value : TImageList); - /// Setter dla własności DisabledLargeImages + /// Setter dla wÂłasnoĹ“ci DisabledLargeImages procedure SetDisabledLargeImages(const Value : TImageList); public // *********************************** - // *** Obsługa zdarzeń dyspozytora *** + // *** ObsÂługa zdarzeñ dyspozytora *** // *********************************** - /// Reakcja na zmianę struktury elementów toolbara + /// Reakcja na zmianĂŞ struktury elementĂłw toolbara procedure NotifyItemsChanged; - /// Reakcja na zmianę metryki elementów toolbara + /// Reakcja na zmianĂŞ metryki elementĂłw toolbara procedure NotifyMetricsChanged; - /// Reakcja na zmianę wyglądu elementów toolbara + /// Reakcja na zmianĂŞ wyglÂądu elementĂłw toolbara procedure NotifyVisualsChanged; - /// Reakcja na zmianę zawartości klasy wyglądu toolbara + /// Reakcja na zmianĂŞ zawartoĹ“ci klasy wyglÂądu toolbara procedure NotifyAppearanceChanged; - /// Metoda zwraca instancję pomocniczej bitmapy + /// Metoda zwraca instancjĂŞ pomocniczej bitmapy function GetTempBitmap : TBitmap; // ******************************** @@ -278,52 +278,52 @@ type TSpkToolbar = class; // *** Rysowanie *** // ***************** - /// Metoda odrysowuje zawartość komponentu + /// Metoda odrysowuje zawartoϾ komponentu procedure Paint; override; /// Metoda wymusza przebudowanie metryk i bufora procedure ForceRepaint; - /// Metoda przełącza komponent w tryb aktualizacji zawartości + /// Metoda prze³¹cza komponent w tryb aktualizacji zawartoĹ“ci /// poprzez zapalenie flagi FUpdating procedure BeginUpdate; - /// Metoda wyłącza tryb aktualizacji zawartości poprzez zgaszenie + /// Metoda wy³¹cza tryb aktualizacji zawartoĹ“ci poprzez zgaszenie /// flagi FUpdating procedure EndUpdate; // ************************* - // *** Obsługa elementów *** + // *** ObsÂługa elementĂłw *** // ************************* - /// Metoda wywoływana w momencie, gdy jedna z zakładek + /// Metoda wywoÂływana w momencie, gdy jedna z zakÂładek /// jest zwalniana - /// Nie należy wywoływać metody FreeingTab z kodu! Jest ona - /// wywoływana wewnętrznie, a jej zadaniem jest zaktualizowanie wewnętrznej - /// listy zakładek. + /// Nie naleÂży wywoÂływaæ metody FreeingTab z kodu! Jest ona + /// wywoÂływana wewnĂŞtrznie, a jej zadaniem jest zaktualizowanie wewnĂŞtrznej + /// listy zakÂładek. procedure FreeingTab(ATab : TSpkTab); // ************************** - // *** Dostęp do zakładek *** + // *** DostĂŞp do zakÂładek *** // ************************** - /// Własność daje dostę do zakładek w trybie runtime. Do edycji - /// zakładek w trybie designtime służy odpowiedni edytor, zaś zapisywanie + /// WÂłasnoϾ daje dostĂŞ do zakÂładek w trybie runtime. Do edycji + /// zakÂładek w trybie designtime sÂłuÂży odpowiedni edytor, zaĹ“ zapisywanie /// i odczytywanie z DFMa jest zrealizowane manualnie. property Tabs : TSpkTabs read FTabs; published - /// Kolor tła komponentu + /// Kolor tÂła komponentu property Color : TColor read GetColor write SetColor; - /// Obiekt zawierający atrybuty wyglądu toolbara + /// Obiekt zawierajÂący atrybuty wyglÂądu toolbara property Appearance : TSpkToolbarAppearance read FAppearance write SetAppearance; - /// Wysokość toolbara (tylko do odczytu) + /// WysokoϾ toolbara (tylko do odczytu) property Height : integer read GetHeight; - /// Aktywna zakładka + /// Aktywna zakÂładka property TabIndex : integer read FTabIndex write SetTabIndex; - /// Lista małych obrazków + /// Lista maÂłych obrazkĂłw property Images : TImageList read FImages write SetImages; - /// Lista małych obrazków w stanie "disabled" + /// Lista maÂłych obrazkĂłw w stanie "disabled" property DisabledImages : TImageList read FDisabledImages write SetDisabledImages; - /// Lista dużych obrazków + /// Lista duÂżych obrazkĂłw property LargeImages : TImageList read FLargeImages write SetLargeImages; - /// Lista dużych obrazków w stanie "disabled" + /// Lista duÂżych obrazkĂłw w stanie "disabled" property DisabledLargeImages : TImageList read FDisabledLargeImages write SetDisabledLargeImages; end; @@ -412,13 +412,13 @@ constructor TSpkToolbar.Create(AOwner: TComponent); begin inherited Create(AOwner); - // Inicjacja dziedziczonych własności + // Inicjacja dziedziczonych wÂłasnoĹ“ci inherited Align:=alTop; inherited AlignWithMargins:=true; inherited Height:=TOOLBAR_HEIGHT; inherited Doublebuffered:=true; - // Inicjacja wewnętrznych pól danych + // Inicjacja wewnĂŞtrznych pĂłl danych FToolbarDispatch:=TSpkToolbarDispatch.Create(self); FBuffer:=TBitmap.create; @@ -441,7 +441,7 @@ begin FInternalUpdating:=false; FUpdating:=false; - // Inicjacja pól + // Inicjacja pĂłl FAppearance:=TSpkToolbarAppearance.Create(FToolbarDispatch); FTabs:=TSpkTabs.Create(self); @@ -470,7 +470,7 @@ begin FAppearance.Free; - // Zwalniamy wewnętrzne pola + // Zwalniamy wewnĂŞtrzne pola FTemporary.Free; FBuffer.Free; @@ -536,7 +536,7 @@ procedure TSpkToolbar.InternalEndUpdate; begin FInternalUpdating:=false; - // Po wewnętrznych zmianach odświeżamy metryki i bufor + // Po wewnĂŞtrznych zmianach odĹ“wieÂżamy metryki i bufor ValidateMetrics; ValidateBuffer; Repaint; @@ -555,7 +555,7 @@ if FTabs.ListState = lsNeedsProcessing then InternalEndUpdate; -// Proces wewnętrznego update'u zawsze odświeża na końcu metryki i bufor oraz +// Proces wewnĂŞtrznego update'u zawsze odĹ“wieÂża na koñcu metryki i bufor oraz // odrysowuje komponent. end; @@ -569,8 +569,8 @@ begin inherited MouseDown(Button, Shift, X, Y); - // Możliwe, że został wciśnięty kolejny przycisk myszy. W takiej sytuacji - // aktywny obiekt otrzymuje kolejną notyfikację. + // MoÂżliwe, Âże zostaÂł wciĹ“niĂŞty kolejny przycisk myszy. W takiej sytuacji + // aktywny obiekt otrzymuje kolejnÂą notyfikacjĂŞ. if FMouseActiveElement=teTabs then begin TabMouseDown(Button, Shift, X, Y); @@ -582,10 +582,10 @@ begin end else if FMouseActiveElement = teToolbarArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia end else - // Jeśli nie ma aktywnego elementu, aktywnym staje się ten, który obecnie - // jest pod myszą. + // JeĹ“li nie ma aktywnego elementu, aktywnym staje siĂŞ ten, ktĂłry obecnie + // jest pod myszÂą. if FMouseActiveElement=teNone then begin if FMouseHoverElement = teTabs then @@ -603,7 +603,7 @@ begin begin FMouseActiveElement:=teToolbarArea; - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia end; end; end; @@ -615,14 +615,14 @@ begin if FInternalUpdating or FUpdating then exit; - // MouseLeave nie ma szans być zawołane dla obiektu aktywnego, bo po - // wciśnięciu przycisku myszy każdy jej ruch jest przekazywany jako - // MouseMove. Jeśli mysz wyjedzie za obszar komponentu, MouseLeave - // zostanie zawołany zaraz po MouseUp - ale MouseUp czyści aktywny + // MouseLeave nie ma szans byæ zawoÂłane dla obiektu aktywnego, bo po + // wciĹ“niĂŞciu przycisku myszy kaÂżdy jej ruch jest przekazywany jako + // MouseMove. JeĹ“li mysz wyjedzie za obszar komponentu, MouseLeave + // zostanie zawoÂłany zaraz po MouseUp - ale MouseUp czyĹ“ci aktywny // obiekt. if FMouseActiveElement = teNone then begin - // Jeśli nie ma obiektu aktywnego, obsługujemy elementy pod myszą + // JeĹ“li nie ma obiektu aktywnego, obsÂługujemy elementy pod myszÂą if FMouseHoverElement = teTabs then begin TabMouseLeave; @@ -634,7 +634,7 @@ begin end else if FMouseHoverElement = teToolbarArea then begin - // Placeholder, jeśli będzie potrzeba obsługi tego zdarzenia + // Placeholder, jeĹ“li bĂŞdzie potrzeba obsÂługi tego zdarzenia end; end; @@ -653,7 +653,7 @@ begin inherited MouseMove(Shift, X, Y); - // Sprawdzamy, który obiekt jest pod myszą + // Sprawdzamy, ktĂłry obiekt jest pod myszÂą MousePoint:=T2DIntVector.create(x,y); if FTabClipRect.Contains(MousePoint) then @@ -664,7 +664,7 @@ begin NewMouseHoverElement:=teToolbarArea else NewMouseHoverElement:=teNone; - // Jeśli jest jakiś aktywny obiekt, to on ma wyłączność na komunikaty + // JeĹ“li jest jakiĹ“ aktywny obiekt, to on ma wy³¹cznoϾ na komunikaty if FMouseActiveElement = teTabs then begin TabMouseMove(Shift, X, Y); @@ -676,12 +676,12 @@ begin end else if FMouseActiveElement = teToolbarArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia end else if FMouseActiveElement = teNone then begin - // Jeśli element pod myszą się zmienia, informujemy poprzedni element o - // tym, że mysz opuszcza jego obszar + // JeĹ“li element pod myszÂą siĂŞ zmienia, informujemy poprzedni element o + // tym, Âże mysz opuszcza jego obszar if NewMouseHoverElement<>FMouseHoverElement then begin if FMouseHoverElement = teTabs then @@ -695,11 +695,11 @@ begin end else if FMouseHoverElement = teToolbarArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia end; end; - // Element pod myszą otrzymuje MouseMove + // Element pod myszÂą otrzymuje MouseMove if NewMouseHoverElement = teTabs then begin TabMouseMove(Shift, X, Y); @@ -711,7 +711,7 @@ begin end else if NewMouseHoverElement = teToolbarArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia end; end; @@ -732,8 +732,8 @@ begin ClearActive:=not(ssLeft in Shift) and not(ssMiddle in Shift) and not(ssRight in Shift); - // Jeśli jest jakiś aktywny obiekt, to on ma wyłączność na otrzymywanie - // komunikatów + // JeĹ“li jest jakiĹ“ aktywny obiekt, to on ma wy³¹cznoϾ na otrzymywanie + // komunikatĂłw if FMouseActiveElement=teTabs then begin TabMouseUp(Button, Shift, X, Y); @@ -745,12 +745,12 @@ begin end else if FMouseActiveElement = teToolbarArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia end; - // Jeśli puszczono ostatni przycisk i mysz nie znajduje się nad aktywnym - // obiektem, trzeba dodatkowo wywołać MouseLeave dla aktywnego i MouseMove - // dla obiektu pod myszą. + // JeĹ“li puszczono ostatni przycisk i mysz nie znajduje siĂŞ nad aktywnym + // obiektem, trzeba dodatkowo wywoÂłaæ MouseLeave dla aktywnego i MouseMove + // dla obiektu pod myszÂą. if ClearActive and (FMouseActiveElement<>FMouseHoverElement) then begin if FMouseActiveElement = teTabs then @@ -762,7 +762,7 @@ begin end else if FMouseActiveElement = teToolbarArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia end; if FMouseHoverElement=teTabs then @@ -774,11 +774,11 @@ begin end else if FMouseHoverElement = teToolbarArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia end; end; - // MouseUp gasi aktywny obiekt, o ile zostały puszczone wszystkie + // MouseUp gasi aktywny obiekt, o ile zostaÂły puszczone wszystkie // przyciski if ClearActive then FMouseActiveElement:=teNone; @@ -842,8 +842,8 @@ begin begin FTabIndex:=max(0,min(FTabs.count-1,FTabIndex)); - // Wiem, że przynajmniej jedna zakładka jest widoczna (z wcześniejszego - // warunku), więc poniższa pętla na pewno się zakończy. + // Wiem, Âże przynajmniej jedna zakÂładka jest widoczna (z wczeĹ“niejszego + // warunku), wiĂŞc poniÂższa pĂŞtla na pewno siĂŞ zakoñczy. while not(FTabs[FTabIndex].Visible) do FTabIndex:=(FTabIndex + 1) mod FTabs.count; end; @@ -866,9 +866,9 @@ end; procedure TSpkToolbar.Paint; begin -// Jeśli trwa proces przebudowy (wewnętrznej lub użytkownika), walidacja metryk +// JeĹ“li trwa proces przebudowy (wewnĂŞtrznej lub uÂżytkownika), walidacja metryk // i bufora nie jest przeprowadzana, jednak bufor jest rysowany w takiej -// postaci, w jakiej został zapamiętany przed rozpoczęciem procesu przebudowy. +// postaci, w jakiej zostaÂł zapamiĂŞtany przed rozpoczĂŞciem procesu przebudowy. if not(FInternalUpdating or FUpdating) then begin if not(FMetricsValid) then @@ -960,8 +960,8 @@ begin begin FTabIndex:=max(0,min(FTabs.count-1, Value)); - // Wiem, że przynajmniej jedna zakładka jest widoczna (z wcześniejszego - // warunku), więc poniższa pętla na pewno się zakończy. + // Wiem, Âże przynajmniej jedna zakÂładka jest widoczna (z wczeĹ“niejszego + // warunku), wiĂŞc poniÂższa pĂŞtla na pewno siĂŞ zakoñczy. while not(FTabs[FTabIndex].Visible) do FTabIndex:=(FTabIndex + 1) mod FTabs.count; end; @@ -995,8 +995,8 @@ if AtLeastOneTabVisible then SelTab:=i; end; -// Jeśli kliknięta została któraś zakładka, różna od obecnie zaznaczonej, -// zmień zaznaczenie. +// JeĹ“li klikniĂŞta zostaÂła ktĂłraĹ“ zakÂładka, ró¿na od obecnie zaznaczonej, +// zmieñ zaznaczenie. if (Button = mbLeft) and (SelTab<>-1) and (SelTab<>FTabIndex) then begin FTabIndex:=SelTab; @@ -1055,7 +1055,7 @@ begin if FInternalUpdating or FUpdating then exit; -// Zakładki nie potrzebują obsługi MouseUp. +// ZakÂładki nie potrzebujÂą obsÂługi MouseUp. end; procedure TSpkToolbar.SetAppearance(const Value: TSpkToolbarAppearance); @@ -1083,8 +1083,8 @@ procedure TSpkToolbar.ValidateBuffer; i: Integer; begin - // Pobieramy appearance aktualnie zaznaczonej zakładki (bądź - // FToolbarAppearance, jeśli zaznaczona zakładka nie ma ustawionego + // Pobieramy appearance aktualnie zaznaczonej zakÂładki (bÂądŸ + // FToolbarAppearance, jeĹ“li zaznaczona zakÂładka nie ma ustawionego // OverrideAppearance if (FTabIndex<>-1) and (FTabs[FTabIndex].OverrideAppearance) then FocusedAppearance:=FTabs[FTabIndex].CustomAppearance else @@ -1125,18 +1125,18 @@ procedure TSpkToolbar.ValidateBuffer; if not(AtLeastOneTabVisible) then begin - // Jeśli nie ma zakładek, rysujemy poziomą linię + // JeĹ“li nie ma zakÂładek, rysujemy poziomÂą liniĂŞ TGuiTools.DrawHLine(FBuffer, TOOLBAR_CORNER_RADIUS, self.width - TOOLBAR_CORNER_RADIUS, TOOLBAR_TAB_CAPTIONS_HEIGHT, FocusedAppearance.Tab.BorderColor); end else begin - // Jeśli są, pozostawiamy miejsce na zakładki + // JeĹ“li sÂą, pozostawiamy miejsce na zakÂładki // Szukamy ostatniej widocznej i:=FTabs.count-1; while not(FTabs[i].Visible) do dec(i); - // Tylko prawa część, reszta będzie narysowana wraz z zakładkami + // Tylko prawa czêœæ, reszta bĂŞdzie narysowana wraz z zakÂładkami if FTabRects[i].Right-1) and (FTabs[FTabIndex].OverrideAppearance) then FocusedAppearance:=FTabs[FTabIndex].CustomAppearance else @@ -1321,18 +1321,18 @@ procedure TSpkToolbar.ValidateBuffer; for i := 0 to FTabs.count - 1 do if FTabs[i].Visible then begin - // Jest sens rysować? + // Jest sens rysowaæ? if not(FTabClipRect.IntersectsWith(FTabRects[i])) then continue; - // Pobieramy appearance rysowanej właśnie zakładki + // Pobieramy appearance rysowanej wÂłaĹ“nie zakÂładki if (FTabs[i].OverrideAppearance) then CurrentAppearance:=FTabs[i].CustomAppearance else CurrentAppearance:=FAppearance; TabRect:=FTabRects[i]; - // Rysujemy zakładkę + // Rysujemy zakÂładkĂŞ if i = FTabIndex then begin if i = FTabHover then @@ -1366,8 +1366,8 @@ procedure TSpkToolbar.ValidateBuffer; end; // Dolna kreska - // Uwaga: Niezależnie od zakładki rysowana kolorem appearance - // aktualnie zaznaczonej zakładki! + // Uwaga: NiezaleÂżnie od zakÂładki rysowana kolorem appearance + // aktualnie zaznaczonej zakÂładki! DrawBottomLine(i, FocusedAppearance.Tab.BorderColor); // Tekst @@ -1389,21 +1389,21 @@ if FInternalUpdating or FUpdating then if FBufferValid then exit; -// ValidateBuffer może być wywołane tylko wtedy, gdy metrics zostały obliczone. -// Metoda zakłada, że bufor ma już odpowiednie rozmiary oraz że wszystkie -// recty, zarówno toolbara jak i elementów podrzędnych, zostały poprawnie +// ValidateBuffer moÂże byæ wywoÂłane tylko wtedy, gdy metrics zostaÂły obliczone. +// Metoda zakÂłada, Âże bufor ma juÂż odpowiednie rozmiary oraz Âże wszystkie +// recty, zarĂłwno toolbara jak i elementĂłw podrzĂŞdnych, zostaÂły poprawnie // obliczone. -// *** Tło komponentu *** +// *** TÂło komponentu *** DrawBackgroundColor; -// *** Generowanie tła dla toolbara *** +// *** Generowanie tÂła dla toolbara *** DrawBody; -// *** Zakładki *** +// *** ZakÂładki *** DrawTabs; -// *** Zawartość zakładek *** +// *** ZawartoϾ zakÂładek *** DrawTabContents; // Bufor jest poprawny @@ -1425,15 +1425,15 @@ if FMetricsValid then FBuffer.SetSize(self.width, self.height); -// *** Zakładki *** +// *** ZakÂładki *** -// Cliprect zakładek (zawgórną ramkę komponentu) +// Cliprect zakÂładek (zawgĂłrnÂą ramkĂŞ komponentu) FTabClipRect:=T2DIntRect.Create(TOOLBAR_CORNER_RADIUS, 0, self.width - TOOLBAR_CORNER_RADIUS - 1, TOOLBAR_TAB_CAPTIONS_HEIGHT); -// Recty nagłówków zakładek (zawierają górną ramkę komponentu) +// Recty nag³ówkĂłw zakÂładek (zawierajÂą gĂłrnÂą ramkĂŞ komponentu) setlength(FTabRects, FTabs.Count); if FTabs.count>0 then begin @@ -1441,17 +1441,17 @@ if FTabs.count>0 then for i := 0 to FTabs.count - 1 do if FTabs[i].Visible then begin - // Pobieramy appearance zakładki + // Pobieramy appearance zakÂładki if FTabs[i].OverrideAppearance then TabAppearance:=FTabs[i].CustomAppearance else TabAppearance:=FAppearance; FBuffer.Canvas.font.assign(TabAppearance.Tab.TabHeaderFont); TabWidth:=2 + // Ramka - 2*TAB_CORNER_RADIUS + // Zaokrąglenia - 2*TOOLBAR_TAB_CAPTIONS_TEXT_HPADDING + // Wewnętrzne marginesy + 2*TAB_CORNER_RADIUS + // ZaokrÂąglenia + 2*TOOLBAR_TAB_CAPTIONS_TEXT_HPADDING + // WewnĂŞtrzne marginesy max(TOOLBAR_MIN_TAB_CAPTION_WIDTH, - FBuffer.Canvas.TextWidth(FTabs.Items[i].Caption)); // Szerokość tekstu + FBuffer.Canvas.TextWidth(FTabs.Items[i].Caption)); // SzerokoϾ tekstu FTabRects[i].Left:=x; FTabRects[i].Right:=x + TabWidth - 1; @@ -1470,7 +1470,7 @@ if FTabs.count>0 then if FTabIndex<>-1 then begin - // Rect obszaru zakładki + // Rect obszaru zakÂładki FTabContentsClipRect:=T2DIntRect.Create(TOOLBAR_BORDER_WIDTH + TAB_PANE_LEFTPADDING, TOOLBAR_TAB_CAPTIONS_HEIGHT + TOOLBAR_BORDER_WIDTH + TAB_PANE_TOPPADDING, self.width - 1 - TOOLBAR_BORDER_WIDTH - TAB_PANE_RIGHTPADDING, diff --git a/components/spktoolbar/SpkToolbar/spkt_Appearance.pas b/components/spktoolbar/SpkToolbar/spkt_Appearance.pas index 3bb560dea..3d482d78d 100644 --- a/components/spktoolbar/SpkToolbar/spkt_Appearance.pas +++ b/components/spktoolbar/SpkToolbar/spkt_Appearance.pas @@ -3,9 +3,9 @@ unit spkt_Appearance; (******************************************************************************* * * * Plik: spkt_Appearance.pas * -* Opis: Klasy bazowe dla klas wyglądu elementów toolbara * -* Copyright: (c) 2009 by Spook. Jakiekolwiek użycie komponentu bez * -* uprzedniego uzyskania licencji od autora stanowi złamanie * +* Opis: Klasy bazowe dla klas wyglÂądu elementĂłw toolbara * +* Copyright: (c) 2009 by Spook. Jakiekolwiek uÂżycie komponentu bez * +* uprzedniego uzyskania licencji od autora stanowi zÂłamanie * * prawa autorskiego! * * * *******************************************************************************) @@ -35,7 +35,7 @@ type TSpkTabAppearance = class(TPersistent) procedure SetGradientType(const Value: TBackgroundKind); public // *** Konstruktor, destruktor, assign *** - // Appearance musi mieć assign, bo występuje jako własność + // Appearance musi mieæ assign, bo wystĂŞpuje jako wÂłasnoϾ // opublikowana. procedure Assign(Source : TPersistent); override; constructor Create(ADispatch : TSpkBaseAppearanceDispatch); @@ -229,7 +229,7 @@ begin if FDispatch<>nil then FDispatch.NotifyAppearanceChanged; end else - raise AssignException.create('TSpkToolbarAppearance.Assign: Nie mogę przypisać obiektu '+Source.ClassName+' do TSpkToolbarAppearance!'); + raise AssignException.create('TSpkToolbarAppearance.Assign: Nie mogĂŞ przypisaæ obiektu '+Source.ClassName+' do TSpkToolbarAppearance!'); end; constructor TSpkTabAppearance.Create( @@ -397,7 +397,7 @@ begin if FDispatch<>nil then FDispatch.NotifyAppearanceChanged; end else - raise AssignException.create('TSpkPaneAppearance.Assign: Nie mogę przypisać obiektu '+Source.ClassName+' do TSpkPaneAppearance!'); + raise AssignException.create('TSpkPaneAppearance.Assign: Nie mogĂŞ przypisaæ obiektu '+Source.ClassName+' do TSpkPaneAppearance!'); end; constructor TSpkPaneAppearance.Create(ADispatch: TSpkBaseAppearanceDispatch); @@ -610,7 +610,7 @@ begin if FDispatch<>nil then FDispatch.NotifyAppearanceChanged; end else - raise AssignException.create('TSpkElementAppearance.Assign: Nie mogę przypisać obiektu '+Source.ClassName+' do TSpkElementAppearance!'); + raise AssignException.create('TSpkElementAppearance.Assign: Nie mogĂŞ przypisaæ obiektu '+Source.ClassName+' do TSpkElementAppearance!'); end; constructor TSpkElementAppearance.Create(ADispatch: TSpkBaseAppearanceDispatch); @@ -1075,7 +1075,7 @@ begin if FDispatch<>nil then FDispatch.NotifyAppearanceChanged; end else - raise AssignException.create('TSpkToolbarAppearance.Assign: Nie mogę przypisać obiektu '+Source.ClassName+' do TSpkToolbarAppearance!'); + raise AssignException.create('TSpkToolbarAppearance.Assign: Nie mogĂŞ przypisaæ obiektu '+Source.ClassName+' do TSpkToolbarAppearance!'); end; constructor TSpkToolbarAppearance.Create(ADispatch : TSpkBaseAppearanceDispatch); diff --git a/components/spktoolbar/SpkToolbar/spkt_BaseItem.pas b/components/spktoolbar/SpkToolbar/spkt_BaseItem.pas index 7c165e3bf..5c8218c2d 100644 --- a/components/spktoolbar/SpkToolbar/spkt_BaseItem.pas +++ b/components/spktoolbar/SpkToolbar/spkt_BaseItem.pas @@ -3,9 +3,9 @@ unit spkt_BaseItem; (******************************************************************************* * * * Plik: spkt_BaseItem.pas * -* Opis: Moduł zawierający bazową klasę dla elementu tafli. * -* Copyright: (c) 2009 by Spook. Jakiekolwiek użycie komponentu bez * -* uprzedniego uzyskania licencji od autora stanowi złamanie * +* Opis: ModuÂł zawierajÂący bazowÂą klasĂŞ dla elementu tafli. * +* Copyright: (c) 2009 by Spook. Jakiekolwiek uÂżycie komponentu bez * +* uprzedniego uzyskania licencji od autora stanowi zÂłamanie * * prawa autorskiego! * * * *******************************************************************************) @@ -94,7 +94,7 @@ end; destructor TSpkBaseItem.Destroy; begin - { Pozostałe operacje } + { PozostaÂłe operacje } inherited Destroy; end; diff --git a/components/spktoolbar/SpkToolbar/spkt_Buttons.pas b/components/spktoolbar/SpkToolbar/spkt_Buttons.pas index 8ac9db474..adc60f962 100644 --- a/components/spktoolbar/SpkToolbar/spkt_Buttons.pas +++ b/components/spktoolbar/SpkToolbar/spkt_Buttons.pas @@ -3,9 +3,9 @@ unit spkt_Buttons; (******************************************************************************* * * * Plik: spkt_Buttons.pas * -* Opis: Moduł zawierający komponenty przycisków dla toolbara. * -* Copyright: (c) 2009 by Spook. Jakiekolwiek użycie komponentu bez * -* uprzedniego uzyskania licencji od autora stanowi złamanie * +* Opis: ModuÂł zawierajÂący komponenty przyciskĂłw dla toolbara. * +* Copyright: (c) 2009 by Spook. Jakiekolwiek uÂżycie komponentu bez * +* uprzedniego uzyskania licencji od autora stanowi zÂłamanie * * prawa autorskiego! * * * *******************************************************************************) @@ -60,15 +60,15 @@ type TSpkBaseButton = class; FButtonKind : TSpkButtonKind; FDropdownMenu : TPopupMenu; - // *** Obsługa rysowania *** + // *** ObsÂługa rysowania *** /// Zadaniem metody w odziedziczonych klasach jest obliczenie - /// rectów przycisku i menu dropdown w zależności od FButtonState + /// rectĂłw przycisku i menu dropdown w zaleÂżnoĹ“ci od FButtonState procedure CalcRects; virtual; abstract; function GetDropdownPoint : T2DIntPoint; virtual; abstract; - // *** Obsługa akcji *** + // *** ObsÂługa akcji *** procedure ActionChange(Sender : TObject); @@ -254,7 +254,7 @@ procedure TSpkBaseButton.MouseDown(Button: TMouseButton; Shift: TShiftState; X, begin if FEnabled then begin - // Przyciski reagują tylko na lewy przycisk myszy + // Przyciski reagujÂą tylko na lewy przycisk myszy if Button <> mbLeft then exit; @@ -324,11 +324,11 @@ if FEnabled then begin if FMouseHoverElement = beButton then begin - // Placeholder, gdyby zaszła potrzeba obsługi tego zdarzenia + // Placeholder, gdyby zaszÂła potrzeba obsÂługi tego zdarzenia end else if FMouseHoverElement = beDropdown then begin - // Placeholder, gdyby zaszła potrzeba obsługi tego zdarzenia + // Placeholder, gdyby zaszÂła potrzeba obsÂługi tego zdarzenia end; end; @@ -399,8 +399,8 @@ if FEnabled then end else if FMouseActiveElement = beNone then begin - // Z uwagi na uproszczoną obsługę myszy w przycisku, nie ma potrzeby - // informować poprzedniego elementu o tym, że mysz opuściła jego obszar. + // Z uwagi na uproszczonÂą obsÂługĂŞ myszy w przycisku, nie ma potrzeby + // informowaæ poprzedniego elementu o tym, Âże mysz opuĹ“ciÂła jego obszar. if NewMouseHoverElement = beButton then begin @@ -447,7 +447,7 @@ var ClearActive : boolean; begin if FEnabled then begin - // Przyciski reagują tylko na lewy przycisk myszy + // Przyciski reagujÂą tylko na lewy przycisk myszy if Button <> mbLeft then exit; @@ -455,7 +455,7 @@ if FEnabled then if FMouseActiveElement = beButton then begin - // Zdarzenie zadziała tylko wtedy, gdy przycisk myszy został puszczony nad + // Zdarzenie zadziaÂła tylko wtedy, gdy przycisk myszy zostaÂł puszczony nad // przyciskiem if FMouseHoverElement = beButton then begin @@ -476,7 +476,7 @@ if FEnabled then end else if FMouseActiveElement = beDropDown then begin - // Zdarzenie zadziała tylko wtedy, gdy przycisk myszy został puszczony nad + // Zdarzenie zadziaÂła tylko wtedy, gdy przycisk myszy zostaÂł puszczony nad // przyciskiem DropDown if FMouseHoverElement = beDropDown then @@ -491,8 +491,8 @@ if FEnabled then if (ClearActive) and (FMouseActiveElement<>FMouseHoverElement) then begin - // Z uwagi na uproszczoną obsługę, nie ma potrzeby informować poprzedniego - // elementu o tym, że mysz opuściła jego obszar. + // Z uwagi na uproszczonÂą obsÂługĂŞ, nie ma potrzeby informowaæ poprzedniego + // elementu o tym, Âże mysz opuĹ“ciÂła jego obszar. if FMouseHoverElement = beButton then begin @@ -585,9 +585,9 @@ begin inherited; if not(FEnabled) then begin - // Jeśli przycisk został wyłączony, zostaje natychmiast przełączony - // w stan Idle i zerowane są elementy aktywne i pod myszą. Jeśli został - // włączony, jego stan zmieni się podczas pierwszej akcji myszy. + // JeĹ“li przycisk zostaÂł wy³¹czony, zostaje natychmiast prze³¹czony + // w stan Idle i zerowane sÂą elementy aktywne i pod myszÂą. JeĹ“li zostaÂł + // w³¹czony, jego stan zmieni siĂŞ podczas pierwszej akcji myszy. FMouseHoverElement:=beNone; FMouseActiveElement:=beNone; @@ -660,22 +660,22 @@ if (FRect.width<2*LARGEBUTTON_RADIUS) or (FRect.Height<2*LARGEBUTTON_RADIUS) the if FButtonKind in [bkButton, bkDropdown] then begin {$REGION 'Tryb bez dodatkowego przycisku z rozwijanym menu'} - // *** Tło *** + // *** TÂło *** if not(FEnabled) then begin - {$REGION 'Tło dla disabled'} - // Brak tła + {$REGION 'TÂło dla disabled'} + // Brak tÂła {$ENDREGION} end else if FButtonState = bsIdle then begin - {$REGION 'Tło dla Idle'} - // Brak tła + {$REGION 'TÂło dla Idle'} + // Brak tÂła {$ENDREGION} end else if FButtonState = bsBtnHottrack then begin - {$REGION 'Tło dla HotTrack'} + {$REGION 'TÂło dla HotTrack'} TGuiTools.DrawRoundRect(ABuffer.Canvas, T2DIntRect.Create(FButtonRect.left, FButtonRect.Top, @@ -704,7 +704,7 @@ if FButtonKind in [bkButton, bkDropdown] then end else if FButtonState = bsBtnPressed then begin - {$REGION 'Tło dla Pressed'} + {$REGION 'TÂło dla Pressed'} TGuiTools.DrawRoundRect(ABuffer.Canvas, T2DIntRect.Create(FButtonRect.left, FButtonRect.Top, @@ -732,12 +732,12 @@ if FButtonKind in [bkButton, bkDropdown] then ClipRect); {$ENDREGION} end else - raise InternalException.create('TSpkLargeButton.Draw: Nieprawidłowa wartość FButtonState!'); + raise InternalException.create('TSpkLargeButton.Draw: NieprawidÂłowa wartoϾ FButtonState!'); // *** Ikona *** if not(FEnabled) then begin - {$REGION 'Ikona wyłączona'} + {$REGION 'Ikona wy³¹czona'} if (FLargeImageIndex>=0) and (FDisabledLargeImages<>nil) and (FLargeImageIndex=0) and (FLargeImages<>nil) and (FLargeImageIndex0 then begin - // Tekst złamany + // Tekst zÂłamany TextHeight:=ABuffer.Canvas.Textheight('Wy'); s:=copy(FCaption, 1, BreakPos-1); @@ -834,7 +834,7 @@ if FButtonKind in [bkButton, bkDropdown] then end else begin - // Tekst nie złamany + // Tekst nie zÂłamany TextHeight:=ABuffer.Canvas.Textheight('Wy'); x:=FButtonRect.Left + (FButtonRect.width - ABuffer.Canvas.Textwidth(FCaption)) div 2; @@ -844,7 +844,7 @@ if FButtonKind in [bkButton, bkDropdown] then if FButtonKind = bkDropdown then begin - // Chevron strzałki w dół + // Chevron strzaÂłki w dó³ if not(FEnabled) then begin @@ -883,27 +883,27 @@ if FButtonKind in [bkButton, bkDropdown] then else begin {$REGION 'Tryb z rozwijanym menu'} - // *** Tło *** + // *** TÂło *** if not(FEnabled) then begin - {$REGION 'Tło dla Disabled'} + {$REGION 'TÂło dla Disabled'} // {$ENDREGION} end else if FButtonState = bsIdle then begin - {$REGION 'Tło dla Idle'} + {$REGION 'TÂło dla Idle'} // {$ENDREGION} end else if (FButtonState = bsBtnHottrack) or (FButtonState = bsDropdownHottrack) or (FButtonState = bsBtnPressed) or (FButtonState = bsDropdownPressed) then begin - {$REGION 'Tło dla aktywnego'} + {$REGION 'TÂło dla aktywnego'} // *** Przycisk *** - {$REGION 'Ustalanie kolorów'} + {$REGION 'Ustalanie kolorĂłw'} if FButtonState = bsBtnHottrack then begin FrameColor:=FAppearance.Element.HotTrackFrameColor; @@ -930,7 +930,7 @@ else end; {$ENDREGION} - {$REGION 'Tło przycisku'} + {$REGION 'TÂło przycisku'} DrawRgn:=CreateRectRgn(FButtonRect.Left, FButtonRect.Top + LARGEBUTTON_RADIUS, FButtonRect.Right + 1, @@ -968,7 +968,7 @@ else {$ENDREGION} {$REGION 'Ramka przycisku'} - // Wewnętrzna ramka + // WewnĂŞtrzna ramka TGuiTools.DrawAARoundCorner(ABuffer, T2DIntPoint.Create(FButtonRect.Left + 1, FButtonRect.Top + 1), LARGEBUTTON_RADIUS, @@ -1014,7 +1014,7 @@ else InnerLightColor, ClipRect); - // Zewnętrzna ramka + // ZewnĂŞtrzna ramka TGuiTools.DrawAARoundCorner(ABuffer, T2DIntPoint.Create(FButtonRect.Left, FButtonRect.Top), LARGEBUTTON_RADIUS, @@ -1049,7 +1049,7 @@ else // *** Dropdown *** - {$REGION 'Ustalanie kolorów'} + {$REGION 'Ustalanie kolorĂłw'} if FButtonState = bsDropdownHottrack then begin FrameColor:=FAppearance.Element.HotTrackFrameColor; @@ -1079,7 +1079,7 @@ else end; {$ENDREGION} - {$REGION 'Tło dropdown'} + {$REGION 'TÂło dropdown'} DrawRgn:=CreateRectRgn(FDropdownRect.left, FDropdownRect.Top, FDropdownRect.Right + 1, @@ -1117,7 +1117,7 @@ else {$ENDREGION} {$REGION 'Ramka dropdown'} - // Wewnętrzna ramka + // WewnĂŞtrzna ramka TGuiTools.DrawAARoundCorner(ABuffer, T2DIntPoint.Create(FDropdownRect.Left + 1, FDropdownRect.Bottom - LARGEBUTTON_RADIUS), @@ -1164,7 +1164,7 @@ else ClipRect); - // Zewnętrzna ramka + // ZewnĂŞtrzna ramka TGuiTools.DrawAARoundCorner(ABuffer, T2DIntPoint.Create(FDropdownRect.Left, FDropdownRect.Bottom - LARGEBUTTON_RADIUS + 1), LARGEBUTTON_RADIUS, @@ -1197,12 +1197,12 @@ else {$ENDREGION} end else - raise InternalException.create('TSpkLargeButton.Draw: Nieprawidłowa wartość FButtonState!'); + raise InternalException.create('TSpkLargeButton.Draw: NieprawidÂłowa wartoϾ FButtonState!'); // *** Ikona *** if not(FEnabled) then begin - {$REGION 'Ikona wyłączona'} + {$REGION 'Ikona wy³¹czona'} if (FLargeImageIndex>=0) and (FDisabledLargeImages<>nil) and (FLargeImageIndex=0) and (FLargeImages<>nil) and (FLargeImageIndexnil then // *** Tekst *** if FButtonKind = bkButton then begin - // Łamiemy etykietę + // ÂŁamiemy etykietĂŞ FindBreakPlace(FCaption,BreakPos,RowWidth); TextWidth:=2 * LARGEBUTTON_CAPTION_HMARGIN + RowWidth; end else begin - // Nie łamiemy etykiety + // Nie Âłamiemy etykiety Bitmap.canvas.font.assign(FAppearance.Element.CaptionFont); TextWidth:=2 * LARGEBUTTON_CAPTION_HMARGIN + Bitmap.Canvas.TextWidth(FCaption); end; @@ -1470,7 +1470,7 @@ Bitmap:=FToolbarDispatch.GetTempBitmap; if not(assigned(Bitmap)) then exit; -// *** Niezależnie od rodzaju, musi być miejsce dla ikony i/lub tekstu *** +// *** NiezaleÂżnie od rodzaju, musi byæ miejsce dla ikony i/lub tekstu *** BtnWidth:=0; AdditionalPadding:=false; @@ -1492,22 +1492,22 @@ if FShowCaption then AdditionalPadding:=true; end; -// Padding za tekstem lub ikoną +// Padding za tekstem lub ikonÂą if AdditionalPadding then BtnWidth:=BtnWidth + SMALLBUTTON_PADDING; -// Szerokość zawartości przycisku musi wynosić co najmniej SMALLBUTTON_MIN_WIDTH +// SzerokoϾ zawartoĹ“ci przycisku musi wynosiæ co najmniej SMALLBUTTON_MIN_WIDTH BtnWidth:=max(SMALLBUTTON_MIN_WIDTH, BtnWidth); // *** Dropdown *** case FButtonKind of bkButton: begin - // Lewa krawędź przycisku + // Lewa krawĂŞdŸ przycisku if FGroupBehaviour in [gbContinuesGroup, gbEndsGroup] then BtnWidth:=BtnWidth + SMALLBUTTON_HALF_BORDER_WIDTH else BtnWidth:=BtnWidth + SMALLBUTTON_BORDER_WIDTH; - // Prawa krawędź przycisku + // Prawa krawĂŞdŸ przycisku if (FGroupBehaviour in [gbBeginsGroup, gbContinuesGroup]) then BtnWidth:=BtnWidth + SMALLBUTTON_HALF_BORDER_WIDTH else BtnWidth:=BtnWidth + SMALLBUTTON_BORDER_WIDTH; @@ -1516,18 +1516,18 @@ case FButtonKind of DropRect:=T2DIntRect.Create(0, 0, 0, 0); end; bkButtonDropdown: begin - // Lewa krawędź przycisku + // Lewa krawĂŞdŸ przycisku if FGroupBehaviour in [gbContinuesGroup, gbEndsGroup] then BtnWidth:=BtnWidth + SMALLBUTTON_HALF_BORDER_WIDTH else BtnWidth:=BtnWidth + SMALLBUTTON_BORDER_WIDTH; - // Prawa krawędź przycisku + // Prawa krawĂŞdŸ przycisku BtnWidth:=BtnWidth + SMALLBUTTON_HALF_BORDER_WIDTH; - // Lewa krawędź i zawartość pola dropdown + // Lewa krawĂŞdŸ i zawartoϾ pola dropdown DropdownWidth:=SMALLBUTTON_HALF_BORDER_WIDTH + SMALLBUTTON_DROPDOWN_WIDTH; - // Prawa krawędź pola dropdown + // Prawa krawĂŞdŸ pola dropdown if (FGroupBehaviour in [gbBeginsGroup, gbContinuesGroup]) then DropdownWidth:=DropdownWidth + SMALLBUTTON_HALF_BORDER_WIDTH else DropdownWidth:=DropdownWidth + SMALLBUTTON_BORDER_WIDTH; @@ -1539,18 +1539,18 @@ case FButtonKind of PANE_ROW_HEIGHT - 1); end; bkDropdown: begin - // Lewa krawędź przycisku + // Lewa krawĂŞdŸ przycisku if FGroupBehaviour in [gbContinuesGroup, gbEndsGroup] then BtnWidth:=BtnWidth + SMALLBUTTON_HALF_BORDER_WIDTH else BtnWidth:=BtnWidth + SMALLBUTTON_BORDER_WIDTH; - // Prawa krawędź przycisku + // Prawa krawĂŞdŸ przycisku if (FGroupBehaviour in [gbBeginsGroup, gbContinuesGroup]) then BtnWidth:=BtnWidth + SMALLBUTTON_HALF_BORDER_WIDTH else BtnWidth:=BtnWidth + SMALLBUTTON_BORDER_WIDTH; - // Dodatkowy obszar na dropdown + miejsce na środkową krawędź, - // dla kompatybilności wymiarów z dkButtonDropdown + // Dodatkowy obszar na dropdown + miejsce na Ĺ“rodkowÂą krawĂŞdŸ, + // dla kompatybilnoĹ“ci wymiarĂłw z dkButtonDropdown BtnWidth:=BtnWidth + SMALLBUTTON_BORDER_WIDTH + SMALLBUTTON_DROPDOWN_WIDTH; BtnRect:=T2DIntRect.Create(0, 0, BtnWidth - 1, PANE_ROW_HEIGHT - 1); @@ -1585,7 +1585,7 @@ if (FRect.width<2*LARGEBUTTON_RADIUS) or (FRect.Height<2*LARGEBUTTON_RADIUS) the // *** Przycisk *** -// Tło i ramka +// TÂło i ramka {$REGION 'Rysowanie przycisku'} if (FButtonState = bsIdle) and (not(FHideFrameWhenIdle)) then begin @@ -1664,7 +1664,7 @@ if (FButtonState in [bsDropdownHottrack, bsDropdownPressed]) then // Ikona if not(FEnabled) then begin - {$REGION 'Ikona wyłączona'} + {$REGION 'Ikona wy³¹czona'} if (FImageIndex>=0) and (FDisabledImages<>nil) and (FImageIndex=0) and (FImages<>nil) and (FImageIndexMaksymalna wysokość obszaru, który może zająć zawartość + /// Maksymalna wysokoϾ obszaru, ktĂłry moÂże zaj¹æ zawartoϾ /// tafli z elementami MAX_ELEMENT_HEIGHT = 67; - /// Wysokość pojedynczego wiersza elementów tafli + /// WysokoϾ pojedynczego wiersza elementĂłw tafli PANE_ROW_HEIGHT = 22; PANE_FULL_ROW_HEIGHT = 3 * PANE_ROW_HEIGHT; - /// Wewnętrzny pionowy margines pomiędzy pierwszym elementem a - /// taflą w przypadku wersji jednowierszowej + /// WewnĂŞtrzny pionowy margines pomiĂŞdzy pierwszym elementem a + /// taflÂą w przypadku wersji jednowierszowej PANE_ONE_ROW_TOPPADDING = 22; - /// Wewnętrzny pionowy margines pomiędzy ostatnim elementem - /// a taflą w przypadku wersji jednowierszowej + /// WewnĂŞtrzny pionowy margines pomiĂŞdzy ostatnim elementem + /// a taflÂą w przypadku wersji jednowierszowej PANE_ONE_ROW_BOTTOMPADDING = 23; - /// Odległość pomiędzy wierszami w przypadku wersji dwuwierszowej + /// OdlegÂłoϾ pomiĂŞdzy wierszami w przypadku wersji dwuwierszowej /// PANE_TWO_ROWS_VSPACER = 7; - /// Wewnętrzny pionowy margines pomiędzy pierwszym elementem a - /// taflą w przypadku wersji dwuwierszowej + /// WewnĂŞtrzny pionowy margines pomiĂŞdzy pierwszym elementem a + /// taflÂą w przypadku wersji dwuwierszowej PANE_TWO_ROWS_TOPPADDING = 8; - /// Wewnętrzny pionowy margines pomiędzy ostatnim elementem - /// a taflą w przypadku wersji dwuwierszowej + /// WewnĂŞtrzny pionowy margines pomiĂŞdzy ostatnim elementem + /// a taflÂą w przypadku wersji dwuwierszowej PANE_TWO_ROWS_BOTTOMPADDING = 8; - /// Odległość pomiędzy wierszami w przypadku wersji + /// OdlegÂłoϾ pomiĂŞdzy wierszami w przypadku wersji /// trzywierszowej PANE_THREE_ROWS_VSPACER = 0; - /// Wewnętrzny pionowy margines pomiędzy pierwszym elementem a - /// taflą w przypadku wersji trzywierszowej + /// WewnĂŞtrzny pionowy margines pomiĂŞdzy pierwszym elementem a + /// taflÂą w przypadku wersji trzywierszowej PANE_THREE_ROWS_TOPPADDING = 0; - /// Wewnętrzny pionowy margines pomiędzy ostatnim elementem - /// a taflą w przypadku wersji trzywierszowej + /// WewnĂŞtrzny pionowy margines pomiĂŞdzy ostatnim elementem + /// a taflÂą w przypadku wersji trzywierszowej PANE_THREE_ROWS_BOTTOMPADDING = 1; PANE_FULL_ROW_TOPPADDING = PANE_THREE_ROWS_TOPPADDING; PANE_FULL_ROW_BOTTOMPADDING = PANE_THREE_ROWS_BOTTOMPADDING; - /// Odległość pomiędzy lewą krawędzią a pierwszym elementem + /// OdlegÂłoϾ pomiĂŞdzy lewÂą krawĂŞdziÂą a pierwszym elementem /// tafli PANE_LEFT_PADDING = 2; - /// Odległość pomiędzy ostatnim elementem tafli a prawą krawędzią + /// OdlegÂłoϾ pomiĂŞdzy ostatnim elementem tafli a prawÂą krawĂŞdziÂą /// PANE_RIGHT_PADDING = 2; - /// Odległość pomiędzy dwoma kolumnami wewnątrz tafli + /// OdlegÂłoϾ pomiĂŞdzy dwoma kolumnami wewnÂątrz tafli PANE_COLUMN_SPACER = 4; - /// Odległość pomiędzy dwoma osobnymi grupami wewnętrz wiersza + /// OdlegÂłoϾ pomiĂŞdzy dwoma osobnymi grupami wewnĂŞtrz wiersza /// w tafli PANE_GROUP_SPACER = 4; @@ -97,47 +97,47 @@ const // **************** // *** Tafla *** // ************* - /// Wysokość obszaru tytułu tafli + /// WysokoϾ obszaru tytuÂłu tafli PANE_CAPTION_HEIGHT = 15; PANE_CORNER_RADIUS = 3; - /// Szerokość/wysokość ramki tafli - /// Nie należy zmieniać tej stałej! + /// SzerokoϾ/wysokoϾ ramki tafli + /// Nie naleÂży zmieniaæ tej staÂłej! PANE_BORDER_SIZE = 2; - /// Połowa szerokości ramki tafli - /// Nie należy zmieniać tej stałej! + /// PoÂłowa szerokoĹ“ci ramki tafli + /// Nie naleÂży zmieniaæ tej staÂłej! PANE_BORDER_HALF_SIZE = 1; - /// Wysokość całej tafli (uwzględniając ramkę) + /// WysokoϾ caÂłej tafli (uwzglĂŞdniajÂąc ramkĂŞ) PANE_HEIGHT = MAX_ELEMENT_HEIGHT + PANE_CAPTION_HEIGHT + 2 * PANE_BORDER_SIZE; - /// Poziomy margines etykiety zakładki + /// Poziomy margines etykiety zakÂładki PANE_CAPTION_HMARGIN = 6; // *********************** - // *** Obszar zakładki *** + // *** Obszar zakÂładki *** // *********************** - /// Promień zaokrąglenia zakładki + /// Promieñ zaokrÂąglenia zakÂładki TAB_CORNER_RADIUS = 4; - /// Lewy wewnętrzny margines zakładki + /// Lewy wewnĂŞtrzny margines zakÂładki TAB_PANE_LEFTPADDING = 2; - /// Prawy wewnętrzny margines zakładki + /// Prawy wewnĂŞtrzny margines zakÂładki TAB_PANE_RIGHTPADDING = 2; - /// Górny wewnętrzny margines zakładki + /// GĂłrny wewnĂŞtrzny margines zakÂładki TAB_PANE_TOPPADDING = 2; - /// Dolny wewnętrzny margines zakładki + /// Dolny wewnĂŞtrzny margines zakÂładki TAB_PANE_BOTTOMPADDING = 1; - /// Odległość pomiędzy taflami + /// OdlegÂłoϾ pomiĂŞdzy taflami TAB_PANE_HSPACING = 3; - /// Szerokość/wysokość ramki zakładki (nie należy zmieniać!) + /// SzerokoϾ/wysokoϾ ramki zakÂładki (nie naleÂży zmieniaæ!) /// TAB_BORDER_SIZE = 1; - /// Wysokość zakładki + /// WysokoϾ zakÂładki TAB_HEIGHT = PANE_HEIGHT + TAB_PANE_TOPPADDING + TAB_PANE_BOTTOMPADDING + TAB_BORDER_SIZE; // *************** @@ -148,14 +148,14 @@ const // **************** TOOLBAR_CORNER_RADIUS = 3; - /// Wysokość etykiet z nazwami zakładek + /// WysokoϾ etykiet z nazwami zakÂładek TOOLBAR_TAB_CAPTIONS_HEIGHT = 22; - /// Poziomy margines wewnętrznego tytułu zakładki + /// Poziomy margines wewnĂŞtrznego tytuÂłu zakÂładki TOOLBAR_TAB_CAPTIONS_TEXT_HPADDING = 4; TOOLBAR_MIN_TAB_CAPTION_WIDTH = 32; - /// Sumaryczna wysokość toolbara + /// Sumaryczna wysokoϾ toolbara TOOLBAR_HEIGHT = TOOLBAR_TAB_CAPTIONS_HEIGHT + TAB_HEIGHT; @@ -164,9 +164,9 @@ implementation initialization {$IFDEF DEBUG} -// Sprawdzanie poprawności +// Sprawdzanie poprawnoĹ“ci -// Łuk dużego przycisku +// ÂŁuk duÂżego przycisku assert(LARGEBUTTON_RADIUS * 2 <= LARGEBUTTON_DROPDOWN_FIELD_SIZE); // Tafla, wersja z jednym wierszem diff --git a/components/spktoolbar/SpkToolbar/spkt_Dispatch.pas b/components/spktoolbar/SpkToolbar/spkt_Dispatch.pas index a10bca7cc..59a113af0 100644 --- a/components/spktoolbar/SpkToolbar/spkt_Dispatch.pas +++ b/components/spktoolbar/SpkToolbar/spkt_Dispatch.pas @@ -3,10 +3,10 @@ unit spkt_Dispatch; (******************************************************************************* * * * Plik: spkt_Dispatch.pas * -* Opis: Bazowe klasy dyspozytorów pośredniczących pomiędzy elementami * +* Opis: Bazowe klasy dyspozytorĂłw poĹ“redniczÂących pomiĂŞdzy elementami * * toolbara. * -* Copyright: (c) 2009 by Spook. Jakiekolwiek użycie komponentu bez * -* uprzedniego uzyskania licencji od autora stanowi złamanie * +* Copyright: (c) 2009 by Spook. Jakiekolwiek uÂżycie komponentu bez * +* uprzedniego uzyskania licencji od autora stanowi zÂłamanie * * prawa autorskiego! * * * *******************************************************************************) diff --git a/components/spktoolbar/SpkToolbar/spkt_Exceptions.pas b/components/spktoolbar/SpkToolbar/spkt_Exceptions.pas index 853d684f6..e834d4bab 100644 --- a/components/spktoolbar/SpkToolbar/spkt_Exceptions.pas +++ b/components/spktoolbar/SpkToolbar/spkt_Exceptions.pas @@ -3,9 +3,9 @@ unit spkt_Exceptions; (******************************************************************************* * * * Plik: spkt_Exceptions.pas * -* Opis: Klasy wyjątków toolbara * -* Copyright: (c) 2009 by Spook. Jakiekolwiek użycie komponentu bez * -* uprzedniego uzyskania licencji od autora stanowi złamanie * +* Opis: Klasy wyjÂątkĂłw toolbara * +* Copyright: (c) 2009 by Spook. Jakiekolwiek uÂżycie komponentu bez * +* uprzedniego uzyskania licencji od autora stanowi zÂłamanie * * prawa autorskiego! * * * *******************************************************************************) diff --git a/components/spktoolbar/SpkToolbar/spkt_Items.pas b/components/spktoolbar/SpkToolbar/spkt_Items.pas index 916f8e16a..78169cfac 100644 --- a/components/spktoolbar/SpkToolbar/spkt_Items.pas +++ b/components/spktoolbar/SpkToolbar/spkt_Items.pas @@ -3,9 +3,9 @@ unit spkt_Items; (******************************************************************************* * * * Plik: spkt_Items.pas * -* Opis: Moduł zawiera klasę kolekcji elementów tafli. * -* Copyright: (c) 2009 by Spook. Jakiekolwiek użycie komponentu bez * -* uprzedniego uzyskania licencji od autora stanowi złamanie * +* Opis: ModuÂł zawiera klasĂŞ kolekcji elementĂłw tafli. * +* Copyright: (c) 2009 by Spook. Jakiekolwiek uÂżycie komponentu bez * +* uprzedniego uzyskania licencji od autora stanowi zÂłamanie * * prawa autorskiego! * * * *******************************************************************************) @@ -151,8 +151,8 @@ begin case Operation of opInsert: begin - // Ustawienie dyspozytora na nil spowoduje, że podczas - // przypisywania własności nie będą wołane metody Notify* + // Ustawienie dyspozytora na nil spowoduje, Âże podczas + // przypisywania wÂłasnoĹ“ci nie bĂŞdÂą woÂłane metody Notify* TSpkBaseItem(Item).ToolbarDispatch:=nil; TSpkBaseItem(Item).Appearance:=FAppearance; diff --git a/components/spktoolbar/SpkToolbar/spkt_Pane.pas b/components/spktoolbar/SpkToolbar/spkt_Pane.pas index 1b6f64fdd..4e395f0f1 100644 --- a/components/spktoolbar/SpkToolbar/spkt_Pane.pas +++ b/components/spktoolbar/SpkToolbar/spkt_Pane.pas @@ -4,8 +4,8 @@ unit spkt_Pane; * * * Plik: spkt_Pane.pas * * Opis: Komponent tafli toolbara * -* Copyright: (c) 2009 by Spook. Jakiekolwiek użycie komponentu bez * -* uprzedniego uzyskania licencji od autora stanowi złamanie * +* Copyright: (c) 2009 by Spook. Jakiekolwiek uÂżycie komponentu bez * +* uprzedniego uzyskania licencji od autora stanowi zÂłamanie * * prawa autorskiego! * * * *******************************************************************************) @@ -52,10 +52,10 @@ type TSpkPane = class; FVisible : boolean; FItems : TSpkItems; - // *** Generowanie layoutu elementów *** + // *** Generowanie layoutu elementĂłw *** function GenerateLayout: TSpkPaneItemsLayout; - // *** Obsługa designtime i DFM *** + // *** ObsÂługa designtime i DFM *** procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override; procedure DefineProperties(Filer : TFiler); override; procedure Loaded; override; @@ -75,7 +75,7 @@ type TSpkPane = class; constructor Create(AOwner : TComponent); override; destructor Destroy; override; - // *** Obsługa gryzonia *** + // *** ObsÂługa gryzonia *** procedure MouseLeave; procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); @@ -88,7 +88,7 @@ type TSpkPane = class; procedure Draw(ABuffer : TBitmap; ClipRect : T2DIntRect); function FindItemAt(x, y: integer): integer; - // *** Obsługa elementów *** + // *** ObsÂługa elementĂłw *** procedure FreeingItem(AItem : TSpkBaseItem); property ToolbarDispatch : TSpkBaseToolbarDispatch read FToolbarDispatch write SetToolbarDispatch; @@ -127,7 +127,7 @@ type TSpkPanes = class(TSpkCollection) constructor Create(RootComponent : TComponent); override; destructor Destroy; override; - // *** Dodawanie i wstawianie elementów *** + // *** Dodawanie i wstawianie elementĂłw *** function Add : TSpkPane; function Insert(index : integer) : TSpkPane; @@ -225,7 +225,7 @@ var x: Integer; i: Integer; begin -// W niektórych warunkach nie jesteśmy w stanie rysować: +// W niektĂłrych warunkach nie jesteĹ“my w stanie rysowaæ: // * Brak dyspozytora if FToolbarDispatch=nil then exit; @@ -253,7 +253,7 @@ if FPaneState = psIdle then BorderDarkColor:=TColorTools.Brighten(FAppearance.Pane.BorderDarkColor,20); end; -// Tło +// TÂło TGuiTools.DrawRoundRect(ABuffer.Canvas, T2DIntRect.Create(FRect.left, FRect.top, @@ -265,7 +265,7 @@ TGuiTools.DrawRoundRect(ABuffer.Canvas, FAppearance.Pane.GradientType, ClipRect); -// Tło etykiety tafli +// TÂło etykiety tafli TGuiTools.DrawRoundRect(ABuffer.Canvas, T2DIntRect.Create(FRect.Left, FRect.Bottom - PANE_CAPTION_HEIGHT - PANE_BORDER_HALF_SIZE, @@ -373,8 +373,8 @@ result.Width:=0; if FItems.count=0 then exit; -// Notatka: algorytm jest skonstruowany w ten sposób, że trójka: CurrentColumn, -// CurrentRow oraz CurrentItem wskazuje na element, którego jeszcze nie +// Notatka: algorytm jest skonstruowany w ten sposĂłb, Âże trĂłjka: CurrentColumn, +// CurrentRow oraz CurrentItem wskazuje na element, ktĂłrego jeszcze nie // ma (zaraz za ostatnio dodanym elementem). setlength(Layout,1); @@ -393,14 +393,14 @@ for i := 0 to FItems.count - 1 do ItemTableBehaviour := FItems[i].GetTableBehaviour; ItemSize := FItems[i].GetSize; - // Rozpoczęcie nowej kolumny? + // RozpoczĂŞcie nowej kolumny? if (i=0) or (ItemSize = isLarge) or (ItemTableBehaviour = tbBeginsColumn) or ((ItemTableBehaviour = tbBeginsRow) and (CurrentRow = 2)) or (ForceNewColumn) then begin - // Jeśli już jesteśmy na początku nowej kolumny, nie ma nic do roboty. + // JeĹ“li juÂż jesteĹ“my na poczÂątku nowej kolumny, nie ma nic do roboty. if (CurrentRow<>0) or (CurrentItem<>0) then begin setlength(Layout, length(Layout)+1); @@ -413,10 +413,10 @@ for i := 0 to FItems.count - 1 do CurrentItem:=0; end; end else - // Rozpoczęcie nowego wiersza? + // RozpoczĂŞcie nowego wiersza? if (ItemTableBehaviour = tbBeginsRow) then begin - // Jeśli już jesteśmy na początku nowego wiersza, nie ma nic do roboty. + // JeĹ“li juÂż jesteĹ“my na poczÂątku nowego wiersza, nie ma nic do roboty. if CurrentItem <> 0 then begin setlength(Layout[CurrentColumn], length(Layout[CurrentColumn])+1); @@ -427,7 +427,7 @@ for i := 0 to FItems.count - 1 do ForceNewColumn:=ItemSize = isLarge; - // Jeśli element jest widoczny, dodajemy go w aktualnej kolumnie i aktualnym + // JeĹ“li element jest widoczny, dodajemy go w aktualnej kolumnie i aktualnym // wierszu. if FItems[i].Visible then begin @@ -438,17 +438,17 @@ for i := 0 to FItems.count - 1 do end; end; -// W tym miejscu mamy gotowy layout. Teraz trzeba obliczyć pozycje i rozmiary -// Rectów. +// W tym miejscu mamy gotowy layout. Teraz trzeba obliczyæ pozycje i rozmiary +// RectĂłw. -// Najpierw wypełniamy je pustymi danymi, które zapełnią miejsce elementów +// Najpierw wypeÂłniamy je pustymi danymi, ktĂłre zapeÂłniÂą miejsce elementĂłw // niewidocznych. for i := 0 to FItems.count - 1 do result.Rects[i]:=T2DIntRect.create(-1, -1, -1, -1); MaxRowX:=0; -// Teraz iterujemy po layoucie, ustalając recty. +// Teraz iterujemy po layoucie, ustalajÂąc recty. if length(Layout)>0 then for c := 0 to high(Layout) do begin @@ -497,8 +497,8 @@ if length(Layout)>0 then end else begin - // Jeśli element nie jest pierwszy, musi zostać - // odsunięty marginesem od poprzedniego + // JeĹ“li element nie jest pierwszy, musi zostaæ + // odsuniĂŞty marginesem od poprzedniego if i>0 then tmpRect.Left:=LastX + PANE_GROUP_SPACER else tmpRect.Left:=LastX; @@ -551,8 +551,8 @@ if length(Layout)>0 then end; end; end; -// W tym miejscu MaxRowX wskazuje na pierwszy piksel za najbardziej wysuniętym -// w prawo elementem - ergo jest równy szerokości całego layoutu. +// W tym miejscu MaxRowX wskazuje na pierwszy piksel za najbardziej wysuniĂŞtym +// w prawo elementem - ergo jest rĂłwny szerokoĹ“ci caÂłego layoutu. Result.Width:=MaxRowX; end; @@ -588,18 +588,18 @@ if tmpBitmap=nil then exit; tmpBitmap.Canvas.font.assign(FAppearance.Pane.CaptionFont); -// *** Minimalna szerokość tafli (tekstu) *** +// *** Minimalna szerokoϾ tafli (tekstu) *** TextW:=tmpBitmap.Canvas.TextWidth(FCaption); PaneCaptionWidth:=2*PANE_BORDER_SIZE + 2*PANE_CAPTION_HMARGIN + TextW; -// *** Szerokość elementów tafli *** +// *** SzerokoϾ elementĂłw tafli *** Layout:=GenerateLayout; ElementsW:=Layout.Width; PaneElementsWidth:=PANE_BORDER_SIZE + PANE_LEFT_PADDING + ElementsW + PANE_RIGHT_PADDING + PANE_BORDER_SIZE; -// *** Ustawianie szerokości tafli *** +// *** Ustawianie szerokoĹ“ci tafli *** result:=max(PaneCaptionWidth, PaneElementsWidth); end; @@ -644,7 +644,7 @@ if FMouseActiveElement.ElementType = peNone then FMouseActiveElement.ElementType:=pePaneArea; FMouseActiveElement.ElementIndex:=-1; - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia. + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia. end; end; end; @@ -660,15 +660,15 @@ if FMouseActiveElement.ElementType = peNone then end else if FMouseHoverElement.ElementType = pePaneArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia. + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia. end; end; FMouseHoverElement.ElementType:=peNone; FMouseHoverElement.ElementIndex:=-1; -// Niezależnie od tego, który element był aktywny / pod myszą, trzeba -// wygasić HotTrack. +// NiezaleÂżnie od tego, ktĂłry element byÂł aktywny / pod myszÂą, trzeba +// wygasiæ HotTrack. if FPaneState<>psIdle then begin FPaneState:=psIdle; @@ -683,9 +683,9 @@ var i : integer; NewMouseHoverElement : TSpkMousePaneElement; begin -// MouseMove jest wywoływany tylko, gdy tafla jest aktywna, bądź gdy -// mysz rusza się wewnątrz jej obszaru. Wobec tego zawsze należy -// w tej sytuacji zapalić HotTrack. +// MouseMove jest wywoÂływany tylko, gdy tafla jest aktywna, bÂądŸ gdy +// mysz rusza siĂŞ wewnÂątrz jej obszaru. Wobec tego zawsze naleÂży +// w tej sytuacji zapaliæ HotTrack. if FPaneState = psIdle then begin @@ -694,7 +694,7 @@ if FPaneState = psIdle then FToolbarDispatch.NotifyVisualsChanged; end; -// Szukamy obiektu pod myszą +// Szukamy obiektu pod myszÂą i:=FindItemAt(x, y); if i<>-1 then begin @@ -719,12 +719,12 @@ if FMouseActiveElement.ElementType = peItem then end else if FMouseActiveElement.ElementType = pePaneArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia end else if FMouseActiveElement.ElementType = peNone then begin - // Jeśli element pod myszą się zmienia, informujemy poprzedni element o - // tym, że mysz opuszcza jego obszar + // JeĹ“li element pod myszÂą siĂŞ zmienia, informujemy poprzedni element o + // tym, Âże mysz opuszcza jego obszar if (NewMouseHoverElement.ElementType<>FMouseHoverElement.ELementType) or (NewMouseHoverElement.ElementIndex<>FMouseHoverElement.ElementIndex) then begin @@ -735,7 +735,7 @@ if FMouseActiveElement.ElementType = peNone then end else if FMouseHoverElement.ElementType = pePaneArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia end; end; @@ -746,7 +746,7 @@ if FMouseActiveElement.ElementType = peNone then end else if NewMouseHoverElement.ElementType = pePaneArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia end; end; @@ -768,7 +768,7 @@ if FMouseActiveElement.ElementType = peItem then end else if FMouseActiveElement.ElementType = pePaneArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia. + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia. end; if ClearActive and @@ -782,7 +782,7 @@ if ClearActive and end else if FMouseActiveElement.ElementType = pePaneArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia. + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia. end; if FMouseHoverElement.ElementType = peItem then @@ -792,7 +792,7 @@ if ClearActive and end else if FMouseHoverElement.ElementType = pePaneArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia. + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia. end else if FMouseHoverElement.ElementType = peNone then begin @@ -919,7 +919,7 @@ var Owner, Parent : TComponent; begin if (index<0) or (index>self.Count) then - raise InternalException.create('TSpkPanes.Insert: Nieprawidłowy indeks!'); + raise InternalException.create('TSpkPanes.Insert: NieprawidÂłowy indeks!'); if FRootComponent<>nil then begin @@ -954,8 +954,8 @@ begin case Operation of opInsert: begin - // Ustawienie dyspozytora na nil spowoduje, że podczas - // przypisywania własności nie będą wołane metody Notify* + // Ustawienie dyspozytora na nil spowoduje, Âże podczas + // przypisywania wÂłasnoĹ“ci nie bĂŞdÂą woÂłane metody Notify* TSpkPane(Item).ToolbarDispatch:=nil; TSpkPane(Item).Appearance:=FAppearance; diff --git a/components/spktoolbar/SpkToolbar/spkt_Tab.pas b/components/spktoolbar/SpkToolbar/spkt_Tab.pas index b39dd1475..bc51e4e8b 100644 --- a/components/spktoolbar/SpkToolbar/spkt_Tab.pas +++ b/components/spktoolbar/SpkToolbar/spkt_Tab.pas @@ -3,9 +3,9 @@ unit spkt_Tab; (******************************************************************************* * * * Plik: spkt_Tab.pas * -* Opis: Komponent zakładki toolbara * -* Copyright: (c) 2009 by Spook. Jakiekolwiek użycie komponentu bez * -* uprzedniego uzyskania licencji od autora stanowi złamanie * +* Opis: Komponent zakÂładki toolbara * +* Copyright: (c) 2009 by Spook. Jakiekolwiek uÂżycie komponentu bez * +* uprzedniego uzyskania licencji od autora stanowi zÂłamanie * * prawa autorskiego! * * * *******************************************************************************) @@ -66,7 +66,7 @@ type TSpkTab = class; // *** Wyszukiwanie tafli *** function FindPaneAt(x, y : integer) : integer; - // *** Obsługa designtime i DFM *** + // *** ObsÂługa designtime i DFM *** procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override; procedure DefineProperties(Filer : TFiler); override; procedure Loaded; override; @@ -88,11 +88,11 @@ type TSpkTab = class; constructor Create(AOwner : TComponent); override; destructor Destroy; override; - // *** Geometria, obsługa tafli, rysowanie *** + // *** Geometria, obsÂługa tafli, rysowanie *** function AtLeastOnePaneVisible: boolean; procedure Draw(ABuffer : TBitmap; AClipRect : T2DIntRect); - // *** Obsługa gryzonia *** + // *** ObsÂługa gryzonia *** procedure MouseLeave; procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); @@ -100,10 +100,10 @@ type TSpkTab = class; procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); - // *** Obsługa zdarzeń dyspozytora *** + // *** ObsÂługa zdarzeñ dyspozytora *** procedure NotifyAppearanceChanged; - // *** Obsługa elementów *** + // *** ObsÂługa elementĂłw *** procedure FreeingPane(APane : TSpkPane); property ToolbarDispatch : TSpkBaseToolbarDispatch read FToolbarDispatch write SetToolbarDispatch; @@ -350,7 +350,7 @@ if FMouseActiveElement.ElementType = etPane then end else if FMouseActiveElement.ElementType = etTabArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia. + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia. end else if FMouseActiveElement.ElementType = etNone then begin @@ -374,7 +374,7 @@ if FMouseActiveElement.ElementType = etNone then FMouseActiveElement.ElementType:=etTabArea; FMouseActiveElement.ElementIndex:=-1; - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia. + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia. end; end; end; @@ -390,7 +390,7 @@ if FMouseActiveElement.ElementType = etNone then end else if FMouseHoverElement.ElementType = etTabArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia. + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia. end; end; @@ -404,7 +404,7 @@ var i : integer; NewMouseHoverElement : TSpkMouseTabElement; begin -// Szukamy obiektu pod myszą +// Szukamy obiektu pod myszÂą i:=FindPaneAt(x, y); if i<>-1 then begin @@ -431,12 +431,12 @@ if FMouseActiveElement.ElementType = etPane then end else if FMouseActiveElement.ElementType = etTabArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia end else if FMouseActiveElement.ElementType = etNone then begin - // Jeśli element pod myszą się zmienia, informujemy poprzedni element o - // tym, że mysz opuszcza jego obszar + // JeĹ“li element pod myszÂą siĂŞ zmienia, informujemy poprzedni element o + // tym, Âże mysz opuszcza jego obszar if (NewMouseHoverElement.ElementType<>FMouseHoverElement.ElementType) or (NewMouseHoverElement.ElementIndex<>FMouseHoverElement.ElementIndex) then begin @@ -447,7 +447,7 @@ if FMouseActiveElement.ElementType = etNone then end else if FMouseHoverElement.ElementType = etTabArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia end; end; @@ -458,7 +458,7 @@ if FMouseActiveElement.ElementType = etNone then end else if NewMouseHoverElement.ElementType = etTabArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia end; end; @@ -480,7 +480,7 @@ if FMouseActiveElement.ElementType = etPane then end else if FMouseActiveElement.ElementType = etTabArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia. + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia. end; if ClearActive and @@ -494,7 +494,7 @@ if ClearActive and end else if FMouseActiveElement.ElementType = etTabArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia. + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia. end; if FMouseHoverElement.ElementType = etPane then @@ -504,7 +504,7 @@ if ClearActive and end else if FMouseHoverElement.ElementType = etTabArea then begin - // Placeholder, jeśli zajdzie potrzeba obsługi tego zdarzenia. + // Placeholder, jeĹ“li zajdzie potrzeba obsÂługi tego zdarzenia. end; end; @@ -583,7 +583,7 @@ if FOverrideAppearance then FPanes.Appearance:=FCustomAppearance else FPanes.Appearance:=FAppearance; -// Metoda pełni rolę makra - dlatego nie powiadamia dyspozytora o zmianie. +// Metoda peÂłni rolĂŞ makra - dlatego nie powiadamia dyspozytora o zmianie. end; procedure TSpkTab.SetVisible(const Value: boolean); @@ -655,7 +655,7 @@ var Owner, Parent : TComponent; begin if (index<0) or (index>=self.Count) then - raise InternalException.create('TSpkTabs.Insert: Nieprawidłowy indeks!'); + raise InternalException.create('TSpkTabs.Insert: NieprawidÂłowy indeks!'); if FRootComponent<>nil then begin @@ -689,8 +689,8 @@ begin case Operation of opInsert: begin - // Ustawienie dyspozytora na nil spowoduje, że podczas - // przypisywania własności nie będą wołane metody Notify* + // Ustawienie dyspozytora na nil spowoduje, Âże podczas + // przypisywania wÂłasnoĹ“ci nie bĂŞdÂą woÂłane metody Notify* TSpkTab(Item).ToolbarDispatch:=nil; TSpkTab(Item).Appearance:=self.FAppearance; diff --git a/components/spktoolbar/SpkToolbar/spkt_Tools.pas b/components/spktoolbar/SpkToolbar/spkt_Tools.pas index 32c2af52d..2285a568f 100644 --- a/components/spktoolbar/SpkToolbar/spkt_Tools.pas +++ b/components/spktoolbar/SpkToolbar/spkt_Tools.pas @@ -3,9 +3,9 @@ unit spkt_Tools; (******************************************************************************* * * * Plik: spkt_Tools.pas * -* Opis: Klasy narzędziowe ułatwiające renderowanie toolbara. * -* Copyright: (c) 2009 by Spook. Jakiekolwiek użycie komponentu bez * -* uprzedniego uzyskania licencji od autora stanowi złamanie * +* Opis: Klasy narzĂŞdziowe uÂłatwiajÂące renderowanie toolbara. * +* Copyright: (c) 2009 by Spook. Jakiekolwiek uÂżycie komponentu bez * +* uprzedniego uzyskania licencji od autora stanowi zÂłamanie * * prawa autorskiego! * * * *******************************************************************************) @@ -70,14 +70,14 @@ TGuiTools.DrawRoundRect(Bitmap.Canvas, not(LeftEdgeOpen or BottomEdgeOpen), not(RightEdgeOpen or BottomEdgeOpen)); -// Wewnętrzna krawędź -// *** Góra *** +// WewnĂŞtrzna krawĂŞdŸ +// *** GĂłra *** x1:=Rect.Left + radius * TopClosed * LeftClosed + LeftClosed; x2:=Rect.Right - radius * TopClosed * RightClosed - RightClosed; y1:=Rect.Top + TopClosed; TGuiTools.DrawHLine(Bitmap, x1, x2, y1, InnerLightColor, ClipRect); -// *** Dół *** +// *** Dó³ *** x1:=Rect.Left + radius * BottomClosed * LeftClosed + LeftClosed; x2:=Rect.Right - radius * BottomClosed * RightClosed - RightClosed; y1:=Rect.Bottom - BottomClosed; @@ -99,7 +99,7 @@ if RightEdgeOpen then TGuiTools.DrawVLine(Bitmap, x1, y1, y2, InnerDarkColor, ClipRect) else TGuiTools.DrawVLine(Bitmap, x1, y1, y2, InnerLightColor, ClipRect); -// Zaokrąglone narożniki +// ZaokrÂąglone naroÂżniki if not(LeftEdgeOpen or TopEdgeOpen) then TGuiTools.DrawAARoundCorner(Bitmap, T2DIntPoint.create(Rect.left + 1, Rect.Top + 1), @@ -129,8 +129,8 @@ if not(RightEdgeOpen or BottomEdgeOpen) then InnerLightColor, ClipRect); -// Zewnętrzna krawędź -// Zaokrąglone narożniki +// ZewnĂŞtrzna krawĂŞdŸ +// ZaokrÂąglone naroÂżniki if not(TopEdgeOpen) then begin x1:=Rect.Left + Radius * LeftClosed; diff --git a/components/spktoolbar/SpkToolbar/spkt_Types.pas b/components/spktoolbar/SpkToolbar/spkt_Types.pas index 6b9d45978..1c1a95443 100644 --- a/components/spktoolbar/SpkToolbar/spkt_Types.pas +++ b/components/spktoolbar/SpkToolbar/spkt_Types.pas @@ -3,9 +3,9 @@ unit spkt_Types; (******************************************************************************* * * * Plik: spkt_Types.pas * -* Opis: Definicje typów używanych podczas pracy toolbara * -* Copyright: (c) 2009 by Spook. Jakiekolwiek użycie komponentu bez * -* uprzedniego uzyskania licencji od autora stanowi złamanie * +* Opis: Definicje typĂłw uÂżywanych podczas pracy toolbara * +* Copyright: (c) 2009 by Spook. Jakiekolwiek uÂżycie komponentu bez * +* uprzedniego uzyskania licencji od autora stanowi zÂłamanie * * prawa autorskiego! * * * *******************************************************************************) @@ -29,7 +29,7 @@ type TSpkComponent = class(TComponent) // *** Konstruktor *** constructor Create(AOwner : TComponent); override; - // *** Obsługa parenta *** + // *** ObsÂługa parenta *** function HasParent : boolean; override; function GetParentComponent : TComponent; override; procedure SetParentComponent(Value : TComponent); override; @@ -45,11 +45,11 @@ type TSpkCollection = class(TPersistent) FListState : TSpkListState; FRootComponent : TComponent; - // *** Metody reakcji na zmiany w liście *** + // *** Metody reakcji na zmiany w liĹ“cie *** procedure Notify(Item : TComponent; Operation : TOperation); virtual; procedure Update; virtual; - // *** Wewnętrzne metody dodawania i wstawiania elementów *** + // *** WewnĂŞtrzne metody dodawania i wstawiania elementĂłw *** procedure AddItem(AItem : TComponent); procedure InsertItem(index : integer; AItem : TComponent); @@ -60,7 +60,7 @@ type TSpkCollection = class(TPersistent) constructor Create(RootComponent : TComponent); reintroduce; virtual; destructor Destroy; override; - // *** Obsługa listy *** + // *** ObsÂługa listy *** procedure Clear; function Count : integer; procedure Delete(index : integer); virtual; @@ -70,7 +70,7 @@ type TSpkCollection = class(TPersistent) procedure Exchange(item1, item2 : integer); procedure Move(IndexFrom, IndexTo : integer); - // *** Reader, writer i obsługa designtime i DFM *** + // *** Reader, writer i obsÂługa designtime i DFM *** procedure WriteNames(Writer : TWriter); virtual; procedure ReadNames(Reader : TReader); virtual; procedure ProcessNames(Owner : TComponent); virtual; @@ -85,8 +85,8 @@ implementation procedure TSpkCollection.AddItem(AItem: TComponent); begin -// Ta metoda może być wywoływana bez przetworzenia nazw (w szczególności, metoda -// przetwarzająca nazwy korzysta z AddItem) +// Ta metoda moÂże byæ wywoÂływana bez przetworzenia nazw (w szczegĂłlnoĹ“ci, metoda +// przetwarzajÂąca nazwy korzysta z AddItem) Notify(AItem, opInsert); FList.Add(AItem); @@ -122,7 +122,7 @@ end; procedure TSpkCollection.Delete(index: integer); begin if (index<0) or (index>=FList.count) then - raise InternalException.Create('TSpkCollection.Delete: Nieprawidłowy indeks!'); + raise InternalException.Create('TSpkCollection.Delete: NieprawidÂłowy indeks!'); Notify(TComponent(FList[index]), opRemove); @@ -147,7 +147,7 @@ end; function TSpkCollection.GetItems(index: integer): TComponent; begin if (index<0) or (index>=FList.Count) then - raise InternalException.create('TSpkCollection.GetItems: Nieprawidłowy indeks!'); + raise InternalException.create('TSpkCollection.GetItems: NieprawidÂłowy indeks!'); result:=TComponent(FList[index]); end; @@ -160,7 +160,7 @@ end; procedure TSpkCollection.InsertItem(index: integer; AItem: TComponent); begin if (index<0) or (index>FList.Count) then - raise InternalException.Create('TSpkCollection.Insert: Nieprawidłowy indeks!'); + raise InternalException.Create('TSpkCollection.Insert: NieprawidÂłowy indeks!'); Notify(AItem, opInsert); @@ -173,7 +173,7 @@ procedure TSpkCollection.Move(IndexFrom, IndexTo: integer); begin if (indexFrom<0) or (indexFrom>=FList.Count) or (indexTo<0) or (indexTo>=FList.Count) then - raise InternalException.Create('TSpkCollection.Move: Nieprawidłowy indeks!'); + raise InternalException.Create('TSpkCollection.Move: NieprawidÂłowy indeks!'); FList.Move(IndexFrom, IndexTo);