Commit 53a51b86 authored by mse1's avatar mse1

* Delphi compatibility.

* Groupleader window sets application icon.

git-svn-id: https://mseide-msegui.svn.sourceforge.net/svnroot/mseide-msegui/trunk@3216 56ecf5fe-6917-0410-8ac6-ca8e178bccbf
parent c1ce723b
......@@ -4474,6 +4474,9 @@ begin
end;
if icon <> 0 then begin
gui_setwindowicon(id,icon,iconmask);
if (groupleaderwindow = id) then begin
gui_setwindowicon(applicationwindow,icon,iconmask);
end;
end;
end;
end;
......
......@@ -12,6 +12,9 @@ unit msebits;
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
//bitmanipulationhelpers
interface
uses
msetypes;
type
bitnumty = 0..32;
const
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment