paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 23:59:07 +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'; dlgUnitDepRefresh = 'Refresh';
// Build lazarus dialog // Build lazarus dialog
lisBuildJITForm = 'Build JITForm';
lisCleanLazarusSource = 'Clean Lazarus Source'; lisCleanLazarusSource = 'Clean Lazarus Source';
lisBuildLCL = 'Build LCL'; lisBuildLCL = 'Build LCL';
lisBuildComponent = 'Build Component'; lisBuildComponent = 'Build Component';
lisBuildCodeTools = 'Build CodeTools';
lisBuildSynEdit = 'Build SynEdit'; lisBuildSynEdit = 'Build SynEdit';
lisBuildJITForm = 'Build JIT Form';
lisBuildPkgReg = 'Build Package Registration';
lisBuildIDE = 'Build IDE'; lisBuildIDE = 'Build IDE';
lisBuildExamples = 'Build Examples'; lisBuildExamples = 'Build Examples';
lisConfigureBuildLazarus = 'Configure %sBuild Lazarus%s'; lisConfigureBuildLazarus = 'Configure %sBuild Lazarus%s';
@ -1036,6 +1038,7 @@ resourcestring
lisLazBuildTargetOS = 'Target OS:'; lisLazBuildTargetOS = 'Target OS:';
lisLazBuildLCLInterface = 'LCL interface'; lisLazBuildLCLInterface = 'LCL interface';
lisLazBuildBuildJITForm = 'Build JITForm'; lisLazBuildBuildJITForm = 'Build JITForm';
lisLazBuildWithStaticPackages = 'With Packages';
lisLazBuildOk = 'Ok'; lisLazBuildOk = 'Ok';
lisLazBuildCancel = 'Cancel'; lisLazBuildCancel = 'Cancel';
lisLazBuildNone = 'None'; lisLazBuildNone = 'None';

17
lcl/include/customlistbox.inc
View File

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

6
lcl/lmessages.pp
View File

@ -144,7 +144,8 @@ const
LM_LB_First = LM_NB_Last +1; LM_LB_First = LM_NB_Last +1;
LM_LB_GETTOPINDEX = LM_LB_First +1; LM_LB_GETTOPINDEX = LM_LB_First +1;
LM_LB_SETTOPINDEX = LM_LB_First +2; 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$ $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 Revision 1.47 2003/04/08 00:09:03 mattias
added LM_APPENDTEXT from hernan added LM_APPENDTEXT from hernan

4
lcl/stdctrls.pp
View File

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

8
packager/pkgmanager.pas
View File

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