SRL Archive - OSR Help

Is there any way in SCAR to store highlighted text (with the mouse) to a variable or store it to the clipboard?

Well, using CTRL + C and CTRL + V yes.

Yes there is. One second.

program CopyPasta;
var
  F: TForm;
  E: TEdit;
 
procedure InitForm;
begin
  F:= CreateForm;
  E:= TEdit.Create(F);
  with E do
  begin
    Parent:= F;
    PasteFromClipboard;
    Writeln(Text);
  end;
end;

procedure SafeInitForm;
var
  V: TVariantArray;
begin
  V:= [];
  ThreadSafeCall('InitForm', V);
end;

begin
  SafeInitForm;
end.

Like:

KeyDown(GetKeyCode('CTRL'));
KeyDown(GetKeyCode('C'));
KeyUp(GetKeyCode('CTRL'));
KeyUp(GetKeyCode('C'));

I dont know if the CTRL is valid thought.

Okay thanks guys, gonna try KeyDown/KeyUp in a sec

edit: no, the ctrl wasn't valid :(

Heres fixed version which should work:

program New;
begin
Wait(2000);
KeyDown(VK_CONTROL);
KeyDown(GetKeyCode('C'));
KeyUp(VK_CONTROL);
KeyUp(GetKeyCode('C'));
end.

I put the wait in there so i could select some text.

Or you could do what I posted.

Thanks! rep++
it works now :D

e: ty both of you :)

Use the 'SelText' property owned by the TEdit component to save highlighted text to a variable. ;)