[GExperts-Checkins] SF.net SVN: gexperts:[3669] trunk/ExternalSource/dzlib

[<tw...@us...>]

Revision: 3669
          http://sourceforge.net/p/gexperts/code/3669
Author:   twm
Date:     2021-10-20 08:41:49 +0000 (Wed, 20 Oct 2021)
Log Message:
-----------
updated to latest version from OSDN

Modified Paths:
--------------
    trunk/ExternalSource/dzlib/u_dzGraphicsUtils.pas
    trunk/ExternalSource/dzlib/u_dzVclUtils.pas

Modified: trunk/ExternalSource/dzlib/u_dzGraphicsUtils.pas
===================================================================
--- trunk/ExternalSource/dzlib/u_dzGraphicsUtils.pas	2021-10-17 16:28:50 UTC (rev 3668)
+++ trunk/ExternalSource/dzlib/u_dzGraphicsUtils.pas	2021-10-20 08:41:49 UTC (rev 3669)
@@ -128,6 +128,7 @@
 {$IFDEF SUPPORTS_INLINE}
 inline;
 {$ENDIF}
+
 procedure TdzRgbTriple_SetColor(var _Triple: TdzRgbTriple; _Color: TColor);
 {$IFDEF SUPPORTS_INLINE}
 inline;
@@ -449,6 +450,14 @@
 {$ENDIF}
 
 ///<summary>
+/// Create an empty Mono8 TBitmap </summary>
+function TBitmap_CreateMono8: TBitmap;
+{$IFDEF SUPPORTS_INLINE}
+inline;
+{$ENDIF}
+
+
+///<summary>
 /// Calculates the positive y coordinate for the given x coordinate for an ellipse
 /// with horizontal and vertical axes, centered on the coordinate origin (0/0).
 /// @param a, b are horizontal and vertical radius values
@@ -1720,6 +1729,13 @@
   _bmp.Palette := MakeGrayPalette();
 end;
 
+function TBitmap_CreateMono8: TBitmap;
+begin
+  Result := TBitmap.Create;
+  Result.PixelFormat := pf8bit;
+  Result.Palette := MakeGrayPalette();
+end;
+
 // original source: http://www.delphigeist.com/2009/09/blur-bitmap-algorithm.html
 // but heavily modified
 

Modified: trunk/ExternalSource/dzlib/u_dzVclUtils.pas
===================================================================
--- trunk/ExternalSource/dzlib/u_dzVclUtils.pas	2021-10-17 16:28:50 UTC (rev 3668)
+++ trunk/ExternalSource/dzlib/u_dzVclUtils.pas	2021-10-20 08:41:49 UTC (rev 3669)
@@ -1919,7 +1919,7 @@
   AssignFile(t, _Filename);
   Rewrite(t);
   try
-    write(t, s);
+    Write(t, s);
   finally
     CloseFile(t);
   end;
@@ -4152,7 +4152,7 @@
 
 procedure TControl_SetHint(_Ctrl: TControl; const _Hint: string);
 begin
-  _Ctrl.hint := _Hint;
+  _Ctrl.Hint := _Hint;
   _Ctrl.ShowHint := True;
 end;
 
@@ -5799,12 +5799,12 @@
 begin
   inherited Create;
   FCtrl := _Ctrl;
-  SendMessage(FCtrl.Handle, WM_SETREDRAW, wParam(LongBool(False)), 0);
+  SendMessage(FCtrl.Handle, WM_SETREDRAW, WPARAM(LongBool(False)), 0);
 end;
 
 destructor TWinControlLocker.Destroy;
 begin
-  SendMessage(FCtrl.Handle, WM_SETREDRAW, wParam(LongBool(True)), 0);
+  SendMessage(FCtrl.Handle, WM_SETREDRAW, WPARAM(LongBool(True)), 0);
   RedrawWindow(FCtrl.Handle, nil, 0, RDW_ERASE or RDW_INVALIDATE or RDW_ALLCHILDREN);
   inherited;
 end;
@@ -5860,8 +5860,8 @@
 procedure TdzButtonedEdit.Loaded;
 begin
   inherited;
-  if RightButton.Visible and (RightButton.hint = '') then begin
-    RightButton.hint := _('Ctrl+Return to ''click'' right button.');
+  if RightButton.Visible and (RightButton.Hint = '') then begin
+    RightButton.Hint := _('Ctrl+Return to ''click'' right button.');
     ShowHint := True;
   end;
 end;
@@ -6849,7 +6849,7 @@
   tb: TTrackBar;
 begin
   tb := TrackBar;
-  tb.hint := IntToStr(tb.Position);
+  tb.Hint := IntToStr(tb.Position);
   Application.ActivateHint(Mouse.CursorPos);
   doOnChange(_Sender);
 end;
@@ -7064,4 +7064,3 @@
 finalization
   FreeAndNil(gblCheckListBoxHelper);
 end.
-

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.