Re: [Lazarus] Idea of TFormTitle

2017-09-11 Thread Alexey via Lazarus
>Why would you want that? LCL can have global var for FormTitle. this var can be used by all forms. so all forms will be "themed". if programmer changes this glob var (like we can do with THintWindow) then all windows have themed window title. -- Regards, Alexey -- ___

Re: [Lazarus] Idea of TFormTitle

2017-09-11 Thread Kostas Michalopoulos via Lazarus
Why would you want that? On Mon, Sep 11, 2017 at 11:19 PM, Alexey via Lazarus < lazarus@lists.lazarus-ide.org> wrote: > Maybe ok idea? make class TFormTitle. it is some small (by Y) form which > is embedded into Form (form which has FormTitle property set). When prop > FormTitle set, OS border hi

[Lazarus] Idea of TFormTitle

2017-09-11 Thread Alexey via Lazarus
Maybe ok idea? make class TFormTitle. it is some small (by Y) form which is embedded into Form (form which has FormTitle property set). When prop FormTitle set, OS border hides and obj of FormTitle inserted into TOP of form (it looks like OS window caption). When this FormTitle is used, form h

[Lazarus] not optimal code (need Move) in RegExpr unit

2017-09-11 Thread Alexey via Lazarus
function StrPCopy (Dest: PRegExprChar; const Source: RegExprString): PRegExprChar; var i, Len : PtrInt; begin Len := length (Source); //###0.932 for i := 1 to Len do Dest [i - 1] := Source [i]; Dest [Len] := #0; Result := Dest; end; { of function StrPCopy -