Hi
DP, ich stehe vor einem Problem nämlich will ich ein Objekt zur Laufzeit erzeugen und dieses dann an der Trackbarposition ausrichten. Es soll also genau da entstehen wo der Trackbar Regler im Moment steht. Das ganze dient dazu Positionen aus der Trackbar zu speichern und später wieder aufzurufen. Hier ist mein bisheriger Code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Img: TImage; pos, top: Integer; h: Cardinal; res: TResourcestream; Graphic: TGraphic;
begin
if not Cut1 then begin
eins := Trb.Position;
pos := Trb.Position * Form1.Width div 100;
Img := TImage.Create(self);
Img.Width := 32;
Img.Height := 32;
Img.Top := Trb.Top-30;
Img.Left := pos-16;
h := LoadLibrary('test.dll');
res := Tresourcestream.CreateFromID(h, 8, RT_RCDATA);
Graphic:= TPngImage.Create;
try
Graphic.LoadFromStream(res);
Img.Picture.Assign(Graphic);
finally
res.Free;
Graphic.Free;
end;
self.InsertControl(Img);
cut1 := true;
end else begin
Second := eins;
Trb.Position := eins;
end;
end;
Ich hole mir die Position der Trackpar in Pixeln mit dem:
pos := Trb.Position * Form1.Width div 100;
das ist aber nicht das Gelbe vom Ei da die Position nicht stimmt bzw. sehr stark abweicht.
Wie kann ich eine 'elegantere' Methode benutzen falls es eine gibt
Danke
Luki
