LazPaint (alpha-blending, antialiasing, filters)

[circular]

How wow, well when I solve it myself, I take something like 1 minute!

[lainz]

Nice! you are fast too!

[lainz]

Hi, this is the uonline.pas using fphttpclient.

It downloads the file to string and saves the lazpaint settings, but never show the new version dialog.

fphttpclient unit is not by default threaded, you must create a separate thread to make the download, and I've not included that.

Edit:

So this unit I changed is not so usefull -_- at least is usefull to know how not to do it.

[lainz]

BTW this is the way I use to download a file with a thread using fphttpclient, maybe you already know it but I put it here

Code: [Select]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  fphttpclient;

type

  { TForm1 }

  { TDownloadFile }

  TDownloadFile = class(TThread)
  protected
    procedure Execute; override;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
    DownloadT: TDownloadFile;
    procedure OnTerminate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Enabled := False;
  FreeAndNil(DownloadT);

  DownloadT := TDownloadFile.Create(False);
  DownloadT.OnTerminate := @OnTerminate;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeAndNil(DownloadT);
end;

procedure TForm1.OnTerminate(Sender: TObject);
begin
  if FileExistsUTF8(ExtractFilePath(ParamStr(0)) + 'File.html') then
    ShowMessage('File.html saved!');
  Button1.Enabled := True;
end;

{ TDownloadFile }

procedure TDownloadFile.Execute;
var
  TheFile: TStringList;
begin
  try
    TheFile := TStringList.Create;
    TFPHTTPClient.SimpleGet('http://lazpaint.sourceforge.net/latest.txt',
      TheFile);
    TheFile.SaveToFile('File.html');
  finally
    TheFile.Free;
  end;
end;
           

[circular]

Thanks 007!

[Sait™]

I have tried bgrabitmap library of lazpaint. I create Tbgrabitmap, but I can't create it with background is transparent although I create with clNone. Can u give me a suggestion, plz?

[circular]

Hello!

Just create it with Width,Height and no parameter for color. 

[lainz]

Hi, now Lazarus 1.6 has support for drawing on TToolBar and TToolButton, this can be used to theme that part of any application. LazPaint uses toolbar and tool buttons, so the idea is to provide some custom theme for that components. Is just an idea.

The main problem is that there is no single toolbar but multiple toolbars inside panels, maybe that difficults something the task or breaks the continuity of the toolbar into small ones.

Code: Pascal  [Select][+][-]

1. procedure TForm1.ToolBar1Paint(Sender: TObject);
2. begin
3.   //toolbar painting code
4. end;
5.  
6. procedure TForm1.ToolBar1PaintButton(Sender: TToolButton; State: integer);
7. begin
8.   //button painting code
9. end;

[circular]

That's good to know. Thank you! 

[lainz]

That's good to know. Thank you! 

Try this one, only is missing the drawing of the icons.

[circular]

Quite nice!

It looks definitely like Photoshop.

[lainz]

Quite nice!

It looks definitely like Photoshop.

Is perfectly the same as Adobe Flash (the old flash editor..). Photoshop has rounded corners and doesn't have the mouse over pressed state "MouseButtonPressedHover".

[circular]

Hi!

Done on SVN : LazPaint does not depend on LNet anymore but use TFPHTTPClient to get updates.

[lainz]

Hi!

Done on SVN : LazPaint does not depend on LNet anymore but use TFPHTTPClient to get updates.

You forget to remove project dependency on lnetvisual (project > inspector...)

[circular]

I've updated the .LPI project file. Does that fix the dependency?