Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Cursor,JPEG und ClipBoards (https://www.delphipraxis.net/49150-cursor-jpeg-und-clipboards.html)

Dein_Pate 6. Jul 2005 09:20


Cursor,JPEG und ClipBoards
 
hab ma so einige fragen:
1. Wie kann ich einen eigen erstellten Cursor in delphi (7.0) reinladen und verwenden
2. in delphi wird ausschließlich mit bitmaps bzgl. graphiken gearbeitet...ich lade eine andere datei
(z.B. JPG) in ein TImage und will darauf zeichnen...wie mach ich das.
3. wie kann ich daten aus einem Bild,dass im ClipBoard liegt auslesen und irgendwo reinladen
4. so...letzte "wie" - frage...wie kann ich einen kompletten ordner kopiern oder muss ich dass mit jeder datei (also mit copyfile() )machen

würde schon reichen, wenn man mir tipps gibt...schon ma danke !!

[edit=alcaeus]Personality angepasst: Delphi 7 ist Delphi Win32 ;) Mfg, alcaeus[/edit]

Flips 6. Jul 2005 18:04

Re: Cursor,JPEG und ClipBoards
 
Hi.
Zu 1.) http://www.dsdt.info/tipps/?id=459 --> wenn dus nicht findest dann scroll nach oben, drück STRG+F und suche nach cursor. der 2.Fund ist es.

Zu 2.)
Delphi-Quellcode:
uses JPEG;
...
Image1.Picture.LoadFromFile('bild.JPG');
...
Mit dem darauf zeichnen musste ma mit Image1.Canvas probieren.

zu 3.)
Welche Daten denn?
Also Breite oder Höhe würd ich so machen:
Delphi-Quellcode:
//Image erstellen
//im Objektinspektor visible auf false setzen
Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
//Ausgabe der Daten
with Image1 do
 begin
 //Höhe und Breite ausgeben
 Label1.Caption:=Width;
 Label2.Caption:=Height;
 ...
 end;
zu 4.) In Delphi fällt ma dazu nichts ein, aber es gibt ja noch schmutzige Tricks^^
mach einfach folgendes:
Delphi-Quellcode:
uses ShellApi;
...
var
start,ziel : PansiChar;
...
start:=PChar(Edit1.Text);
ziel:=PChar(Edit2.Text);
ShellExecute(Form1.Handle,'open','cmd','copy '+start+' '+ziel',SW_HIDE);
Weiß aber ned ob das geht^^

Mfg
Flips

Ps: Wer goooogelt, der findet...

100nF 6. Jul 2005 19:01

Re: Cursor,JPEG und ClipBoards
 
hi,

gibts nicht den befehl copydir()? oder copydirectory?


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:04 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz