[an error occurred while processing this directive]
|
//
function TmainForm.BattonLoad(col:integer):boolean;
var
button: TSpeedButton;
Pannel: TPanel;
Beveel: Tbevel;
Image: TBitmap;
l,t,i,n:integer;
begin
Image := TBitmap.Create;
ImageList2.GetBitmap(0, Image);
Pannel:= TPanel.Create(self);
with pannel do begin
// Parent:= MainForm.PageControl1.Pages[0];
align:=alClient;
Bevelinner:=bvNone;
Bevelouter:=bvNone;
BorderStyle:=bsNone;
visible:=true;
tag:=1;
end;
Beveel:= Tbevel.Create(self);
with beveel do begin
Parent:= pannel;
align:=alClient;
shape:=bsFrame;
visible:=true;
end;
l:= - 44;
t:=4;
n:=col;
for i:=0 to n do begin
if l+48 <= PageControl1.Width - 48
then begin
l:= (l + 48);
end
else begin
l:=4;
t:=T+48;
end;
Button:= TSpeedButton.Create(self);
with button do
begin
Parent := pannel;
Caption := inttostr(i);
Left:= l;
Glyph.Assign(Image);
Top:= T;
Height:= 57;
width:= 57;
visible:=true;
tag:=i;
end;
end;
pannel.Parent:= MainForm.PageControl1.Pages[0];
//
Это код создает на листе падж контрол панель а на панели рамку, и ресует на ней заданное количество кнопок с картинкой,
почему именно так ???
Да потому что
1 - кнопки отображают состояние охраняемых объектов, объектов может быть и 2 а может 1000,
2- потомучто нелюблю кривезну типо как у сибирского арсенала и болида хотя последние молодцы. кнопки автоматм перестраиваются при изменени разрешения или размера окна, а у них оно фикс, а если у меня монитор с еб разрешением приходиться их приложения смотреть при 1024Х768
3- нежрет лишней памяти, картинки всеже тяжелые когда их 100
E-mail: info@telesys.ru