Drag'n'Drop

[Mikael Mannberg]

Hej!

 

1. Finns det något sätt att fixa så att man kan få drag'n'dropfunktioner i Delphi 1.0

 

2. Jag använder den här koden för att skriva ut:

var

MyFile: TextFile;

begin

AssignPrn(myfile);

Rewrite(MyFile);

Write(MyFile, memo1.text);

system.close(myfile);

 

men jag är inte riktigt nöjd med den! Det blir ett litet fult typsnitt och den skriver ut allt så långt åt vänster som är möjligt utan att skriva utanför pappret. Finns det något annat sätt att skriva ut i Delphi 1.0 så att det ser ut som det gör på skärmen?

 

/Mikael

[Petter Holmström]

1. Ja, det finns det!

Sätt DragMode till dmAutomatic på den kontrol från vilken du vill dra.

Använd sedan destinationskontrollens OnDragOver och OnDragDrop.

 

2. För att ändra typsnittet:

Printer.Canvas.Font := Memo1.Font;

 

Måste fundera lite på marginalerna..