Perth ADUG Meeting (Online)

Meetings
21

WADUG Meeting - Tue 11th June

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. :slightly_smiling_face::sunglasses:

// - - - - -

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 :

  • threads (TThread / ITask / IFuture) (and TFuture*)
  • testing (DUnit / DUnitX)
  • exploiting the features of FastMM4/5
  • discussing impressions from the ADUG Symposium

// - - - - -

Other meetings coming up

  • 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? :thinking::slightly_smiling_face::sunglasses:

// - - - - -

Mark the date.
Cheers,

Paul McGee
WADUG

Zoom meeting.

Topic: ADUG Perth Meeting

Thursday 8th February 2024
6:00pm Meeting open (Perth)
6:15pm Presentations start

Join Zoom Meeting
https://us02web.zoom.us/j/82957853513?pwd=ZjVVU0h6Y1k5TW43cWVLRWxvNzU0QT09

Meeting ID: 829 5785 3513
Passcode: 400123