Hey I just saw a nice feature in delphi that might be nice to have. How about an ObjectTreeView like this one.
![]()
Hey I just saw a nice feature in delphi that might be nice to have. How about an ObjectTreeView like this one.
![]()



Ron would you just shut up? If you keep talking like that it'll never get done![]()



Yeah I know! I don't wanna be a chicken! I wanna be a rooster!
offtopic: oh well, im a king black dragon...
but freddy, you still need help with linux?
And check out my pascal interpreter!
<R0b0t1> No, really, I went to a bar and picked up a transvestite.
Could you give the Image form component (TImage) the ability to place a picture on the form? It's annoying to use the form.canvas routine. Much easier with the TImage.



Shut up! Stop that! Do you want him to never finish? lol
Na, those nvidia drivers are completely fucked up, I'm just gonna go back to windows and start saying i hate linux, lol
Apparently not, lol
You know, there are gonna be more versions after this one, it's not like this is the end
If there are still problems with this version, or suggestions, i can just put those in the next version
fredey have u received my PM ? if u have are u going to make an auto shutdown?
Dont Steal..
Ya i received it, prolly forgot to reply, but I think a shutdown command isn't a very good idea becayse basically it can just make it possible for a script to shutdown someone's pc and people could lose their work and stuff because of that, might add a shutdown after script terminatiopn option later tough, but not in this release
(Oh ya, and btw lardI'm not a first-time linux user, and I've had ubuntu in the past
)



I have a feeling I'm gonna ub3r l33t h4x j00 in a minute!
Look in Borland's Delphi 7 compiler, I think you have it already. One of the form components is TImage and it has an item in the object inspector called "Picture". Look to the right of it, and click on the little box, and it will open up a small window where you can browse for a picture and load it in the image component you just made for your form.
TImage is available in scar, but doesn't do anything because it's missing that picture object within TImage.
Awesome dude, how about making SCAR 3.0 not a colour clicker ? Using ID's etc like ARGA? wud be awesome
I think I will answer this one:
SCAR IS and WILL be a color clicker, because of this it is only limited by the talent of people who script not just leech.
Next please learn to use proper English and grammar.
Freddy will probably never make it like ARGA in any ways close to the way you want it.
I didn't say anything about the form background. I'm simply requesting to add the picture object for the TImage component. And I didn't say anything about the form background. I was saying using TImage would be much easier than using frmDesign.canvas each time a person wants to put a picture on the form.
I don't really care about a shutdown function, but couldn't you do something in SCAR options, where it can do an action (play sound, shutdown, restart etc) when a script is successfully executed. So it would be in control of the SCAR user, not a command for the script to call.
But then you would probably want a save debug contents to txt file also.
Could you make it so you could put the color dropper button in the forms?
AVAPHI, do you mean something like this?
~RonCode:program ColorPickerByRon; var // InitForm variables. frmDesign : TForm; Button1 : TButton; Edit1 : TEdit; Shape1 : TShape; procedure Button1PickColor(sender : TObject); var Color,x,y : integer; begin PickColor(Color,x,y); Edit1.Text := IntToStr(Color); Shape1.Brush.Color := Color; end; // This form was parsed using: DFM Form Parser v.1 by Ron. procedure InitForm; begin frmDesign := CreateForm; with frmDesign do begin Position := poScreenCenter; BorderIcons := []; BorderIcons := [biSystemMenu, biMinimize]; BorderStyle := bsSingle; Caption := 'Color Picker by Ron'; ClientHeight := 69; ClientWidth := 258; Color := clBtnFace; Font.Color := clWindowText; Font.Height := -11; Font.Name := 'MS Sans Serif'; Font.Style := []; PixelsPerInch := 96; end; Button1 := TButton.Create(frmDesign); with Button1 do begin Parent := frmDesign; Left := 20; Top := 20; Width := 75; Height := 25; Caption := 'Pick Color'; TabOrder := 8; OnClick := @Button1PickColor; end; Edit1 := TEdit.Create(frmDesign); with Edit1 do begin Parent := frmDesign; Left := 114; Top := 22; Width := 80; Height := 21; ReadOnly := True; TabOrder := 9; Text := '16777215'; end; Shape1 := TShape.Create(frmDesign); with Shape1 do begin Parent := frmDesign; Brush.Color := 16777215; Width := 35; Height := 21; Top := 22; Left := 210; end; end; procedure SafeInitForm; var V: TVariantArray; begin SetArrayLength(V, 0); ThreadSafeCall('InitForm', V); end; procedure ShowInitFormModal; begin frmDesign.ShowModal; end; procedure SafeShowInitFormModal; var V: TVariantArray; begin SetArrayLength(V, 0); ThreadSafeCall('ShowInitFormModal', V); end; procedure MainInitForm; begin try SafeInitForm; SafeShowInitFormModal; finally FreeForm(frmDesign); except WriteLn('Error in InitForm!'); end; end; begin ClearDebug; MainInitForm; end.
There are currently 1 users browsing this thread. (0 members and 1 guests)