Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Index: frmRescanPointerUnit.pas
- ===================================================================
- --- frmRescanPointerUnit.pas (wersja 2229)
- +++ frmRescanPointerUnit.pas (kopia robocza)
- @@ -61,6 +61,7 @@
- btnAddEndOffset, btnRemoveEndOffset: TButton;
- btnAddStartOffset, btnRemoveStartOffset: Tbutton;
- + lblInfoFirstOffset, lblInfoLastOffset: TLabel;
- @@ -275,6 +276,15 @@
- e.Parent:=self;
- endoffsets.Add(e);
- + if lblInfoLastOffset=nil then
- + begin
- + lblInfoLastOffset:=TLabel.create(self);
- + lblInfoLastOffset.caption:='Last offset';
- + lblInfoLastOffset.left:=e.Left+e.Width+3;
- + lblInfoLastOffset.parent:=self;
- + lblInfoLastOffset.visible:=false;
- + end;
- +
- if btnAddendOffset=nil then
- begin
- btnAddendOffset:=TButton.create(self);
- @@ -312,6 +322,9 @@
- if btnRemoveendOffset<>nil then
- btnRemoveendOffset.visible:=false;
- + if lblInfoLastOffset<>nil then
- + lblInfoLastOffset.visible:=false;
- +
- if endoffsets<>nil then
- freeandnil(endoffsets);
- end;
- @@ -333,6 +346,15 @@
- e.Parent:=self;
- startoffsets.Add(e);
- + if lblInfoFirstOffset=nil then
- + begin
- + lblInfoFirstOffset:=TLabel.create(self);
- + lblInfoFirstOffset.caption:='First offset';
- + lblInfoFirstOffset.left:=e.Left+e.Width+3;
- + lblInfoFirstOffset.parent:=self;
- + lblInfoFirstOffset.visible:=false;
- + end;
- +
- if btnAddStartOffset=nil then
- begin
- btnAddStartOffset:=TButton.create(self);
- @@ -367,6 +389,9 @@
- if btnRemoveStartOffset<>nil then
- btnRemoveStartOffset.visible:=false;
- + if lblInfoFirstOffset<>nil then
- + lblInfoFirstOffset.visible:=false;
- +
- if startoffsets<>nil then
- freeandnil(startoffsets);
- end;
- @@ -406,6 +431,13 @@
- e:=tedit(startoffsets[i]);
- e.top:=nextstart;
- + if startoffsets.count=1 then lblInfoFirstOffset.visible:=false
- + else if i=0 then
- + begin
- + lblInfoFirstOffset.visible:=true;
- + lblInfoFirstOffset.top:=nextstart+3;
- + end;
- +
- nextstart:=nextstart+e.height+3;
- end;
- @@ -421,17 +453,26 @@
- if cbMustEndWithSpecificOffsets.checked then
- begin
- nextstart:=cbMustEndWithSpecificOffsets.top+cbMustEndWithSpecificOffsets.Height+3;
- +
- + btnAddEndOffset.top:=nextstart;
- + btnRemoveEndOffset.top:=nextstart;
- +
- for i:=0 to endoffsets.count-1 do
- begin
- e:=tedit(endoffsets[i]);
- e.top:=nextstart;
- + if endoffsets.count=1 then lblInfoLastOffset.visible:=false
- + else if i=endoffsets.count-1 then
- + begin
- + lblInfoLastOffset.visible:=true;
- + lblInfoLastOffset.top:=nextstart+3;
- + end;
- +
- nextstart:=nextstart+e.height+3;
- end;
- - btnAddEndOffset.top:=e.top;
- - btnRemoveEndOffset.top:=e.top;
- - pnlbuttons.top:=btnAddEndOffset.top+btnAddEndOffset.height+5;
- + pnlbuttons.top:=nextstart+5;
- end
- else
- pnlButtons.top:=cbMustEndWithSpecificOffsets.top+cbMustEndWithSpecificOffsets.Height+5;
- @@ -467,8 +508,7 @@
- e:=Tedit.create(self);
- e.left:=cbMustStartWithSpecificOffsets.left;
- e.Parent:=self;
- - endoffsets.Add(e);
- -
- + endoffsets.Insert(0,e);
- updatePositions;
- end;
- @@ -478,7 +518,7 @@
- cbMustEndWithSpecificOffsets.checked:=false
- else
- begin
- - endoffsets.Delete(endoffsets.count-1);
- + endoffsets.Delete(0);
- updatePositions;
- end;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement