Tuesday Jun 11, 2024 ⋅ 6pm – 8pm (Australian Western Standard Time - Perth)
Geoff Smith - ADUG President - has been using GPT-4o to not only create Delphi code, but to trigger local compilation, and to automatically respond to the compiler errors and warnings.
Now he has gone too far, and recreated Tetris.
// - - - - -
I’d like to suggest some regular ‘segments’
looking at a chapter of a Delphi book (eg Dalija Prasnikar’s Asynchronous & Event-based Delphi), and
discussing an interesting algorithm or coding puzzle.
// - - - - -
Topics that were flagged as of interest in the March meeting :
Melbourne on Monday 17th June. Geoff will also be speaking to them.
Uk Dev Group - Tuesday 18th June.
// - - - - -
The World Delphi Summit with a dozen great speakers is on on the 13th & 14th June.
You could have a free online ticket worth $300 - see the ADUG Forum.
// - - - - -
A cool bit of code - from Jon Aasenden
// **Fast and dirty StretchDraw()** ! 👀
procedure StretchDrawBitmap(TargetCanvas: TCanvas; const TargetRect: TRect; Bitmap: TBitmap);
var
SrcWidth, SrcHeight, DstWidth, DstHeight: Integer;
xRatio, yRatio: Integer;
x, y: Integer;
SrcX, SrcY: Integer;
SrcColor: TColor;
begin
SrcWidth := Bitmap.Width; SrcHeight := Bitmap.Height;
DstWidth := TargetRect.Right - TargetRect.Left;
DstHeight := TargetRect.Bottom - TargetRect.Top;
xRatio := (SrcWidth shl 16) div DstWidth;
yRatio := (SrcHeight shl 16) div DstHeight;
for y := 0 to DstHeight - 1 do begin
SrcY := (y * yRatio) shr 16;
for x := 0 to DstWidth - 1 do begin
SrcX := (x * xRatio) shr 16;
SrcColor := Bitmap.Canvas.Pixels[SrcX, SrcY];
TargetCanvas.Pixels[TargetRect.Left + x, TargetRect.Top + y] := SrcColor;
end;
end;
end;
What’s going on with that shifting left and right?
Tech Enthusiasts: Everything in my house is wired to the Internet of Things! I control it all from my smartphone! My smart-house is bluetooth enabled and I can give it voice commands via alexa! I love the future!
Programmers / Engineers: The most recent piece of technology I own is a printer from 2004 and I keep a loaded gun ready to shoot it if it ever makes an unexpected noise.
Note to self : Perth meetup groups - Python, Rust, AWS, Github, AI, Linux,…
