mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-13 13:59:13 +02:00
Minor changes
Shane git-svn-id: trunk@117 -
This commit is contained in:
lazarus
parent
92261b271b
commit
05b6ea0354
@ -21,6 +21,7 @@
|
||||
* *
|
||||
***************************************************************************/
|
||||
}
|
||||
{$H+}
|
||||
unit compiler;
|
||||
|
||||
{$mode objfpc}
|
||||
@ -236,6 +237,10 @@ end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.3 2001/01/13 03:09:37 lazarus
|
||||
Minor changes
|
||||
Shane
|
||||
|
||||
Revision 1.2 2000/12/20 20:04:30 lazarus
|
||||
Made PRoject Build compile the active unit. This way we can actually play with it by compiling units.
|
||||
|
||||
|
||||
@ -19,6 +19,7 @@
|
||||
* *
|
||||
***************************************************************************/
|
||||
}
|
||||
{$H+}
|
||||
unit compileroptions;
|
||||
|
||||
{$mode objfpc}
|
||||
|
||||
64
ide/main.pp
64
ide/main.pp
@ -116,18 +116,12 @@ type
|
||||
itmViewCompilerSettings: TMenuItem;
|
||||
itmEnvironmentOptions: TMenuItem;
|
||||
CheckBox1 : TCheckBox;
|
||||
// Notebook1 : TTabbedNotebook;
|
||||
notebook1 : TNotebook;
|
||||
Notebook1 : TNotebook;
|
||||
cmdTest: TButton;
|
||||
cmdTest2: TButton;
|
||||
LAbel2 : TLabel;
|
||||
{ event handlers }
|
||||
procedure mnuNewFormClicked(Sender : TObject);
|
||||
procedure mnuOpenClicked(Sender : TObject);
|
||||
procedure mnuSaveClicked(Sender : TObject);
|
||||
procedure mnuSaveAsClicked(Sender : TObject);
|
||||
procedure mnuSaveAllClicked(Sender : TObject);
|
||||
procedure mnuCloseClicked(Sender : TObject);
|
||||
procedure mnuQuitClicked(Sender : TObject);
|
||||
procedure mnuViewInspectorClicked(Sender : TObject);
|
||||
procedure mnuViewCompilerSettingsClicked(Sender : TObject);
|
||||
@ -154,14 +148,9 @@ type
|
||||
Procedure FileOpenedEvent(Sender : TObject; Filename : String);
|
||||
Procedure FileSavedEvent(Sender : TObject; Filename : String);
|
||||
|
||||
// procedure MouseDownOnControl(Sender : TObject; Button: TMouseButton; Shift : TShiftState; X, Y: Integer);
|
||||
// procedure MouseMoveOnControl(Sender : TObject; Shift : TShiftState; X, Y: Integer);
|
||||
// procedure MouseUpOnControl(Sender : TObject; Button: TMouseButton; Shift : TShiftState; X, Y: Integer);
|
||||
Procedure COntrolClick(Sender : TObject);
|
||||
Procedure ControlClick(Sender : TObject);
|
||||
procedure MessageViewDblClick(Sender : TObject);
|
||||
|
||||
// function FindDesigner(ChildComponent:TComponent):TDesigner;
|
||||
// procedure SelectOnlyThisComponent(AComponent:TComponent);
|
||||
procedure OIOnAddAvailableComponent(AComponent:TComponent; var Allowed:boolean);
|
||||
procedure OIOnSelectComponent(AComponent:TComponent);
|
||||
private
|
||||
@ -438,7 +427,6 @@ begin
|
||||
Enabled := True;
|
||||
Top := 28;
|
||||
Left := Speedbutton3.Left + 26;
|
||||
OnClick := @mnuOpenCLicked;
|
||||
Glyph := Pixmap1;
|
||||
Visible := True;
|
||||
Flat := true;
|
||||
@ -491,7 +479,6 @@ begin
|
||||
Enabled := False;
|
||||
Top := 28;
|
||||
Left := Speedbutton4_2.Left + 13;
|
||||
OnClick := @mnuSaveCLicked;
|
||||
Glyph := Pixmap1;
|
||||
NumGlyphs := 2;
|
||||
Visible := True;
|
||||
@ -513,7 +500,6 @@ begin
|
||||
Enabled := False;
|
||||
Top := 28;
|
||||
Left := Speedbutton5.left + 26;
|
||||
OnClick := @mnuSaveAllCLicked;
|
||||
Glyph := Pixmap1;
|
||||
NumGlyphs := 2;
|
||||
Visible := True;
|
||||
@ -813,25 +799,29 @@ begin
|
||||
|
||||
itmFileNew := TMenuItem.Create(Self);
|
||||
itmFileNew.Caption := 'New Unit';
|
||||
itmFileNew.Name := 'FileNew';
|
||||
// itmFileNew.OnClick := @mnuNewClicked;
|
||||
mnuFile.Add(itmFileNew);
|
||||
|
||||
itmFileNewForm := TMenuItem.Create(Self);
|
||||
itmFileNewForm.Caption := 'New Form';
|
||||
itmFileNewForm.OnClick := @mnuNewFormClicked;
|
||||
itmFileNewForm.Name := 'FileNewForm';
|
||||
mnuFile.Add(itmFileNewForm);
|
||||
|
||||
itmFileOpen := TMenuItem.Create(Self);
|
||||
itmFileOpen.Caption := 'Open';
|
||||
itmFileOpen.OnClick := @mnuOpenClicked;
|
||||
itmFileOpen.Name := 'FileOpen';
|
||||
mnuFile.Add(itmFileOpen);
|
||||
|
||||
itmFileSave := TMenuItem.Create(Self);
|
||||
itmFileSave.Caption := 'Save';
|
||||
itmFileSave.Name := 'FileSave';
|
||||
mnuFile.Add(itmFileSave);
|
||||
|
||||
itmFileSaveAs := TMenuItem.Create(Self);
|
||||
itmFileSaveAs.Caption := 'Save As';
|
||||
itmFileSaveAs.Name := 'FileSaveAs';
|
||||
mnuFile.Add(itmFileSaveAs);
|
||||
|
||||
itmFileSaveAll := TMenuItem.Create(Self);
|
||||
@ -1105,24 +1095,6 @@ Begin
|
||||
Assert(False, 'Trace:Exiting SetName_Form');
|
||||
end;
|
||||
|
||||
procedure TMainIDE.mnuSaveClicked(Sender : TObject);
|
||||
begin
|
||||
//this is no longer used. TSourceNotebook.SaveClicked is called
|
||||
end;
|
||||
|
||||
{------------------------------------------------------------------------------}
|
||||
|
||||
Procedure TMainIDE.mnuSaveAsClicked(Sender : TObject);
|
||||
Begin
|
||||
//this is no longer used. TSourceNotebook.SaveAsClicked is called
|
||||
end;
|
||||
|
||||
Procedure TMainIDE.mnuSaveAllClicked(Sender : TObject);
|
||||
Begin
|
||||
//this is no longer used. TSourceNotebook.SaveAllClicked is called
|
||||
|
||||
End;
|
||||
|
||||
|
||||
Procedure TMainIDE.mnuToggleFormClicked(Sender : TObject);
|
||||
Begin
|
||||
@ -1172,9 +1144,6 @@ var
|
||||
Speedbutton : TSpeedbutton;
|
||||
Temp : TControl;
|
||||
begin
|
||||
Writeln('In ControlClick with nil?');
|
||||
if Sender=nil then Writeln('yep, Sender is nil');
|
||||
|
||||
if Sender is TSpeedButton then
|
||||
Begin
|
||||
Writeln('sender is a speedbutton');
|
||||
@ -1462,15 +1431,6 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
{------------------------------------------------------------------------------}
|
||||
procedure TMainIDE.mnuOpenClicked(Sender : TObject);
|
||||
var
|
||||
Str : TStringList;
|
||||
SList : TUnitInfo;
|
||||
Texts : String;
|
||||
begin
|
||||
|
||||
end;
|
||||
{------------------------------------------------------------------------------}
|
||||
|
||||
{------------------------------------------------------------------------------}
|
||||
@ -1587,12 +1547,6 @@ If TSourceEditor(Sender).IsControlUnit then
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
Procedure TMainIDE.mnuCloseClicked(Sender : TObject);
|
||||
Begin
|
||||
|
||||
end;
|
||||
|
||||
{------------------------------------------------------------------------------}
|
||||
|
||||
procedure TMainIDE.mnuQuitClicked(Sender : TObject);
|
||||
@ -1904,6 +1858,10 @@ end.
|
||||
{ =============================================================================
|
||||
|
||||
$Log$
|
||||
Revision 1.41 2001/01/13 03:09:37 lazarus
|
||||
Minor changes
|
||||
Shane
|
||||
|
||||
Revision 1.40 2001/01/12 18:46:49 lazarus
|
||||
Named the speedbuttons in MAINIDE and took out some writelns.
|
||||
Shane
|
||||
|
||||
@ -319,8 +319,8 @@ Begin
|
||||
begin
|
||||
if pos(Value,texts2) <> 0 then
|
||||
begin
|
||||
CurrentCursorYLine := I;
|
||||
FEditor.TopLine := I-1;
|
||||
CurrentCursorYLine := I+1;
|
||||
Result := I;
|
||||
Break;
|
||||
end;
|
||||
@ -351,7 +351,7 @@ Begin
|
||||
if pos(Value,texts2) <> 0 then
|
||||
begin
|
||||
FEditor.TopLine := I;
|
||||
CurrentCursorYLine := I;
|
||||
CurrentCursorYLine := I+1;
|
||||
Result := I;
|
||||
Break;
|
||||
end;
|
||||
@ -452,6 +452,7 @@ var
|
||||
AppDIr : String;
|
||||
TempDir : String;
|
||||
Num : Integer;
|
||||
DirDelimiter : Char;
|
||||
Begin
|
||||
Texts := TextunderCursor;
|
||||
if Length(Texts) <= 1 then Exit;
|
||||
@ -481,6 +482,7 @@ Begin
|
||||
|
||||
// if Not Found then
|
||||
//Get the search directories
|
||||
DirDelimiter := '/';
|
||||
SearchDir := TMainIDE(TSourceNotebook(FAOwner).MainIDE).SearchPaths;
|
||||
Writeln('Searcvhdir is '+Searchdir);
|
||||
Num := pos(';',SearchDir);
|
||||
@ -489,6 +491,8 @@ Begin
|
||||
if Num = 0 then Num := Length(SearchDir)+1;
|
||||
TempDir := Copy(SearchDir,1,num-1);
|
||||
Delete(SearchDir,1,Num);
|
||||
if tempDir[Length(TempDir)] <> DirDelimiter then
|
||||
TempDir := TempDir + DirDelimiter;
|
||||
Found := True;
|
||||
if FileExists(TempDir+Lowercase(Texts)) then TSOurceNotebook(FAOwner).OpenFile(TempDir+Lowercase(Texts))
|
||||
else
|
||||
@ -500,8 +504,10 @@ Begin
|
||||
Num := pos(';',SearchDir);
|
||||
end; //while
|
||||
|
||||
If not Found then
|
||||
Application.MessageBox('File not found','Error',MB_OK);
|
||||
|
||||
|
||||
Writeln('FILE TO OPEN WAS '+Texts);
|
||||
end;
|
||||
|
||||
|
||||
@ -1164,7 +1170,7 @@ Procedure TSourceNotebook.OpenClicked(Sender: TObject);
|
||||
Var
|
||||
TempEditor : TSourceEditor;
|
||||
Begin
|
||||
if (sender is TMenuItem) then //the down arrow next to open was selected
|
||||
if (sender is TMenuItem) and (TMenuItem(sender).name <> 'FileOpen') then //the down arrow next to open was selected
|
||||
OpenFile(TMenuItem(sender).Caption)
|
||||
else
|
||||
Begin
|
||||
|
||||
@ -2268,7 +2268,9 @@ begin
|
||||
Assert (Handle = nil, 'WARNING: [TgtkObject.GetValue] --> got nil pointer (no gtkobject)');
|
||||
|
||||
case TControl(Sender).fCompStyle of
|
||||
csTrackbar : integer (data^) := round (gtk_range_get_adjustment (GTK_RANGE (handle))^.value);
|
||||
csTrackbar : if handle <> nil then integer(data^) := round(gtk_range_get_adjustment (GTK_RANGE (handle))^.value) else
|
||||
integer(data^) := 0;
|
||||
|
||||
|
||||
csRadiobutton,
|
||||
csCheckbox : if gtk_toggle_button_get_active (PGtkToggleButton (handle))
|
||||
@ -2309,6 +2311,7 @@ begin
|
||||
csProgressBar: gtk_progress_set_value (GTK_PROGRESS (handle), integer (data^));
|
||||
|
||||
csTrackbar : begin
|
||||
if Handle = nil then Exit;
|
||||
gtk_range_get_adjustment (GTK_RANGE (handle))^.value := integer (data^);
|
||||
gtk_signal_emit_by_name (PGtkObject (gtk_range_get_adjustment (GTK_RANGE (handle))), 'value_changed');
|
||||
end;
|
||||
@ -2705,6 +2708,10 @@ end;
|
||||
{ =============================================================================
|
||||
|
||||
$Log$
|
||||
Revision 1.18 2001/01/13 03:09:37 lazarus
|
||||
Minor changes
|
||||
Shane
|
||||
|
||||
Revision 1.17 2001/01/10 20:12:29 lazarus
|
||||
Added the Nudge feature to the IDE.
|
||||
Shane
|
||||
|
||||
Loading…
Reference in New Issue
Block a user