paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 09:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

improved configure build lazarus dialog

Browse Source 
git-svn-id: trunk@4108 -
This commit is contained in:
mattias 2003-04-29 13:35:39 +00:00
parent 9641429709
commit 9acb463376
6 changed files with 693 additions and 473 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1126
ide/buildlazdialog.pas
View File

File diff suppressed because it is too large Load Diff

5
ide/lazarusidestrconsts.pas
View File

@ -1016,11 +1016,13 @@ resourcestring
dlgUnitDepRefresh = 'Refresh';
// Build lazarus dialog
lisBuildJITForm = 'Build JITForm';
lisCleanLazarusSource = 'Clean Lazarus Source';
lisBuildLCL = 'Build LCL';
lisBuildComponent = 'Build Component';
lisBuildCodeTools = 'Build CodeTools';
lisBuildSynEdit = 'Build SynEdit';
lisBuildJITForm = 'Build JIT Form';
lisBuildPkgReg = 'Build Package Registration';
lisBuildIDE = 'Build IDE';
lisBuildExamples = 'Build Examples';
lisConfigureBuildLazarus = 'Configure %sBuild Lazarus%s';
@ -1036,6 +1038,7 @@ resourcestring
lisLazBuildTargetOS = 'Target OS:';
lisLazBuildLCLInterface = 'LCL interface';
lisLazBuildBuildJITForm = 'Build JITForm';
lisLazBuildWithStaticPackages = 'With Packages';
lisLazBuildOk = 'Ok';
lisLazBuildCancel = 'Cancel';
lisLazBuildNone = 'None';

17
lcl/include/customlistbox.inc
View File

@ -388,20 +388,27 @@ begin
if (Val >= FItems.Count) then
raise Exception.CreateFmt(rsIndexOutOfRange,[ClassName,Val,FItems.Count]);
if Val<0 then Val:=-1;
//writeln('[TCustomListBox.SetItemIndex] A ',FItems.ClassName,' ',Val);
writeln('[TCustomListBox.SetItemIndex] A ',FItems.ClassName,' ',Val);
FItemIndex:=Val;
if HandleAllocated then
CNSendMessage(LM_SETITEMINDEX, Self, Pointer(Val));
//writeln('[TCustomListBox.SetItemIndex] END ',FItems.ClassName);
writeln('[TCustomListBox.SetItemIndex] END ',FItems.ClassName);
end;
{------------------------------------------------------------------------------}
{ procedure TCustomListBox.Clear }
{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------
procedure TCustomListBox.Clear
------------------------------------------------------------------------------}
procedure TCustomListBox.Clear;
begin
FItems.Clear;
end;
function TCustomListBox.GetIndexAtY(Y: integer): integer;
begin
Result:=-1;
if (not HandleAllocated) then exit;
Result:=CNSendMessage(LM_LB_GETINDEXAT, Self, @Y);
end;
// back to stdctrls.pp

6
lcl/lmessages.pp
View File

@ -144,7 +144,8 @@ const
LM_LB_First = LM_NB_Last +1;
LM_LB_GETTOPINDEX = LM_LB_First +1;
LM_LB_SETTOPINDEX = LM_LB_First +2;
LM_LB_Last = LM_LB_SETTOPINDEX;
LM_LB_GETINDEXAT = LM_LB_First +3;
LM_LB_Last = LM_LB_GETINDEXAT;
//-------------
@ -1044,6 +1045,9 @@ end.
{
$Log$
Revision 1.48 2003/04/29 13:35:39 mattias
improved configure build lazarus dialog
Revision 1.47 2003/04/08 00:09:03 mattias
added LM_APPENDTEXT from hernan

4
lcl/stdctrls.pp
View File

@ -368,6 +368,7 @@ type
constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
procedure Clear;
function GetIndexAtY(Y: integer): integer;
property BorderStyle : TBorderStyle read FBorderStyle write SetBorderStyle default bsSingle;
property Canvas: TCanvas read FCanvas;
property ItemIndex : integer read GetItemIndex write SetItemIndex;
@ -1449,6 +1450,9 @@ end.
{ =============================================================================
$Log$
Revision 1.91 2003/04/29 13:35:39 mattias
improved configure build lazarus dialog
Revision 1.90 2003/04/16 22:59:35 mattias
added TMaskEdit from Tony

8
packager/pkgmanager.pas
View File

@ -2339,7 +2339,6 @@ var
AddOptionsList: TList;
InheritedOptionStrings: TInheritedCompOptsStrings;
ConfigDir: String;
TargetDir: String;
begin
Result:='';
if not Assigned(OnGetAllRequiredPackages) then exit;
@ -2363,11 +2362,12 @@ begin
AddOption('-Fi'+ConfigDir);
// add target option
TargetDir:=MiscellaneousOptions.BuildLazOpts.TargetDirectory;
// ToDo
{TargetDir:=MiscellaneousOptions.BuildLazOpts.TargetDirectory;
MainIDE.MacroList.SubstituteStr(TargetDir);
// ToDo write a function in lazconf for this
AddOption('-FE'+TargetDir);
//if TargetDir<>'' then
AddOption('-FE'+TargetDir);}
end;
function TPkgManager.OnProjectInspectorOpen(Sender: TObject): boolean;