Hallo zusammen, ok jetzt muss ich mal ausholen damit ihr versteht was ich machen will.
Ich spiele ein Spiel und habe mehrere Accounts, wenn ich ein spezielles Item suche muss
ich jeden acc einloggen um nach zu schauen wo es ist. Deswegen mache ich von jeden acc
ein Screenshot nur vom Inventar(4mal) und Lager(3mal), speichere dieses Bild in die Datenbank ab.
Dazu ziehe ich mein Inventar oben links in die Ecke und mache ein Screen. Das klappt super.
Besser wäre es aber wenn ich auf Inventar klicke und es bleibt rechts unten in der ecke
und ich muss es nicht verschieben.
Das ist zur Zeit mein Code.
Delphi-Quellcode:
//******************************************************************************
// Monitor ist 1920 x 1080
// x=1720
// y=400
// Image2.Canvas.CopyRect(Ziel, Image1.Canvas, Quelle);
//******************************************************************************
procedure TForm1.ScreenShot(Bild: TBitMap);
var
c: TCanvas;
r: TRect;
begin
x:= 1720;
y:= 400;
c := TCanvas.Create;
c.Handle := GetWindowDC(GetDesktopWindow);
try
r := Rect(0, 0, (Screen.Width -x ), (Screen.Height-y ));
Bild.Width := (Screen.Width -x );
Bild.Height := (Screen.Height -y);
Bild.Canvas.CopyRect(r, c, r);
finally
ReleaseDC(0, c.Handle);
c.Free;
end;
end;
Es wird ein kleines Bild abgespeichert, wenn ich darauf klicke kommt ganz rechts ein vergrößertes Bild
damit ich meine Items besser sehe.
Ja es ist schon etwas blöde bei jeden acc das inventar in die linke obere ecke zu ziehen.
Ich habe schon einige tipps bekommen, aber sorry ich bekomme es einfach nicht hin.
mfg